code in nhiều sheet với chỉ môt click

[ladinh1977]

Em có một báo cao nhưng ở nhiều sheet khác nhau. Muốn rút ngắn thời gian mỗi khi in với chỉ một click vào command bottun là có thể in tất cả các sheet (các sheet này cũng có thể có rất nhiều giả thích không cần in nhưng đã được dùng Pagesetup/sheet/Print area )
Ví dụ:
Private Sub CommandButton3_Click()
Sheet21.PrintOut
End Sub
Lệnh này chỉ có thể in sheet 21 thôi.
Nhờ các bác trong diễn đàn chỉ gúp

 

[hoangexcell]

Chọn một lúc nhiều sheet rồi bấm in, cần gì phải làm code chi cho cực vậy!

Còn muốn code thì có thể dùng như dưới đây này, record macro hen

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

 

[ladinh1977]

Chọn một lúc nhiều sheet rồi bấm in, cần gì phải làm code chi cho cực vậy!

Còn muốn code thì có thể dùng như dưới đây này, record macro hen

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Ban có thể cho ví dụ vào file đính kèm được không, vì tôi không rõ từng bước lám về món này nên phải gửi file đính kèm để nhờ giúp rồi mới vận dung tiếp được

 

[ongtrungducmx25]

Ban có thể cho ví dụ vào file đính kèm được không, vì tôi không rõ từng bước lám về món này nên phải gửi file đính kèm để nhờ giúp rồi mới vận dung tiếp được

vào đây xem nhé http://www.giaiphapexcel.com/forum/showthread.php?20711-TVEXCEL02-Print-công-cụ-in-cho-Excel

 

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

Em có một báo cao nhưng ở nhiều sheet khác nhau. Muốn rút ngắn thời gian mỗi khi in với chỉ một click vào command bottun là có thể in tất cả các sheet (các sheet này cũng có thể có rất nhiều giả thích không cần in nhưng đã được dùng Pagesetup/sheet/Print area )
Ví dụ:
Private Sub CommandButton3_Click()
Sheet21.PrintOut
End Sub
Lệnh này chỉ có thể in sheet 21 thôi.
Nhờ các bác trong diễn đàn chỉ gúp

Bạn Record lại Macro lại động tác theo hướng dẫn như hình bên dưới là được đoạn code như ý.