GIúp em xử Lý in ấn mượt mà (1 người xem)

[kscongtrinh]

Vấn đề em đang gặp phải :
em có 1 File Excel quản lý ( gồm nhiều sheet) có data quản lý các sheet liên quan đến dư liệu của sheet file excel tổng!
em cần in ở sheet tổng các sheet thứ tự 3,4,5,6,7,8,9,10 (em viết đoạn code dưới theo tên sheet) và sheet liên quan đến sheet tổng 11,12,13.
và in 1 lượt ra cac sheet rồi in ra số lần bản in mà mình muốn và đóng lại sheet liên quan nhưng giữ lại sheet file excel tổng khi in xong.
Đoạn code của em hiện tại chỉ in được một bản và xủ lý không mượt, in xong nó tự động tắt hết các file excel.
Em cần cải tiến vấn đề : Hiện lên Một form in ấn , Có hiện các sheet em muốn in (như yêu cầu trên )lên theo dạng list BOX(có tên sheet của file tổng và sheet file excel khác liên quan) em có thể lựa chọn các sheet in in hoặc bỏ các sheet không cần in. Sau đó có thêm 1 box hiện số copy ( copy có nghĩa chạy hết các sheet in một lần rồi thực hiện thêm 1 bảng sao nữa)
File excel em đính kèm:

Sub print_concrete()Link = Range("O4") & Range("E5") & ".xls"
If Dir(Link) = "" Then
MsgBox "File theo link chi dinh khong ton tai?"
Exit Sub
Else
    Application.ScreenUpdating = False
    With Application.ThisWorkbook
    .Worksheets("COVER").PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
    .Worksheets("LIST").PrintOut Copies:=Range("L4").Value
    .Worksheets("Request").PrintOut Copies:=Range("L4").Value
    .Worksheets("4A").PrintOut Copies:=Range("L4").Value
    .Worksheets("Resume").PrintOut Copies:=Range("L4").Value
    .Worksheets("Coordi").PrintOut Copies:=Range("L4").Value
    .Worksheets("Polymer").PrintOut Copies:=Range("L4").Value
    .Worksheets("Drill.Excavation").PrintOut Copies:=Range("L4").Value
    .Worksheets("Rebar").PrintOut Copies:=Range("L4").Value
    .Worksheets("KP").PrintOut Copies:=Range("L4").Value
    End With
    With Application.Workbooks.Open(Link)
    .Worksheets("Conc").PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
    .Worksheets("Graph(chart)").PrintOut Copies:=Range("L4").Value
    .Worksheets("Sample").PrintOut Copies:=Range("L4").Value
    .Close
    End With
    Application.ScreenUpdating = True


End If
If Range("bd5") <> "0" Then
 With Application.ThisWorkbook
    .Worksheets("KP").PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
    .Close
End With
End If
End Sub

 

[kscongtrinh]

có ai giup mình với ạ.................................

 

[befaint]

Bạn thử addins trong bài này xem ổn không?
http://www.giaiphapexcel.com/forum/...Add-Ins-cho-phép-chọn-in-nhiều-sheets-một-lúc