userform et impression

Salut,

Tiens voici une procédure que j'utilise pour imprimer toutes les feuilles non vide d'un classeur

Sub Impression(NOmC As String, Toto As Boolean)
Dim WS As Worksheet
On Error Resume Next
For Each WS In Workbooks(NOmC).Worksheets
With WS
If Application.CountA(.UsedRange) <> 0 Then
.PageSetup.BlackAndWhite = Toto
.PrintOut
End If
End With
Next WS
End Sub


Si tu as les noms de classeur dans ta listbox tu l'appelles par exemple

impression listbox1.list(listbox1.listindex), True

Mettre true pour imprimer en noir et blanc false pour la couleur


A+++