Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Christophe78129

XLDnaute Nouveau
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

XLDnaute Impliqué
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".
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…