In tất cả tên trong danh sách

[lamho27]

Chào các bạn trong diển đàn
Em có 1 file với 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
Em muố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 theo thứ tự
Cám ơn các bạn nhiều

 

[nghiaphuc]

Chào các bạn trong diển đàn
Em có 1 file với 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
Em muố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 theo thứ tự
Cám ơn các bạn nhiều

Bạn sử dụng code sau nhé:

Sub PrintAll()
    Dim Cll As Range
    Feuil1.Activate
    For Each Cll In Feuil4.[B1].CurrentRegion
        [F14].Value = Cll.Value
        ActiveSheet.PrintOut Copies:=[S13].Value, Collate:=True
    Next
End Sub

 

[lamho27]

Cám ơn bạn nghiaphuc nhiều lắm, đúng là như vậy , em còn 1 vấn đề bạn giúp dùm , trong feuil1 là lịch năm , có cách nào khi mình đánh năm vào ô A1 thì nó tự thay đi ngày tháng ở các ô kế tiếp nhưng vẩn giữ ligne 1