Druckbereich per VBA

[Steffl]

Hallo Thomas,

kann ich nicht nachvollziehen. Bei mir wird der Druckbereich gesetzt.

Noch PS: Verbundene Zellen verursachen manchmal Probleme.

[knallebumm]

Jup Sorry mein Fehler.
Muß dann noch auf Druckbereich gehen.
DAs war bei meinem alten Code anders, daher war ich etwas verwirrt.
Habe noch

ActiveWindow.SelectedSheets.PrintPreview

angefügt damit mir gleich die Vorschau aufgemacht wir, da ich von FAll zu FAll verschiedene Plotter nehmen muß.
Danke und Gruß
Thomas

[knallebumm]

Das mit den verbunden Zellen ist mir auch klar.
Aber in dieser Tabelle werden sie unbedingt gebraucht, da ich sie manchmal Bauteilbedingt teilen muß.
Und wenn ich das ohne die Zellen mache funktionieren die andern Codes nicht mehr die in der Forumstabelle nicht mit drin waren.
Hat was mit dem Arbeitsablauf und der Übergabe an die Maschine zu tun.

Gruß
Thomas

[Steffl]

Hallo Thomas,

Habe noch

ActiveWindow.SelectedSheets.PrintPreview

angefügt damit mir gleich die Vorschau aufgemacht

da würde ich es eher mit

Code:

.PrintPreview

versuchen.

[Kuwer]

Hallo Stefan,

        If .Range(vntZelle(lngC)) <> "" Then .PageSetup.PrintArea = .Range("B2:Z" & CStr(vntBereich(lngC))).Address

würde da nicht auch .PageSetup.PrintArea = "B2:Z" & vntBereich(lngC) reichen?

Gruß Uwe

[Steffl]

Hallo Uwe,

ja, Du hast Recht. Das würde auch reichen.