Autres Impression par VBA

FOUQUET Yves

XLDnaute Occasionnel
Bonjour à toutes et tous,

Quelqu'un peut me dire ce que je dois changer dans ces lignes pour que l'impression s'arrête à la dernière ligne complétée ?
sachant que j'ai mis le cadrillage actif sur une très grande partie de la feuille...
Je pense que cela se situe dans ma plage de cellule mais qu'y mettre.. ?
Ma feuille s'appelle "conteneur" et elle est à nombre de ligne variant.

VB:
Private Sub Commandbutton3_Click()  '---- imprimer ----
With Sheets("conteneur")
.PageSetup.PrintArea = "A1:H350": .PageSetup.PaperSize = xlPaperA4
.PageSetup.FitToPagesWide = 1: .PageSetup.FitToPagesTall = 1
.PrintOut Copies:=1, Collate:=True
End With
End Sub

Et si je veux passer par la prévisualisation de mon impression comment dois-je modifier ces lignes ?
Merci de votre aide.
Yves
 

Roblochon

XLDnaute Impliqué
Bonjour,

Sans doute ceci, qui lancera la prévisualisation de A1 à H? où ? est le dernier index de ligne occupé dans la colonne A.
VB:
Private Sub Commandbutton3_Click()  '---- imprimer ----
    With Sheets("conteneur")
        .PageSetup.PrintArea = "A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row
        .PageSetup.PaperSize = xlPaperA4
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1
        .PrintPreview
        '.PrintOut Copies:=1, Collate:=True
    End With
End Sub
bon après-midi au frais
 

Roblochon

XLDnaute Impliqué
Re,

Il n'était pas question de ça dans la demande. Mettez la propriété ShowModal du userForm à False.

Bonne après-midi
 

Discussions similaires


Haut Bas