Comment définir «Ajuster toutes les colonnes sur une seule page» dans l'onglet d'impression

Question

La seule chose que je voudrais, c'est de toujours définir le paramètre `` Ajuster toutes les colonnes sur une seule page '' lorsque les utilisateurs ouvrent l'onglet Imprimer dans Excel.

Et non, ils ne veulent pas le faire eux-mêmes. Quelle surprise :)

Voici une capture d'écran de l'endroit où cela se trouve dans Excel 2013:

J'ai essayé de chercher du code VBA comme le suivant mais sans succès.

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

Answer 1

Essayez de définir le .FitToPagesTall à False pour pouvoir définir manuellement le .FitToPagesWide propriété.

lien MSDN

Si cette propriété est False, Microsoft Excel met à l'échelle la feuille de calcul en fonction de la propriété FitToPagesWide. Si la propriété Zoom est True, la propriété FitToPagesTall est ignorée.

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