userform et impression

[jenoca]

Bonjour a tous.

Voici mon petit probleme, j'ai créer un userform me permettant de sélectionner different classeurs et je voudrais ajouter des boutons d'option pour lancer une impression selon le choix (couleur/noir et blanc).

comment puis-je faire?

Merci a ceux qui voudrons bien m'aider.

a+

 

[Zon]

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+++