Cách in trang đầu tiên của tất cả các sheets trong một file

[ngoinhahoahong1492]

Em thường thao tác trên một file excel, mỗi file có nhiều sheets, em thường in trang đầu tiên của sheet (trang 1). Em muốn bấm 1 lần là có thể in được tất cả các trang 1 của tất cả các sheets trong file. Tuy nhiên em không muốn tạo vùng in (set print area) vì em phải gửi file cho người khác/ bộ phận khác dùng. Nếu em tạo vùng in thì họ phải mất công clear print area. Mong các anh chị giúp em. Em cám ơn nhiều.

 

[nghiaphuc]

Em thường thao tác trên một file excel, mỗi file có nhiều sheets, em thường in trang đầu tiên của sheet (trang 1). Em muốn bấm 1 lần là có thể in được tất cả các trang 1 của tất cả các sheets trong file. Tuy nhiên em không muốn tạo vùng in (set print area) vì em phải gửi file cho người khác/ bộ phận khác dùng. Nếu em tạo vùng in thì họ phải mất công clear print area. Mong các anh chị giúp em. Em cám ơn nhiều.

Bạn sử dụng code sau xem sao:

Sub PrintFirstPage()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ws.PrintOut 1, 1
    Next
End Sub

 

[ngoinhahoahong1492]

Bạn sử dụng code sau xem sao:

Sub PrintFirstPage()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ws.PrintOut 1, 1
    Next
End Sub

Em cám ơn anh nghiaphuc nhiều, không biết file em có lỗi gì không mà em chưa dùng được code này.

 

[nghiaphuc]

Em cám ơn anh nghiaphuc nhiều, không biết file em có lỗi gì không mà em chưa dùng được code này.

Bạn đặt code ở đâu vậy? Hãy đặt nó trong 1 module nhé. Bạn chọn Insert\Module và dán code trên vào. Tiếp theo nhấn F5 để chạy code.
Một điều quan trọng là bạn phải Enable macro trước đã nhé. Bạn đã thực hiện thao tác này chưa?

 

[ngoinhahoahong1492]

Bạn đặt code ở đâu vậy? Hãy đặt nó trong 1 module nhé. Bạn chọn Insert\Module và dán code trên vào. Tiếp theo nhấn F5 để chạy code.
Một điều quan trọng là bạn phải Enable macro trước đã nhé. Bạn đã thực hiện thao tác này chưa?

Em đã thực hiện các bước trên. Đến khi em nhấn F5 thì hiện ra hình ảnh sau:
Mong anh xem giúp em. Em cám ơn nhiều.

 

[dongducnhiem]

Em đã thực hiện các bước trên. Đến khi em nhấn F5 thì hiện ra hình ảnh sau:
Mong anh xem giúp em. Em cám ơn nhiều.

Mở File, bấm Alt +F11, chọn code trên modele bấm F5 -> chay code
F5 ở trên khác F5 trong File Ex!

 

[ngoinhahoahong1492]

Mở File, bấm Alt +F11, chọn code trên modele bấm F5 -> chay code
F5 ở trên khác F5 trong File Ex!

Em đã chạy F5 như anh hướng dẫn và thấy hiện ra bảng sau:


Và khi em chọn debug thì dòng này: "Ws.PrintOut 1, 1" được tô vàng.
Mong anh chỉ em thêm.
Em cám ơn nhiều.