Microsoft 365 zone impression cellule non vide

[gothc]

Bonjour le forum
je cherche comment faire a l'aide dune macro imprimer une zone D1 F300 de ma feuil3 mais uniquement la zone de cellule non vide avec un PrintPreview
pour éviter d'avoir 15 pages blanches
Merci pour votre aide

 

[Robert]

Bonjour Goth, bonjour le forum,

Tu donnes peu d'explications !... Tu pourrais définir la zone d'impression en utilisant CurrentRegion s'il n'y a pas de "trou" dans le tableau :

ActiveSheet.PageSetup.PrintArea = Range("D1").CurrentRegion.Address

ou Usedrange (pas toujours fiable) :

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

 

[gothc]

Merci pour ta réponse Robert j'ai adapté une macro qui fait le boulot qui fonctionne trés bien
j'ai besoin d'une petite modification crée une autre page impression après 60 ligne sinon ça devient illisible ( trop petit sur une seul page)
Merci

Private Sub CommandButton1_Click()
Dim DerLig As Long, i As Long, aff As Worksheet

'Impression des affectations des véhicules au format A4

Set aff = Sheets("Feuil3")

    With aff
    
        DerLig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row       'dernière ligne
        
        
    
            With .PageSetup
                  .PrintTitleRows = "$d$1:$F$1"             'Copie 5 lignes sur chaque page
                  .PrintArea = "d1:F" & DerLig              'Impression jusqu'à dernière ligne
                  .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
                  .FitToPagesTall = 1                               'adaptation hauteur feuille
                  .FitToPagesWide = 1                              'adaptation largeur feuille
            
            End With
            
            

    .PrintPreview

End With
End Sub

 

[gothc]

le fichier

 

[gothc]

J'ai trouvé une petite solution
je modifie = 2 pour Avoir 2 pages
.FitToPagesTall = 2 'adaptation hauteur feuil
.FitToPagesWide = 2