Drucken
17.01.2004 01:50:05
Stefan Glander
ich möchte von Tabellenblatt "A" über einen Commandbutton den Bereich A4:F16 drucken.
Wo ist mein Fehler im Code?
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
ausblenden
PageCount
ActiveSheet.PrintOut Copies:=1
Sheets(61).Select
Range("A4:F16").Select
Selection.PrintOut Copies:=1
einblenden
PageCount
Application.ScreenUpdating = True
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Danke vorab
Gruss
Stefan Glander