Druckbereich per Optionsfeld festlegen
13.02.2003 07:16:48
Jens
per optionButton soll der Druckbereich im TB festgelegt werden. Ich habe schon einen Code von der Herber-CD ausprobiert aber ich erhalte immer die Fehlermeldung "Die PrintArea-Eigenschaften des PageSetup Objektes kann nicht festgelegt werden".
Wo könnte da der Fehler liegen?
Private Sub CommandButton3_Click()
'ActiveSheet.ScrollArea = ""
If OptionButton1 = True Then
ActiveSheet.PageSetup.PrintArea = "A1:G6,A7:G36"
ElseIf OptionButton2 = True Then
ActiveSheet.PageSetup.PrintArea = "A1:G6,A39:G69"
Else
Exit Sub
End If
ActiveSheet.PrintPreview
End Sub
Danke für eure Hilfe im Voraus Jens
Anzeige