ich habe eine UF Listbox wo ich die Tabellenblätter einlese.
Nun möchte ich über weine Mehrfachauswahl die Tabellenblätter drucken.
Wie kann ich dies machen?
Danke!
Gruß
Ludmila
Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(.List(i)).PrintOut
End If
Next
End With
End Sub