2014-09-09 19 views
12

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

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

Oto zrzut ekranu, gdzie to jest w programie Excel 2013: enter image description here

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

+0

Szukasz ** SetPrintArea ** ?? – jbutler483

Odpowiedz

19

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 
+0

Niesamowite !!! Więc potrzebowałem "Fałszywa" zamiast 1 :) – Pepys

+1

Czy powinienem wtedy dodać '.Zoom = False' na wszelki wypadek, aby nigdy nie ignorować właściwości FitToPagesTall? – Pepys

+2

Właśnie dodałem'Application.PrintCommunication = False' do mojego kodu i to wystarczy! – rohrl77

Powiązane problemy