Autres Impression par VBA

[FOUQUET Yves]

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.

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

 

[Hasco]

Bonjour,

Sans doute ceci, qui lancera la prévisualisation de A1 à H? où ? est le dernier index de ligne occupé dans la colonne A.

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

 

[FOUQUET Yves]

OK mais mon userform reste au premier plan ce qui empêche toute manipulation sur le preview...

 

[Hasco]

Re,

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

Bonne après-midi

 

[FOUQUET Yves]

Bien et merci infiniment. Oui, après midi au fais car aujourd'hui ça tape...
Cordialement.
Yves