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 Accro
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 Accro
Re,

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

Bonne après-midi
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas