Cách đặt 'Phù hợp với tất cả các cột trên một trang' trong tab in

Question

Điều duy nhất tôi muốn là luôn đặt cài đặt 'Phù hợp với tất cả các cột trên một trang' khi người dùng mở tab In trong Excel.

Và không, họ không muốn tự làm. Thật là một sự ngạc nhiên :)

Đây là một ảnh chụp màn hình của nơi đó là trong Excel 2013:

Cố gắng tìm kiếm một số mã VBA như sự thành công sau nhưng không có.

With Sheets("Print Letter").PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With

Answer 1

Hãy thử thiết lập các .FitToPagesTall-False để có thể tự thiết lập .FitToPagesWide tài sản.

MSDN link

Nếu thuộc tính này là False, Microsoft Excel quy mô bảng theo tài sản FitToPagesWide. Nếu thuộc tính Thu phóng là Đúng, thuộc tính FitToPagesTall bị bỏ qua.

Sub PrintColumns() 
    Application.PrintCommunication = False 
    With Sheets("Print Letter").PageSetup 
     .FitToPagesWide = 1 
     .FitToPagesTall = False 
    End With 
    Application.PrintCommunication = True 
End Sub