em muốn in từ trang 1 đến trang cuối = vba (1 người xem)

[bj189]

nhờ các bác cao thủ giúp đỡ code để in từ trang 1 đến trang cuối , xin cảm ơn trước !

 

[dhn46]

Thấp thủ giúp được không bạn?
Bạn record 1 macro là xong.

 

[bj189]

trang cuối có thể là 2 hoặc 3 hoặc 4 ... tùy mỗi lần in anh ạ ,

 

[hoangvuluan]

Dùng phương thức PrintOut (nếu không có tham số thì mặc định in từ trang đầu đến trang cuối)
Nếu chỉ in 1 sheet (là sheet hiện thời) thì: ActiveSheet.PrintOut
nếu không là sheet hiện thời thì chỉ định tên sheet cần in, ví dụ: Sheet5.PrintOut

 

[bj189]

ôi anh ơi , in hết thế này thì chết em rồi

 

[dhn46]

Không hiểu bạn muốn gì nữa vì vùng in thì set 1 cái là xong rồi in. Còn nếu bạn muốn set vùng in tự động theo số lượng dòng có thì chỉ cần 1 macro chọn area in là được. Việc chọn vùng bằng VBA thì bạn có thể tham khảo trên diễn đàn có rất nhiều.

 

[bj189]

ý em là chỉ muốn in trang mà có dữ liệu thôi

 

[bj189]

very good , thank you !

Không hiểu bạn muốn gì nữa vì vùng in thì set 1 cái là xong rồi in. Còn nếu bạn muốn set vùng in tự động theo số lượng dòng có thì chỉ cần 1 macro chọn area in là được. Việc chọn vùng bằng VBA thì bạn có thể tham khảo trên diễn đàn có rất nhiều.

 

[bj189]

cao thủ cho em hỏi code này sao lại không in được cột A
ActiveSheet.PageSetup.PrintArea = Range("A1",Range("M65536").End(xlUp)).Address