Jak ustawić opcję "Dopasuj wszystkie kolumny na jednej stronie" w zakładce drukowania

Question

Jedyne, co chcę, to zawsze ustawić ustawienie Dopasuj wszystkie kolumny na jednej stronie, gdy użytkownicy otworzą kartę Drukuj w programie Excel.

I nie, nie chcą tego robić sami. Co za niespodzianka :)

Oto zrzut ekranu, gdzie to jest w programie Excel 2013:

Próbowałem szukać jakiegoś kodu VBA jak na poniższym ale bez powodzenia.

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

Answer 1

Spróbuj ustawić .FitToPagesTall do False, aby móc ręcznie ustawić właściwość .FitToPagesWide.

MSDN link

Jeśli ta właściwość jest False, Microsoft Excel skaluje arkusz zgodnie z właściwością FitToPagesWide. Jeśli właściwość Zoom ma wartość True, właściwość FitToPagesTall jest ignorowana.

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