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 remplie, 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_A4_Click()

Dim DerLig As Long

'Impression au format A4

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

Travail 2.xlsm (90,2 Ko)

Bonsoir,
Pourquoi s’embêter avec des macros pour une impression?
Une bonne mise en page et on imprime
Travail 2.xlsm (85,2 Ko)

Bonne soirée

Bonjour mickeyrun,
Je suis d’accord avec toi, mais lorsque j’essaie d’imprimer je me retrouve toujours avec une seule feuille, alors que je voudrai que mon volet et les 28 lignes s’impriment sur la 1ere feuille, puis mon volet et les 28 lignes suivantes et ainsi de suite.
Bonne fin de journée

bonsoir,

dsl, mais j’avais oublié que t’avais définis une zone d’impression trop petite.
Travail 2.xlsm (86,2 Ko)

Cordialement

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.