Không thực hiện lệnh đặt vùng in

[longlt08]

Xin chào ACE trên GPE !
Tôi thường in các báo cáo lọc từ pivottable và dùng lệnh:
ActiveSheet.PageSetup.PrintArea = Range([A1], [L6000].End(xlUp)).Address
Trong nhiều sheet khi tôi sử dụng code có câu lệnh trên thì việc in do câu lệnh đặt vùng in trên diễn ra bình thường. Tôi làm thêm 1 số báo cáo (từ pivottable) và áp dụng đoạn code trên thì không có hiệu lực nữa. Lúc này đoạn code trên chỉ có hiệu lực với cột(column) còn về dòng thì chỉ đặt vùng in ở vị trí dòng 8 hoặc dòng 10. (trước đây với lệnh trên, tuỳ dữ liệu, đoạn code trên đặt vùng in phù hợp với dữ theo dòng dữ liệu - nên không cần chỉnh lại vùng in khi cần in).
Hiện nay tôi không đặt được vùng in với lệnh trên nữa, không hiểu bị lỗi gì. Khi đã làm lại bảng pivot khác, sửa lại code có câu lệnh trên nhưng chưa có kết quả. Không hiểu bị lỗi gì.
Tôi muốn nhờ mọi người giúp đỡ. Tôi xin chân thành cảm ơn !

 

[TrungChinhs]

Anh kiểm tra lại xem [L6000].End(xlUp) là dòng nào - đặt con trỏ vào ô L6000 rồi nhấn Ctrl + mũi tên lên xem con trỏ nó đỗ ở đâu ?

Anh thử xóa vùng in trước khi đặt câu lệnh thiết lập vùng in xem có được không.

ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = Range([A1], [L6000].End(xlUp)).Address

 

[ptm0412]

Anh cần kiểm tra:
- Cột cuối có dữ liệu là cột nào (code đã đặt là cột L)
- Cột cuối (thường là cột grand total for Row) có dòng tổng cộng cuối cùng không (grand total for column)

Khi ứng dụng code của sheet này cho sheet khác, số dòng và số cột đã thay đổi, nên phải tùy biến.

Nếu cột cuối không phải L mà là K, thì sửa:

ActiveSheet.PageSetup.PrintArea = Range([A1], [K6000].End(xlUp)).Address