nhung18ford
Thành viên mới
- Tham gia
- 13/6/19
- Bài viết
- 0
- Được thích
- 0
các bác chỉ bảo thêm cho em phần lệnh VBA để in này với ạ. tại sao in được rồi nhưng cứ đến sheet thứ 8 là nó lại tự nhảy trang in dẫn tới in thiếu chữ ạ. không biết có sai đâu không. em xin cảm ơn!
Sub MyPrinting()
Dim Sh As Worksheet
Dim Rng As Range
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Set Rng = Sh.Range(Sh.Range("B1"), Sh.Range("B1000").End(xlUp).Offset(1)).Offset(, -1).Resize(, 6)
Sh.PageSetup.PrintArea = Range("A1:F26").Address
Rng.PrintOut
Next Sh
Application.ScreenUpdating = True
' Debug.Print Rng.Address
End Sub
Sub MyPrinting()
Dim Sh As Worksheet
Dim Rng As Range
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Set Rng = Sh.Range(Sh.Range("B1"), Sh.Range("B1000").End(xlUp).Offset(1)).Offset(, -1).Resize(, 6)
Sh.PageSetup.PrintArea = Range("A1:F26").Address
Rng.PrintOut
Next Sh
Application.ScreenUpdating = True
' Debug.Print Rng.Address
End Sub
