2 Druckbereiche in 1 Pdf mit 2 Seiten drucken

[darkdan]

Guten Tag zusammen,

ich habe gerade folgendes Problem:

Ich versuche mit einem Button 2 Druckbereiche in einem pdf mit zwei Seiten zu drucken.
Allerdings schaff ich entweder nur den ersten Druckbereich oder nur den zweiten.

mein code:

Code:

Dim ActivePrinter As String

   ActivePrinter = Application.ActivePrinter
'        MsgBox (ActivePrinter)

   Application.ActivePrinter = DDrucker
'        MsgBox (Application.ActivePrinter)
   Rows(Z_off).RowHeight = 0
   ActiveSheet.PageSetup.PrintArea = ("A$48:$AE$95")
   ActiveSheet.PageSetup.CenterVertically = True
   ActiveSheet.PageSetup.CenterHorizontally = True
    ActiveSheet.PageSetup.PrintArea = ("A$251:$AE$293")
   ActiveSheet.PageSetup.CenterVertically = True
   ActiveSheet.PageSetup.CenterHorizontally = True
   ActiveSheet.PrintOut
   Application.ActivePrinter = ActivePrinter
   Rows(Z_off).RowHeight = 13

'        MsgBox (ActivePrinter)

Habe auch schon folgendes probiert:

Code:

Dim ActivePrinter As String

   ActivePrinter = Application.ActivePrinter
'        MsgBox (ActivePrinter)

   Application.ActivePrinter = DDrucker
'        MsgBox (Application.ActivePrinter)
   Rows(Z_off).RowHeight = 0
   ActiveSheet.PageSetup.PrintArea = ("A$48:$AE$95" & "A$251:$AE$293")
   ActiveSheet.PageSetup.CenterVertically = True
   ActiveSheet.PageSetup.CenterHorizontally = True
    ActiveSheet.PrintOut
   Application.ActivePrinter = ActivePrinter
   Rows(Z_off).RowHeight = 13

'        MsgBox (ActivePrinter)

Allerdings komme ich gerade nicht weiter, und wollte fragen ob ihr mir da evtl weiterhelfen könnt?
mfg Darkdan

[schauan]

Hallo Darkdan,

soweit ich weiß, ergibt doch jeder Druckbereich mindestens seine eigene Seite.

Zwei Druckbereiche legst Du z.B. so fest (aufgezeichnet):

Code:

ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
        "=Tabelle1!R1C1:R10C1,Tabelle1!R1C3:R10C3"

[darkdan]

Hallo Darkdan,

soweit ich weiß, ergibt doch jeder Druckbereich mindestens seine eigene Seite.

Zwei Druckbereiche legst Du z.B. so fest (aufgezeichnet):

Code:

   ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
       "=Tabelle1!R1C1:R10C1,Tabelle1!R1C3:R10C3"

Danke erstmal für den Code.
Da ich jedoch noch ziemlicher VBA-Neuling bin, komm ich damit alleine nicht weiter.

zum Verständnis:

man erstellt mit dem Code einen Bereich namens "Print_Area";
der beeinhaltet den Inhalt der Zellen Reihe 1 Spalte 1 bis Reihe 10 Spalte 1, und  Reihe 1 Spalte 3 bis Reihe 10 Spalte 3;


mein normales Druckvorgehen wäre dann wie? Weil ActiveSheet.Printout produziert mir wieder nur die erste Seite als PDF.


mfg Darkdan

[schauan]

Hallo Darkdan,

der Punkt bei der Lösung ist das Komma oder verständlicher ausgedrückt:

Du verbindest in Deinem Code zwei Bereiche mit dem & - mal kurz im Prinzip so: "1" & "2"
Korrrekt wäre die Verbindung mit einem Komma, innerhalb einer Zeichenkette, also im Prinzip so: "1, 2" - bei Dir ("A$48:$AE$95, A$251:$AE$293")

Wenn Du den Druckbereich wie in Deinem ersten Makro auf einem Blatt 2x unterschiedlich festlegst, wird bei der 2. Festlegung die erste überschrieben.

In meinem Beispiel steht noch was mit R1C1, aber das ist ein anderes Thema. Das ist eine Zell- oder Bereichsangabe in Form der Zeilen- (R wie Row) und Spaltennummern (C wie Column).

[darkdan]

Vielen Dank, 


damit haben sich die Probleme gelöst.


mfg Darkdan