Bonjour
Je voudrais rajouter le recto-verso dans mon code qui ne permets de sélectionner les feuilles pour impression
Voici mon code avec un bouton :
Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.Hide
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
Next
End With
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
ListBox1.AddItem s.Name
Next
End Sub
Merci pour vos réponse
Je voudrais rajouter le recto-verso dans mon code qui ne permets de sélectionner les feuilles pour impression
Voici mon code avec un bouton :
Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.Hide
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
Next
End With
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
ListBox1.AddItem s.Name
Next
End Sub
Merci pour vos réponse