XL 2013 Problème définition d’une zone d’impression

Christophe78129 · 3 Février 2020

Bonjour,
J’ai un tableau que je voudrai imprimer mais j’ai un souci pour la mise en page.
Après avoir défini les marges, impression sur chaque page des 5 premières lignes, impression jusqu’à la dernière ligne non vide, je voudrai qu’il m’imprime que 28 lignes par pages, mais je ne sais pas comment faire.
Si quelqu’un à une idée.
Merci

Code:

Private Sub Impression_Click()

Dim DerLig As Long

Set aff = Sheets("affectation")

With aff

     DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row

    With .PageSetup

    .PrintTitleRows = "$A$1:$F$5"        'Copie 5 lignes sur chaque page
    .PrintArea = "A1:F" & DerLig        ‘Impression jusqu’à dernière ligne non vide
    .PaperSize = xlPaperA4            'Format A4
    .Orientation = xlPortrait            'Impression portrait
    .LeftMargin = Application.InchesToPoints(0.25)        'définition des marges
    .RightMargin = Application.InchesToPoints(0.25)
    .TopMargin = Application.InchesToPoints(0.25)
    .BottomMargin = Application.InchesToPoints(0.25)
    .Zoom = False
    .FitToPagesWide = 1            'adaptation largeur feuille

    End With

    .PrintPreview

End With

End Sub

kingfadhel · 3 Février 2020

Bonsoir,
voila le code qui te permet de créer des sauts de lignes après x lignes (28 dans ton cas)

VB:

Sub Sautdepage()
ActiveSheet.ResetAllPageBreaks
DerLig = Range("A5").End(xlDown).Row
For i = 34 To DerLig Step 28
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & i)
Next
End Sub

Bien sure en admettant que ton code de mise en page et fonctionnel.
Apèrs la mise en page tu exécute ce code soit en l'incluant juste après, soit en l'appelant par "Call".

XL 2013 Problème définition d’une zone d’impression

Christophe78129

XLDnaute Nouveau

kingfadhel

XLDnaute Impliqué

Discussions similaires