VBA: Tabellenblatt mit Userform ausdrucken
18.02.2008 21:04:56
mario
? 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
Anzeige