Druckbereich per Optionsfeld festlegen

Forumthread: Druckbereich per Optionsfeld festlegen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Druckbereich per Optionsfeld festlegen

13.02.2003 08:16:48

Jens

guten Morgen zusammen
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Druckbereich per Optionsfeld festlegen

13.02.2003 09:00:38

PETRA
Re: Druckbereich per Optionsfeld festlegen

13.02.2003 09:27:59

Jens
Re: Druckbereich per Optionsfeld festlegen

13.02.2003 09:47:07

Friedrich

Re: Druckbereich per Optionsfeld festlegen

13.02.2003 09:00:38

PETRA

Morgen Jens,

wenn ich das richtig sehe, hast Du zwischen den beiden Bereichen ein Komma eingegeben. Versuchsmal mit einem ; - Semmikolon.

Gruß
Petra

Re: Druckbereich per Optionsfeld festlegen

13.02.2003 09:27:59

Jens

Hallo Petra
ich habe das Komma durch ein Semmikolon ersetzt, aber Fehler besteht weiter

Jens

Re: Druckbereich per Optionsfeld festlegen

13.02.2003 09:47:07

Friedrich

Hallo Jens,
zeichne es doch mal im Makrorekorder auf und vergleiche den entstandenen Code mit deinem. Bin mir zudem nicht sicher, ob PrintArea ein zusammenhängender Bereich sein sollte. Der 1. Bereich ist sowieso zusammenhängend.

Gruß Friedrich

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!