[Help] Phương pháp in toàn bộ sheet chỉ 1 click trên file này (4 người xem)

[Nimda]

Như tiêu đề, giờ mình muốn in toàn bộ các sheet theo code từ 1-26 thay chỉ vì chỉ cần 1 click, mong các cao nhân vba giúp đỡ.

 

[be_09]

Như tiêu đề, giờ mình muốn in toàn bộ các sheet theo code từ 1-26 thay chỉ vì chỉ cần 1 click, mong các cao nhân vba giúp đỡ.

Bạn thử code này:

Sub InTatCa_CacSheet()
  Dim wsh As Worksheet
  For Each wsh In ActiveWorkbook.Worksheets
    If wsh.Visible = xlSheetVisible Then
      wsh.PrintOut
    End If
  Next wsh
End Sub

 

[befaint]

Như tiêu đề, giờ mình muốn in toàn bộ các sheet theo code từ 1-26 thay chỉ vì chỉ cần 1 click, mong các cao nhân vba giúp đỡ.

Thử file bài #2 xem
http://www.giaiphapexcel.com/forum/...về-Tự-động-in-các-Sheets-trong-Workbook-Excel

 

[Nimda]

Thử file bài #2 xem
http://www.giaiphapexcel.com/forum/...về-Tự-động-in-các-Sheets-trong-Workbook-Excel

Cảm ơn bạn đã trả lời, nhưng file của mình là file hồ sơ nghiệm thu, nên nó có vòng lặp bạn à.

Bạn mở file mình xem sheet data cột code từ 1-13 là 1 lý trình, từ 14-26 là 1 lý trình, và còn nhiều lý trình khác nữa nhưng công việc giống nhau, nên mình muốn tạo 1 cái nút in tự động từ 1-13 rồi tự nó in từ 14-26. Mong bạn giúp đỡ ạ!

 

[Nimda]

Bạn thử code này:

Sub InTatCa_CacSheet()
  Dim wsh As Worksheet
  For Each wsh In ActiveWorkbook.Worksheets
    If wsh.Visible = xlSheetVisible Then
      wsh.PrintOut
    End If
  Next wsh
End Sub

Cảm ơn bạn đã trả lời, nhưng mình không hiểu cái code này lắm, mình hơi kém bạn có thể nói rõ hơn được không?

 

[langtuchungtinh360]

Cảm ơn bạn đã trả lời, nhưng mình không hiểu cái code này lắm, mình hơi kém bạn có thể nói rõ hơn được không?

Code trên là duyệt qua tất cả các sheet hiện có trong file, xem sheet nào đang hiện (không bị ẩn) thì in. như nội dung bạn nêu "muốn in toàn bộ các sheet"