Come impostare "Adatta tutte le colonne su una pagina" nella scheda di stampa

Question

L'unica cosa che vorrei è impostare sempre l'impostazione "Adatta tutte le colonne su una pagina" quando gli utenti aprono la scheda Stampa in Excel.

E no, non vogliono farlo da soli. Che sorpresa :)

Ecco uno screenshot di dove si trova in Excel 2013:

provato a cercare un po 'di codice VBA come il seguente, ma senza successo.

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

Answer 1

Provare a impostare la .FitToPagesTall-False per essere in grado di impostare manualmente la proprietà .FitToPagesWide.

MSDN link

Se questa proprietà è False, Microsoft Excel in scala il foglio di lavoro in base alla proprietà FitToPagesWide. Se la proprietà Zoom è True, la proprietà FitToPagesTall viene ignorata.

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