Autres Impression par VBA

FOUQUET Yves · 17 Juin 2019

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

Hasco · 17 Juin 2019

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

FOUQUET Yves · 17 Juin 2019

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

Hasco · 17 Juin 2019

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 · 17 Juin 2019

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

Autres Impression par VBA

FOUQUET Yves

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

FOUQUET Yves

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

FOUQUET Yves

XLDnaute Occasionnel

Discussions similaires