Gruppe
Druck
Problem
Wie kann ich die in einer UserForm-ListBox per Mehrfachauswahl ausgewählten Tabellenblätter drucken lassen?
StandardModule: basMain
Sub CallForm()
frmDrucken.Show
End Sub
ClassModule: frmDrucken
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdDrucken_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
For iCounter = 0 To lstDrucken.ListCount - 1
If lstDrucken.Selected(iCounter) Then
Worksheets(lstDrucken.List(iCounter)).PrintOut
End If
Next iCounter
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In Worksheets
lstDrucken.AddItem wks.Name
Next wks
End Sub