Druckt nicht alles markierte aus der Listbox
07.03.2009 13:54:31
Lara
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click()
Dim varPrintTable() As String
Dim iTable As Integer, iVar As Integer
Dim x As Long
x = Application.Dialogs(xlDialogPrinterSetup).Show
If x = True Then
iVar = 1
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
ReDim Preserve varPrintTable(iVar)
varPrintTable(iVar) = ListBox1.List(iTable)
iVar = iVar + 1
End If
Next iTable
If iVar = 1 Then
MsgBox "Es ist kein Tabellenblatt zum Drucken gewählt!"
Else
'Application.Visible = False
Sheets(varPrintTable).PrintOut
End If
Exit Sub
End If
End Sub
Würde gerne auf Hilfe hoffen
Danke
Lara
Anzeige