XL 2019 Impression échelle personnalisée

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

Julien_m

XLDnaute Junior
Bonjour à tous,

Je bloque depuis quelques temps sur l'impression et de manière générale j'ai toujours des problèmes lorsque je veux automatiser en vba mes impressions.
Cette fois c'est la mise à l'échelle qui me pose problème... j'ai essayé d'ajouter .Zoom=110 mais rien à faire, impression toujours pas à l'échelle.

Voici le code que j'ai écrit :
VB: 
Sub Full_impr()

    Set fin = Range("Suivi_Forma!Full_jusquà")
    
    Sheets("Impr.ADC").Select
    Range("B1:F" & fin).Select
    
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        Application.PrintCommunication = True
        ActiveSheet.PageSetup.PrintArea = ""
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.25)
            .BottomMargin = Application.InchesToPoints(0.25)
            .HeaderMargin = Application.InchesToPoints(0.25)
            .FooterMargin = Application.InchesToPoints(0.25)
            .PrintQuality = 300
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .BlackAndWhite = False
            .Zoom = 110
        End With
        If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Selection.PrintOut

End Sub

Merci d'avance de vos retours,

Julien,
 
Solution
R
Bonjour à tous

Je vous laisse ici un exemple, il vous suffit de l'adapter au code de votre projet


VB: 
Private Sub impressionFeuille() ' impression

Dim myWorksheet As Worksheet
Dim iCounter As Long
Dim myCmPointsBase As Single ' pour définir les marges et les tailles de l'image, s'il y a une image
Dim LastRow As Long

Set myWorksheet = Application.ThisWorkbook.Worksheets("Feuille1")
'Set myWorksheet = ActiveSheet

LastRow = myWorksheet.Cells(myWorksheet.Rows.Count, "A").End(xlUp).Row 'si la dernière ligne n'est pas dans la colonne A, changez la lettre de la colonne
Debug.Print LastRow
myCmPointsBase = Application.CentimetersToPoints(0.5) ' Application.CentimeterToPoints méthode convertit 0,5 centimètre en points (calcul des marges)...
Trier par date Trier par votes
Bonjour Julien, le forum

L’Enregistreur de macro me dit ça ....
ActiveWindow.Zoom = 110
VB: 
Sub Full_impr()

    Set fin = Range("Suivi_Forma!Full_jusquà")
   
    Sheets("Impr.ADC").Select
    Range("B1:F" & fin).Select
   
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        Application.PrintCommunication = True
        ActiveSheet.PageSetup.PrintArea = ""
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.25)
            .BottomMargin = Application.InchesToPoints(0.25)
            .HeaderMargin = Application.InchesToPoints(0.25)
            .FooterMargin = Application.InchesToPoints(0.25)
            .PrintQuality = 300
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .BlackAndWhite = False
            '.Zoom = 110
        End With

       ActiveWindow.Zoom = 110

        If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Selection.PrintOut
End Sub

@Phil69970
 
Vote positif 0 Vote négatif
Phil69970 à dit:
Bonjour Julien, le forum

L’Enregistreur de macro me dit ça ....
ActiveWindow.Zoom = 110
VB: 
Sub Full_impr()

    Set fin = Range("Suivi_Forma!Full_jusquà")
  
    Sheets("Impr.ADC").Select
    Range("B1:F" & fin).Select
  
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        Application.PrintCommunication = True
        ActiveSheet.PageSetup.PrintArea = ""
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.25)
            .BottomMargin = Application.InchesToPoints(0.25)
            .HeaderMargin = Application.InchesToPoints(0.25)
            .FooterMargin = Application.InchesToPoints(0.25)
            .PrintQuality = 300
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .BlackAndWhite = False
            '.Zoom = 110
        End With

       ActiveWindow.Zoom = 110

        If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Selection.PrintOut
End Sub

@Phil69970
Cliquez pour agrandir...
merci Phil pour votre réponse,
je n'ai pas l'impression que ça change la moindre chose malheureusement....

De plus je viens de me rendre compte que mon code ne fonctionne pas... je comprends rien au vba pour imprimer 😩
J'ai essayé de lancer une impression manuellement en mettant des paramètres totalement contraire à ce que je veux (format paysage par exemple) avec le vba. Et lorsque je lance mon code ça reste sur ces paramètres (paysage ... alors que je veux portrait).
Une idée ?
 
Vote positif 0 Vote négatif
Bonjour à tous

Je vous laisse ici un exemple, il vous suffit de l'adapter au code de votre projet


VB: 
Private Sub impressionFeuille() ' impression

Dim myWorksheet As Worksheet
Dim iCounter As Long
Dim myCmPointsBase As Single ' pour définir les marges et les tailles de l'image, s'il y a une image
Dim LastRow As Long

Set myWorksheet = Application.ThisWorkbook.Worksheets("Feuille1")
'Set myWorksheet = ActiveSheet

LastRow = myWorksheet.Cells(myWorksheet.Rows.Count, "A").End(xlUp).Row 'si la dernière ligne n'est pas dans la colonne A, changez la lettre de la colonne
Debug.Print LastRow
myCmPointsBase = Application.CentimetersToPoints(0.5) ' Application.CentimeterToPoints méthode convertit 0,5 centimètre en points (calcul des marges)
Debug.Print myCmPointsBase

With myWorksheet
    .ResetAllPageBreaks ' réinitialiser toutes les pages "breaks"
'--------------------------------------------------------------------------
' faites attention aux lignes suivantes, changez la ligne de rupture si nécessaire, faites attention à l'orientation de la feuille
'--------------------------------------------------------------------------
    For iCounter = LastRow To 1 Step 50 ' ajoute un page "break" toutes les 50 lignes de la ligne 1 à la dernière ligne définie (lastrow)
        .HPageBreaks.Add .Cells(iCounter, 1)
    Next iCounter
'--------------------------------------------------------------------------
        With .PageSetup
            .PrintArea = "A1:k" & LastRow ' zone d 'impression (changez la lettre de la dernière colonne si nécessaire)
            .PaperSize = xlPaperA4 ' taille de papier
'--------------------------------------------------------------------------
' choisissez une option
'--------------------------------------------------------------------------
            .Orientation = xlPortrait ' orientation de la feuille
'            .Orientation = xlLandscape ' orientation de la feuille
'--------------------------------------------------------------------------
            .Zoom = False '  (1/3)... si faux -> pour que la feuille soit dimensionnée en fonction des propriétés FitToPagesTall et FitToPagesWide
            .FitToPagesTall = False '  (2/3)... si faux -> permet de déterminer la mise à l'échelle par une seule propriété: FitToPagesWide
            .FitToPagesWide = 1 '   (3/3)... Échelle de la feuille à 1 page de large
            .PrintGridlines = False ' si vrai (imprime les bordures de cellule) // si faux (ne s'imprime pas)
            .PrintHeadings = False ' si vrai (les titres des lignes et des colonnes sont imprimés) // si faux (ne s'imprime pas)
            .PrintTitleRows = myWorksheet.Rows(12).Address ' (row 12)... spécifie qu'une ligne est répétée comme ligne d'en-tête en haut de chaque page imprimée
'--------------------------------------------------------------------------
' faites attention à la ligne suivante ... dépend de chaque PC et imprimante, pour des raisons de sécurité, faites un test, si cela fonctionne, ok, sinon, laissez-le désactivé
'--------------------------------------------------------------------------
'            .PrintQuality = -3 ' changer la valeur
'--------------------------------------------------------------------------
            .FooterMargin = myCmPointsBase * 2 ' marge de pied de page
            .HeaderMargin = myCmPointsBase * 2 ' Marge d'en-tête
            .AlignMarginsHeaderFooter = True ' si vrai (Aligne les en-têtes et les pieds de page avec les marges droite et gauche) // si faux (ne s'aligne pas)
            .TopMargin = myCmPointsBase * 5 ' Marge supérieure
            .RightMargin = myCmPointsBase * 3 ' Marge droite
            .BottomMargin = myCmPointsBase * 5 ' marge inférieure
            .LeftMargin = myCmPointsBase * 3 ' Marge de gauche
            .CenterHorizontally = True ' centre de la feuille horizontalement
            .CenterVertically = False ' centrer la feuille verticalement
            .CenterFooter = "&Imon texte ici" ' définit le pied de page central pour afficher le texte "Imprimé par ordinateur". Utilisez le code de formatage & B pour activer / désactiver l'impression en gras
            .RightFooter = "Page  &P de &N" ' définit le pied de page droit pour afficher le numéro de page à partir du nombre total de pages ... utiliser les codes & P et & N. & P imprime le numéro de page. & N imprime le nombre total de pages
'--------------------------------------------------------------------------
'* ligne suivante, les procédures pour l'image sont désactivées, il suffit de mettre ici pour la démonstration - step(1/3)
'--------------------------------------------------------------------------
'            .CenterHeader = "&G" ' Définir l'en-tête central (Autoriser l'image)
'--------------------------------------------------------------------------
            .CenterHeader = "&D" & " - " & "&T" ' Définir l'en-tête de texte central
'--------------------------------------------------------------------------
'* lignes suivantes, les procédures pour l'image sont désactivées, il suffit de mettre ici pour la démonstration - step(2/3)
'--------------------------------------------------------------------------
            With .CenterHeaderPicture
'                .FileName = "C:\...\image.jpg"
'                .ColorType = msoPictureAutomatic
'                .LockAspectRatio = msoTrue
'                .Height = myCmPointsBase * 2
            End With
'--------------------------------------------------------------------------
            .OddAndEvenPagesHeaderFooter = True ' si vrai (l'en-tête et les pieds de page diffèrent entre les pages paires et impaires) // si faux (ne diffèrent pas)
                With .EvenPage
                    .CenterFooter.Text = "&Bmon texte ici" ' définir le centre des pages paires
                    .RightFooter.Text = "mon texte ici &P de &N" ' définir le "pied de page" pour les pages paires
                    With .CenterHeader
'                        .Text = "&G"
                        .Text = "mon texte ici"
'--------------------------------------------------------------------------
'* lignes suivantes, les procédures pour l'image sont désactivées, il suffit de mettre ici pour la démonstration - step(3/3)
'--------------------------------------------------------------------------
                        With .Picture
'                            .FileName = "C:\...\image.jpg"
'                            .ColorType = msoPictureAutomatic
'                            .LockAspectRatio = msoTrue
'                            .Height = myCmPointsBase * 2
                        End With
'--------------------------------------------------------------------------
                    End With
                     .RightHeader.Text = "mon texte ici" ' texte qui n'apparaîtra que sur les pages paires
                End With
        End With
'        Unload Me ' dans le cas des formulaires utilisateur, pour afficher l'aperçu avant impression
'        .PrintPreview ' aperçu avant impression
    .PrintOut ' imprimer
End With

If Not myWorksheet Is Nothing Then Set myWorksheet = Nothing

'-------------------------------------------------------------------------------------------------------
'                                     INDICE
'-------------------------------------------------------------------------------------------------------
'Propriétés (LeftHeader, CenterHeader, RightHeader, LeftFooter, CenterFooter, and RightFooter)
'-------------------------------------------------------------------------------------------------------
'VBA code       /       La Description
'_______________/____________________________________________________________________________________
    '&D             Imprime la date actuelle.
    '&T             Imprime l 'heure actuelle.
    '&F             Imprime le nom du document.
    '&A             Imprime le nom de l'onglet du classeur.
    '&P             Imprime le numéro de page.
    '&P+number      Imprime le numéro de page plus le numéro spécifié.
    '&P-number      Imprime le numéro de page moins le numéro spécifié.
    '&&             Imprime une seule "ampersand".
    '&N             Imprime le nombre total de pages dans le document.
    '&Z             Imprime le chemin du fichier.
    '&G             Insère une image.
    
    
'Format  code    /     La Description
'_______________/____________________________________________________________________________________
    '&L             Gauche aligne les caractères qui suivent.
    '&C             Centre les caractères qui suivent.
    '&R             Aligne à droite les caractères qui suivent.
    '&E             Active ou désactive l'impression à double soulignement.
    '&X             Active ou désactive l'impression en exposant.
    '&Y             Active ou désactive l'impression d'indices.
    '&B             Active ou désactive l'impression en gras.
    '&I             Active ou désactive l'impression en italique.
    '&U             Active ou désactive l'impression de soulignement.
    '&S             Active ou désactive l'impression barrée.
    '&"fontname"    Imprime les caractères qui suivent dans la police spécifiée. Assurez-vous d'inclure les guillemets doubles.
    '&nn            Imprime les caractères qui suivent dans la taille de police spécifiée. Utilisez un nombre à deux chiffres pour spécifier une taille en points.
    '&color         Imprime les caractères dans la couleur spécifiée. L'utilisateur fournit une valeur de couleur hexadécimale.
    '&"+"           Imprime les caractères qui suivent dans la police Heading du thème actuel. Veillez à inclure les guillemets doubles.
    '&"-"           Imprime les caractères qui suivent dans la police Corps du thème actuel. Assurez-vous d'inclure les guillemets doubles.
    '&K xx. S nnn   Imprime les caractères qui suivent dans la couleur spécifiée à partir du thème actuel,
    '                   (xx) est un nombre à deux chiffres de 1 à 12 qui spécifie la couleur du thème à utiliser,
    '                   (S) nnn spécifie la nuance (teinte) de cette couleur de thème. Spécifiez S comme + pour produire une teinte plus claire; spécifiez S comme - pour produire une teinte plus foncée,
    '                   (nnn) est un nombre entier à trois chiffres qui spécifie un pourcentage compris entre 0 et 100.
    '               Si les valeurs qui spécifient la couleur ou la nuance du thème ne sont pas dans les limites décrites, Excel utilisera la valeur valide la plus proche.
'-------------------------------------------------------------------------------------------------------
'                                     INDICE
'-------------------------------------------------------------------------------------------------------
End Sub
 
Vote positif 0 Vote négatif
Solution
Julien

Lance excel avec un nouveau classeur et copie mon code dans un module vba et tu verras que cela fonctionne...le zoom s'adapte.
*Enleve ses 3 lignes avant :
Set fin = Range("Suivi_Forma!Full_jusquà")
Sheets("Impr.ADC").Select
Range("B1:F" & fin).Select

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Phil69970 à dit:
Julien

Lance excel avec un nouveau classeur et copie mon code dans un module vba et tu verras que cela fonctionne...le zoom s'adapte.
*Enleve ses 3 lignes avant :
Set fin = Range("Suivi_Forma!Full_jusquà")
Sheets("Impr.ADC").Select
Range("B1:F" & fin).Select

@Phil69970
Cliquez pour agrandir...
Bonjour Phil,

Je viens d'essayer, ton code fonctionne bien mais le zoom RAS. Que je mette ActiveWindow.Zoom = 50 ou ActiveWindow.Zoom = 110 le pdf est identique mis à part que une forme que j'ai mis disparaît 😅
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous

Ce code fonctionne chez moi sur une nouvelle feuille excel

VB: 
Sub Full_impr()

'    Set fin = Range("Suivi_Forma!Full_jusquà")
'
'    Sheets("Impr.ADC").Select
'    Range("B1:F" & fin).Select
  
        Application.PrintCommunication = False
'        With ActiveSheet.PageSetup
'            .PrintTitleRows = ""
'            .PrintTitleColumns = ""
'        End With
        Application.PrintCommunication = True
        ActiveSheet.PageSetup.PrintArea = ""
        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
            .Zoom = 250
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.25)
            .BottomMargin = Application.InchesToPoints(0.25)
            .HeaderMargin = Application.InchesToPoints(0.25)
            .FooterMargin = Application.InchesToPoints(0.25)
            '.PrintQuality = 300
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .BlackAndWhite = False
        End With

       ' ActiveWindow.Zoom = ActiveSheet.PageSetup.Zoom '100

        If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Selection.PrintOut
End Sub

@Phil69970
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
97
CortoXls
C
B
  • Résolu(e)
XL 2016 concours / Macro imprimer le texte au maximum selon les pages
Réponses
10
Affichages
719
berru76
B
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
568
candido57
C
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
673
berru76
B
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
TooFatBoy
M
  • Question Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
545
herve62
herve62
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
473
Mika07
M
B
  • Résolu(e)
XL 2016 Macro imprimer que les cellules pleines
Réponses
6
Affichages
955
berru76
B
B
  • Question Question
XL 2010 VBA Modification de l’en-tete
2
Réponses
21
Affichages
2 K
BigJose
B
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
Staple1600
B
  • Question Question
Microsoft 365 RESOLU Problème vue sur page après Impréssion
Réponses
8
Affichages
1 K
Bambi35
B
Phillip
  • Question Question
XL 2016 Erreur avec boucle Do while
Réponses
3
Affichages
1 K
Phillip
Phillip
P
  • Résolu(e)
XL 2019 Problème lancement impression
Réponses
6
Affichages
920
Pieerre69
P
B
  • Question Question
XL 2013 ma première macro
Réponses
1
Affichages
606
Big66677
B
C
  • Question Question
XL 2013 Problème définition d’une zone d’impression
Réponses
1
Affichages
729
kingfadhel
kingfadhel
D
  • Question Question
VBA pour imprimer auto
Réponses
14
Affichages
2 K
Dim.Reichart
D
P
  • Question Question
XL pour MAC Définir 2 zones d'impression pour 2 pages d'un même document (pdf)
Réponses
0
Affichages
777
pierrealti
P
D
  • Question Question
Microsoft 365 Masqué et trier des colonnes avant impression
Réponses
11
Affichages
1 K
fanch55
fanch55
F
  • Question Question
suppréssion de ligne
Réponses
13
Affichages
1 K
faguer
F
3xceln4ute
  • Question Question
[Résolu] Erreur 1004 .PaperSize = xlPaperLegal
Réponses
3
Affichages
6 K
3xceln4ute
3xceln4ute
Retour