Xin một macro in từng sheet trong excel

[Trojan]

Chào mọi người. Tôi muốn dùng một macro để in từng trang một trong một workbook (tôi không muốn dùng phương pháp chọn tất cả các sheet rồi dùng lệnh in) mà chưa biết viết thế nào. Các mem có thể viết giúp tôi với. Xin cảm ơn trước.
Trojan

 

[Tường_Vi]

Chào mọi người. Tôi muốn dùng một macro để in từng trang một trong một workbook (tôi không muốn dùng phương pháp chọn tất cả các sheet rồi dùng lệnh in) mà chưa biết viết thế nào. Các mem có thể viết giúp tôi với. Xin cảm ơn trước.
Trojan

Sub printsh()
For i = 1 To workshets.Count
Sheets(i).PrintOut copies:=1, from:=1, To:=1
Next

End Sub

Có thể muội hiểu nhầm ý Huynh và chắc hông phải như vầy?

 

[anhtotbung35]

Sub printsh()
For i = 1 To workshets.Count
Sheets(i).PrintOut copies:=1, from:=1, To:=1
Next

End Sub

sửa lại workshets thành worksheets nhé

 

[Trojan]

Cảm ơn hai mem đã giúp đỡ. Tôi đã tìm được code rồi. Tôi chưa test nhưng code trên thì mỗi sheet chỉ in được 1 trang thôi thì phải. Xin gửi đây mọi người đoạn code tôi tìm được và đã test chạy rất ok.
php code:
Sub PrintAllSheets()
Dim M As Long, N As Long, Firstsht As Long, Lastsht As Long, Sheet As Object
Lastsht = Sheets.Count
M = 0: N = Lastsht
For Each Sheet In Sheets
If Not Sheet.Visible Then N = N - 1
If Sheet.Visible And Sheet.Type = xlWorksheet Then
If WorksheetFunction.CountA(Sheet.UsedRange) = 0 Then
N = N - 1
End If
End If
Next
For Firstsht = 1 To Lastsht
If Sheets(Firstsht).Visible = True Then
If Not TypeName(Sheets(Firstsht)) = "Chart" Then
If WorksheetFunction.CountA(Sheets(Firstsht).UsedRange) <> 0 Then
M = M + 1
GoSub DoPrint
End If
Else
M = M + 1
GoSub DoPrint
End If
End If
Next Firstsht
Exit Sub
DoPrint:
With Application
.EnableEvents = False
Sheets(Firstsht).PrintPreview
Sheets(Firstsht).PrintOut
.EnableEvents = True
End With
Return
End Sub
code[]/

 

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

Sub printsh()
For i = 1 To workshets.Count
Sheets(i).PrintOut copies:=1, from:=1, To:=1
Next

End Sub

Có thể muội hiểu nhầm ý Huynh và chắc hông phải như vầy?

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

ActiveWorkbook.PrintOut