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

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

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

Salut Christophe,

à tester

Private Sub Impression_Click()

Dim DerLig As Long, i 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
    .ResetAllPageBreaks ' reseter les sauts de page
        For i = 29 To DerLig Step 28
            .HPageBreaks.Add Before:=.Cells(i, 1)
        Next
    .PrintPreview

End With
End Sub

Bonne journée

Bonsoir m3ellem1,

merci pour ta macro, je l'ai testé en essayant plusieurs solutions mais toujours le même soucis il n'imprime que sur 1 seule page.

Bonne soirée

Salut Christophe,

un fichier exemple pour tester?

Merci d'avance

Bonsoir m3ellem1,

Je joint le fichier pour l'exemple.

Bonne soirée