xin hỏi cách in không cần mở sheet cần in lên!

[minh_trungtq]

em có nhiều sheet đã chỉnh sửa xong chỉ việc in, nhưng do số lượng nhiều, nên em muốn đang làm việc ở sheet đầu tiên chỉ cần ấn nút là các sheet sau tự động in luôn.
em không biết code đó như thế nào!
mong anh chị giúp đỡ!
trân trọng cảm ơn!

 

[viehoai]

em có nhiều sheet đã chỉnh sửa xong chỉ việc in, nhưng do số lượng nhiều, nên em muốn đang làm việc ở sheet đầu tiên chỉ cần ấn nút là các sheet sau tự động in luôn.
em không biết code đó như thế nào!
mong anh chị giúp đỡ!
trân trọng cảm ơn!

Bạn dùng code xem thử nhé

Sub InSheet()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
  Sh.PrintOut Copies:=1, Collate:=True
Next
End Sub

 

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

Bạn dùng code xem thử nhé

Sub InSheet()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
  Sh.PrintOut Copies:=1, Collate:=True
Next
End Sub

Không cần dùng vòng lặp đâu bạn.

ActiveWorkbook.PrintOut

 

[minh_trungtq]

Không cần dùng vòng lặp đâu bạn.

ActiveWorkbook.PrintOut

cảm ơn 2 anh về bài viết

em đã thử 2 code của 2 anh, in một code là worksheet và một code là workbook

Sub CommandButton8_Click()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
  Sh.PrintOut Copies:=1, Collate:=True
Next
End Sub

khi không có máy in hoặc phát lệnh sai thì nó hiện lên hình này ah

các anh làm ơn cho hỏi thêm vào code gì để close lại. khi phát lệnh sai hoặc không có máy in ạ!
trân trọng cảm ơn các anh!

 

[viehoai]

cảm ơn 2 anh về bài viết

em đã thử 2 code của 2 anh, in một code là worksheet và một code là workbook

Sub CommandButton8_Click()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
  Sh.PrintOut Copies:=1, Collate:=True
Next
End Sub

khi không có máy in hoặc phát lệnh sai thì nó hiện lên hình này ah

các anh làm ơn cho hỏi thêm vào code gì để close lại. khi phát lệnh sai hoặc không có máy in ạ!
trân trọng cảm ơn các anh!

Bạn đặt ở đầu thủ tục: On Error GoTo Thoat
và cuối thủ tục: Thoat:

 

[minh_trungtq]

Bạn đặt ở đầu thủ tục: On Error GoTo Thoat
và cuối thủ tục: Thoat:

cảm ơn bạn rất nhiều ah!

 

[viehoai]

chị làm ơn viết đầy đủ luôn cả code ở trên được ko ah
em thêm vào nó báo lỗi thủ tục chữ thoat luôn ah

THì bạn tự làm mới nhớ lâu được chứ:

Sub InSheet()
Dim Sh As Worksheet
On Error GoTo Thoat
For Each Sh In ThisWorkbook.Worksheets
    Sh.PrintOut Copies:=1, Collate:=True
Next
Thoat:
End Sub

Hoặc

Sub InSheet()
On Error Resume Next
ActiveWorkbook.PrintOut
End Sub

 

[minh_trungtq]

em muốn hỏi anh chị thêm chút nữa ah! em đặt pass như sau:

Private Sub CommandButton6_Click()
On Error GoTo thoat
Do While False
Worksheets("Nhap du lieu").Unprotect
Loop
thoat:
Worksheets("Nhap du lieu").Unprotect
End Sub

em muốn khi mở khóa sai thì cửa sổ "nhập pass word" của em cứ lặp lại cho đến khi nào nhập đúng thì thôi (mà nó không hiện lên cái bảng error)
code của em như trên chỉ hiện lại có 2 lần khi nhập sai, lần thứ 3 nó lại báo bảng "error.."

anh chị nào chỉ giúp em cách lặp lại với ah!
trân trọng cảm ơn ah!

 

[minh_trungtq]

không ai giúp em chút vậy ah