habe folgende DruckBox. Ist es möglich, auch noch die Auswahl eines Druckers mit aufzurufen, so dass nicht immer auf dem Standard gedruckt wird (Laptops o.ä.)???
Private Sub PrintBtn_on_UserForm_Click()
Dim i%
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then _
Worksheets(.List(i)).PrintOut
Next i
End With
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
ListBox1.AddItem ws.Name
Next ws
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub