? UserForm2.PrintForm ?
Private Sub CommandButton106_Click() 'aktuelles Blatt drucken:
With ActiveSheet
'Druckbereich festlegen:
.PageSetup.PrintArea = "$A$1:$AO$26"
'Drucken:
.PrintOut Copies:=1, Collate:=True
'Druckbereich aufheben:
.PageSetup.PrintArea = ""
End With
End Sub
Hat jemand eine Idee