mong các bác ra tay cứu trợ

[nhung18ford]

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

 

[ducdoom]

Mình không có máy in nên không hiểu lỗi của bạn là gì. Liệu có phải là 1 sheet rộng quá nên nó bị tràn ra nhiều trang giấy không?

 

[be_09]

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!
.......................................................

Góp ý cho bạn:
1/ Nên có 1 sheet Theo dõi chứa tất cả các dữ liệu.
2/ Làm 1 sheet mẫu rồi dùng sheet này lấy dữ liệu từ sheet Theo dõi sang để in tất cả, chứ không ai làm nhiều sheet vừa tốn công, tốn sức và việc tổng hợp lại càng khó khăn.
3/ Lưu ý bạn: Tiêu đề cần ghi cho rõ nghĩa và phù hợp với nội dung. Xem lại nội quy để hiểu.

 

[nhung18ford]

Mình không có máy in nên không hiểu lỗi của bạn là gì. Liệu có phải là 1 sheet rộng quá nên nó bị tràn ra nhiều trang giấy không?

em đã căn chỉnh vào đúng khổ giấy rồi.nhưng mỗi lần ấn in là từ sheet thứ 8 nó tự co vào làm thiếu chữ

Bài đã được tự động gộp: 14/6/19

Góp ý cho bạn:
1/ Nên có 1 sheet Theo dõi chứa tất cả các dữ liệu.
2/ Làm 1 sheet mẫu rồi dùng sheet này lấy dữ liệu từ sheet Theo dõi sang để in tất cả, chứ không ai làm nhiều sheet vừa tốn công, tốn sức và việc tổng hợp lại càng khó khăn.
3/ Lưu ý bạn: Tiêu đề cần ghi cho rõ nghĩa và phù hợp với nội dung. Xem lại nội quy để hiểu.

View attachment 219169

item 1: - hiện e mới làm nên chưa biết và nắm bắt rõ.ý của bác có pải gộp tất cả các sheet thành 1 sheet rồi lấy nội dung của sheet đó ra 1 mẫu pải không ạ
item 3: cảm ơn bác ạ.tại e mới nên chưa hiểu rõ nội quy diễn đàn.lần sau sẽ rút kinh nghiệm ạ