Kann man den Code unten so ändern, dass die Überschriften mit ausgedruckt werden und das ganze mittig auf dem Blatt erscheint? Eventuell noch in Tabellenform und jede 2. Zeile farblich?
Gruß Michael
Private Sub CommandButton1_Click()
Dim zeLB As Long, spLB As Long
Dim zeTB As Long, spTB As Long
Dim allesDrucken As Boolean
' Zellen leeren
Range("Druckvorlage!A2:P1000") = ""
' Querformat festlegen
Worksheets("Druckvorlage").PageSetup.Orientation = xlLandscape
'--- Drucker auswählen
Application.Dialogs(xlDialogPrinterSetup).Show
'-- Prüfen, ob alles gedruckt werden muss
For zeLB = 0 To ListBox1.ListCount - 1
allesDrucken = allesDrucken Or ListGeb.Selected(zeLB)
Next
zeTB = 1
'--- selektierte Listboxeinträge in Zellen schreiben
For zeLB = 0 To ListGeb.ListCount - 1
If ListGeb.Selected(zeLB) Or Not allesDrucken Then
zeTB = zeTB + 1
For spLB = 0 To ListGeb.ColumnCount - 1
Sheets("Druckvorlage").Cells(zeTB, spLB + 1) = ListGeb.List(zeLB, spLB)
Next
End If
Next
Sheets("Druckvorlage").Visible = True
' Drucke Tabellenblatt
Worksheets("Druckvorlage").PrintOut
Sheets("Druckvorlage").Visible = False
End Sub