Inhalt aus Listbox drucken

Private Sub CommandButton3_Click()
'''''Drucken
Dim arrList, wsTmp As Worksheet
Dim Loletzte As Long
If ListBox1.ListCount > 0 Then
arrList = ListBox1.List
Set wsTmp = Worksheets.Add(after:=Sheets(Sheets.Count))
With wsTmp
.Cells(1, 1).Resize(UBound(arrList), UBound(arrList, 2)) = arrList
.Columns.AutoFit
'      .PrintOut    'Ausdrucken
End With
UserForm3.Hide
'    wsTmp.PageSetup.PrintArea = "$A$1:$E$15"
Loletzte = 65536
If Range("E65536") = "" Then Loletzte = Range("E65536").End(xlUp).Row
wsTmp.PageSetup.PrintArea = "$A$1:$E$" & Loletzte
wsTmp.PrintPreview
UserForm4.Show
''      Application.DisplayAlerts = False
''      .Delete
''      Application.DisplayAlerts = True
''    End With
End If
End Sub