xử lý file in hàng loạtTrong bài đầu tiên in phiếu lương hàng loạt em có

Hướng dẫn cách xử lý file in hàng loạt:

Trong bài đầu tiên in phiếu lương hàng loạt em có một thắc mắc cần giải đáp:

1. Để in file PDF em đã dùng record marcro ghi lại và xử lý ok bằng code:

Sub Lenh_InPDF()

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

        IgnorePrintAreas:=False

End Sub

Tuy nhiên khi in ra thì phát sinh 2 vấn đề:

a. Em muốn tự động đặt tên file in theo tên của mã nhân viên thì xử lý như thế nào.

b. Lệnh in tương ứng từng mã nhân viên sẽ lần lượt show ra nhưng không thể kết thúc, em buộc phải chạy hết 17 mã nhân viên cho tháng 1 thì mới hoàn thành câu lệnh và cũng không thể sửa được VBA trong lúc đang chạy lệnh in. Các thầy hướng dẫn giúp cách dừng lệnh in khi đang tiến hành in lần lượt từng file.

c. Em muốn in một lần toàn bộ các file chỉ bằng 1 thao tác chọn ok khi cửa sổ hiện ra + xác định vị trí lưu file. Các thầy hướng dẫn giúp trường hợp này.

Em cảm ơn