Liste drucken mit Überschriften
03.02.2019 19:00:42
Tobi
Ich bitte um Hilfe.
In meiner Kontaktliste als UserForm habe ich in der UserForm2 einen Button zum Drucken der Liste, bei dem nur der Inhalt der Liste gedruckt wird. Ich suche nun nach einer Möglichkeit, dies auch mit den Überschriften ausdrucken zu lassen. Die Überschriften liegen als TextBoxen vor.
Leider konnte ich beim Stöbern nichts darüber finden, wie man Überschriften als TextBoxen beim Drucken mit einbezieht.
Vielleicht hat jemand freundlicherweise einen Tipp.
Der Code zum Drucken:
Private Sub CommandButton3_Click()
Dim merkalarm As Boolean
merkalarm = Application.DisplayAlerts
Worksheets.Add after:=Sheets(Sheets.Count)
With UF2_Lb1
Sheets(Sheets.Count).Cells(3, 1).Resize(.ListCount, .ColumnCount) = .List
End With
Application.DisplayAlerts = False
With Sheets(Sheets.Count)
Sheets(Sheets.Count).PageSetup.Orientation = xlLandscape 'Querformat
.UsedRange.EntireColumn.AutoFit 'Spaltenbreite automatisch
.PrintOut
.Delete
End With
Application.DisplayAlerts = merkalarm
End Sub
https://www.herber.de/bbs/user/127390.xlsm