Imprimer que ce qu'il faut ?

Bonjour le forum,

Comment arriver à IMPRIMER que ce qu'il faut ?

Merci de votre précieuse collaboration.

margar

9test-imp.7z (57.03 Ko)

Bonjour,

C'est la colonne M qui peut te définir la dernière ligne à imprimer,

ici zoom impression = 130, ce qui détermine les saut de page (ici 28), à régler.

Sub imprime1() 'colonnes A:J
Dim Lg&, i%, Sp%, Rep%
    Lg = Range("m" & Rows.Count).End(xlUp).Row
    Sp = 28                                 'définition sauts de page
    With ActiveSheet
        .ResetAllPageBreaks                 'efface sauts de pages existants
        .PageSetup.PrintTitleRows = "$1:$2" 'lignes titre
        .PageSetup.PrintArea = "a1:j" & Lg
        .PageSetup.Zoom = 130               'à définir avec Sp

            For i = 1 To Lg / Sp
                .HPageBreaks.Add Before:=Rows(i * Sp + 2)
            Next i
        .PrintPreview                       'apperçu
      Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
        If Rep = vbYes Then
            .PrintOut
        End If
   End With
End Sub

Pour colonnes AO:AS, tu fais un autre bouton en adaptant cette ligne

.PageSetup.PrintArea = "ao1:as" & Lg

Amicalement

Claude

@ Claude

Merci pour ton aide afin de pouvoir lancer des imprssions correctes

Amicalement

margar


MARGAR a écrit :

@ Claude

Merci pour ton aide afin de pouvoir lancer des imprssions correctes

Amicalement

margar

Rechercher des sujets similaires à "imprimer que faut"