Hỏi cách in file với nội dung tự thay đổi

[tanphat22]

Trường hợp là mình có 1 file với nội dung in ra để gởi thư cho khách
Toàn bộ nội dung như nhau, chỉ có phần tên người nhận là khác nhau
Nếu in bình thường, mỗi lá thư mình phải làm thủ công thay đổi tên người nhận trên từng thư rùi lại in từng cái
Vậy mình mún khi ra lệnh in, sẽ in hết toàn bộ thư với điều kiện : mỗi trang in ra sẽ tự động nhảy tên người (tự động thay đổi nội dung phần tên người nhận khi in) theo thứ tự
Các bạn chỉ giùm mình trường hợp này nhé
Thanks các bạn nhiều

 

[nghiaphuc]

Cái mà bạn nói đến là chức năng Mail Merge trong Word. Bạn chịu khó tìm trên diễn đàn, có rất nhiều đấy.

 

[yeudoi]

Trường hợp là mình có 1 file với nội dung in ra để gởi thư cho khách
Toàn bộ nội dung như nhau, chỉ có phần tên người nhận là khác nhau
Nếu in bình thường, mỗi lá thư mình phải làm thủ công thay đổi tên người nhận trên từng thư rùi lại in từng cái
Vậy mình mún khi ra lệnh in, sẽ in hết toàn bộ thư với điều kiện : mỗi trang in ra sẽ tự động nhảy tên người (tự động thay đổi nội dung phần tên người nhận khi in) theo thứ tự
Các bạn chỉ giùm mình trường hợp này nhé
Thanks các bạn nhiều

Cái này trong excel in cũng vô tư, bạn tìm in bảng lương ấy.

 

[Hai Lúa Miền Tây]

Trường hợp là mình có 1 file với nội dung in ra để gởi thư cho khách
Toàn bộ nội dung như nhau, chỉ có phần tên người nhận là khác nhau
Nếu in bình thường, mỗi lá thư mình phải làm thủ công thay đổi tên người nhận trên từng thư rùi lại in từng cái
Vậy mình mún khi ra lệnh in, sẽ in hết toàn bộ thư với điều kiện : mỗi trang in ra sẽ tự động nhảy tên người (tự động thay đổi nội dung phần tên người nhận khi in) theo thứ tự
Các bạn chỉ giùm mình trường hợp này nhé
Thanks các bạn nhiều

Bạn xem file đính kèm nhé

 

[nguyenvietviet]

Mình dựa theo bài của pác viethoai. Bạn xem thế này có đúng không?

 

[viehoai]

Mình dựa theo bài của pác viethoai. Bạn xem thế này có đúng không?

Thế cũng được rồi. Tuy nhiên bạn áp dụng vậy cần rút trích lại:
Hôm trước mình làm chp bạn code đó do dự liệu là PC1, PC2...
Nhưng đây là số thứ tự 1, 2, 3... thì không cần đoạn code (kể cả code cũ cũng không cần)

  Set Myrange = Sheet1.Range("a2:a" & endRow).Find(what:=ComboBox1.Value, lookat:=xlWhole)
    If Not Myrange Is Nothing Then
      Frow = Myrange.Row
    End If
  Set Myrange = Sheet1.Range("a2:a" & endRow).Find(what:=ComboBox2.Value, lookat:=xlWhole)
    If Not Myrange Is Nothing Then
      Erow = Myrange.Row
    End If

Bạn thử nhé
Chúc bạn thành công

 

[nguyencanh1981]

lam sao ban tao cai nut in nhu vay the? Minh dang can tao nhu vay ma chua bit cach lam?

 

[nguyencanh1981]

Bạn xem file đính kèm nhé

cai nut in ban lam the nao ma dc vay? chi tui voi.