IN PHIẾU LƯƠNG HÀNG LOẠT

[thaovtp3105]

Chào các bạn,
Mình có 1 file phiếu lương, giờ mình muốn in hàng loạt phiếu lương này, ngoài dùng mail merge
các bạn có cách nào khác không ạ?

 

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

Chào các bạn,
Mình có 1 file phiếu lương, giờ mình muốn in hàng loạt phiếu lương này, ngoài dùng mail merge
các bạn có cách nào khác không ạ?

Bạn có thể tham khảo bài viết sau nhé:

Code tự động đánh số và in ấn

Chào các thầy cô. Em có cái form in nhãn. Còn 1 số chỗ do trình độ còn kém nên nhờ các thầy cô hỗ trợ với ạ Mong muốn là khi điền dữ liệu vào phần In từ số... đến số.... và kích vào nút IN NHÃN như hình trên thì nó sẽ tự động điền các số thứ tự tăng dần vào các khu khoanh đỏ trên sheets form...

www.giaiphapexcel.com

 

[snow25]

Chào các bạn,
Mình có 1 file phiếu lương, giờ mình muốn in hàng loạt phiếu lương này, ngoài dùng mail merge
các bạn có cách nào khác không ạ?

Bạn thử.

Sub inluong()
   Dim lr As Long, i As Long
   With Sheet2
        lr = .Range("B" & Rows.Count).End(xlUp).Row
   End With
   With Sheet1
        For i = 8 To lr
            .Range("B8").Value = Sheet2.Range("B" & i).Value
            '.PrintPreview
            .PrintOut
       Next i
   End With
End Sub