Ist es bitte möglich, den Inhalt einer mehrspaltigen Listbox in einer UF, also auch den nichtsichtbaren Teil auszudrucken?
Wenn ja, wie würde hier bitte eine Lösung lauten?
Danke
Josef
Private Sub CommandButton1_Click()
Dim PrintTab As Worksheet
Dim myAr
myAr = ListBox1.List
Set PrintTab = Worksheets.Add
PrintTab.Range("A1").Resize(Ubound(myAr, 1) + 1, Ubound(myAr, 2)) = myAr
PrintTab.Cells.EntireColumn.AutoFit
PrintTab.PrintOut
Application.DisplayAlerts = False
PrintTab.Delete
Application.DisplayAlerts = True
End Sub
Gruß Tino
PrintTab.PageSetup.Orientation = xlLandscape
'Gegenstück
PrintTab.PageSetup.Orientation = xlPortrait
Gruß Tino