Xuất ra file PDF hàng loạt các phiếu in mình có hướng dẫn ko thầy
chào bạn phần này bạn có thể tham khảo thêm phần khoá exg06 sẽ có phần tạo addin in hàng loạt: https://gitiho.com/khoa-hoc/tin-hoc-v...
khóa này là học xong VBA mới học đc phải ko thầy
chào bạn đúng rồi bạn trong khoá học có phần tạo ra addins in hàng loạt luôn đó
mình ấn nút để in chỉ in được 1 phiếu lương (mình test thử là tháng 1 chỉ có 2 dòng, các dòng khác xóa đi) nhưng chỉ in ra duy nhất 1 phiếu lương của người đầu tiên thôi.
Sub phieuluong_noidung()
Dim dongbd As Long
Dim dongkt As Long
dongbd = Sheets("phieuluong").Range("I9").Value
dongkt = Sheets("phieuluong").Range("I10").Value
Dim i As Long
For i = dongbd To dongkt
Sheets("phieuluong").Range("F6").Value = Sheets("data_tienluong").Range("e" & i).Value
Sheets("phieuluong").PrintOut
Next i
End Sub
chào bạn do dòng bt bạn là 6 và dòng kt là 7 nên nó chỉ chạy dc có 1 vòng thôi bạn nhé.