Bonjour et merci d'avance.
Voila je genere divers feuilles suite à leurs selections par une listbox puis les immprime par pd creator dans un seul fichier . Tous cela est ok grace à vous.
Je desirerais maintenant aller plus loin c'est a dire imprimer uniquement les ilgnes remplie de chaque feuille pour economie de papier et d'encres.
With PdfJob
For i = 0 To IMPRIMER.ListBox1.ListCount - 1
If IMPRIMER.ListBox1.Selected(i) = True Then Sheets(ListBox1.list(i)).Range("A1:ActiveCell.SpecialCells(xlLastCell).Address").PrintOut copies:=1, ActivePrinter:="PDFCreator"
cpt = cpt + (ListBox1.Selected(i) * -1)
Next
End With.
Mon probleme est dans le Range pour selectionner mon tableau de A1 vers dernires ligne remplie.
Merci d'avance
Voila je genere divers feuilles suite à leurs selections par une listbox puis les immprime par pd creator dans un seul fichier . Tous cela est ok grace à vous.
Je desirerais maintenant aller plus loin c'est a dire imprimer uniquement les ilgnes remplie de chaque feuille pour economie de papier et d'encres.
With PdfJob
For i = 0 To IMPRIMER.ListBox1.ListCount - 1
If IMPRIMER.ListBox1.Selected(i) = True Then Sheets(ListBox1.list(i)).Range("A1:ActiveCell.SpecialCells(xlLastCell).Address").PrintOut copies:=1, ActivePrinter:="PDFCreator"
cpt = cpt + (ListBox1.Selected(i) * -1)
Next
End With.
Mon probleme est dans le Range pour selectionner mon tableau de A1 vers dernires ligne remplie.
Merci d'avance
