Giúp tắt thanh hiển thị phân trang khi in ( của tất cả các sheet trong 1 file ) (1 người xem)

[congnguyen88]

Mình muốn tắt đi các đường phân trang ( PageBreaks ) của tất cả các sheets thì phải làm sao ?
Hiện tại mình đang dùng cách này nhưng chỉ tắt được 1 sheet khi ta đang ở sheet đó
ActiveSheet.DisplayAutomaticPageBreaks = False

Lưu ý : 1 file excel đó có bao nhiêu sheet thì tắt hết luôn
Xin cảm ơn !

 

[ndu96081631]

Mình muốn tắt đi các đường phân trang ( PageBreaks ) của tất cả các sheets thì phải làm sao ?
Hiện tại mình đang dùng cách này nhưng chỉ tắt được 1 sheet khi ta đang ở sheet đó
ActiveSheet.DisplayAutomaticPageBreaks = False

Lưu ý : 1 file excel đó có bao nhiêu sheet thì tắt hết luôn
Xin cảm ơn !

Làm được 1 sheet thì nhiều sheet đâu phải vấn đề. Vòng lập duyệt qua các sheet là xong
Chỗ ActiveSheet ta thay bằng biến lập

 

[congnguyen88]

Làm được 1 sheet thì nhiều sheet đâu phải vấn đề. Vòng lập duyệt qua các sheet là xong
Chỗ ActiveSheet ta thay bằng biến lập

Cái này em không biết thật anh. Anh có thể hướng dẫn cho em cụ thế cho em được không. em cụng đang tìm hiểu cái For Next gì đó nhưng công việc em bận quá chưa có thời gian. mong anh giúp em cái .

 

[ndu96081631]

Cái này em không biết thật anh. Anh có thể hướng dẫn cho em cụ thế cho em được không. em cụng đang tìm hiểu cái For Next gì đó nhưng công việc em bận quá chưa có thời gian. mong anh giúp em cái .

Thì vầy thôi:

For Each [COLOR=#ff0000]wks[/COLOR] In ThisWorkbook.Worksheets
    [COLOR=#ff0000]wks[/COLOR].DisplayAutomaticPageBreaks = False
Next

Gần y chang của bạn chứ có khác gì đâu

 

[congnguyen88]

Thì vầy thôi:

For Each [COLOR=#ff0000]wks[/COLOR] In ThisWorkbook.Worksheets
    [COLOR=#ff0000]wks[/COLOR].DisplayAutomaticPageBreaks = False
Next

Gần y chang của bạn chứ có khác gì đâu

Ok Thank anh em làm được rồi

Sub An()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.DisplayAutomaticPageBreaks = False
Next Sh
End Sub