excel - Cómo configurar ''Ajustar todas las columnas en una página'' en la pestaña de impresión

vba excel-vba

Question

Lo único que me gustaría es establecer siempre la configuración ''Ajustar todas las columnas en una página'' cuando los usuarios abren la pestaña Imprimir en Excel.

Y no, ellos no quieren hacerlo ellos mismos. Qué sorpresa :)

Aquí hay una captura de pantalla de donde se encuentra en Excel 2013:

Intenté buscar algún código VBA como el siguiente pero sin éxito.

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

Answer 1

Intente configurar .FitToPagesTall en False para poder configurar manualmente la propiedad .FitToPagesWide .

Enlace de MSDN

Si esta propiedad es falsa, Microsoft Excel escala la hoja de trabajo según la propiedad FitToPagesWide. Si la propiedad Zoom es True, la propiedad FitToPagesTall se ignora.

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