Clever-Excel-Forum

Hallo zusammen, ich wollte mal fragen ob es eine Möglichkeit gibt zwei Arbeitsblätter gleichzeitig zu drucken. Das erste Blatt (Seite_1_Übersicht) und das zweite (Seite_2_Namenliste) aus einer Excel Datei, das erste hochformat und das zweite auf die Rückseite Querformat. Oder geht sowas nicht? Danke für Eure Hilfe und einen schönen Tag! PS: Bin Anfänger

Hallo Andreas,

das sollte gehen.
Du musst das erste Blatt als Hochformat definieren (Seitenlayout -> Seite einrichten -> Ausrichtung) und das zweite als Querformat.
Dann wählst Du beide Blätter aus (Strg + Reiter anklicken).

Dein Drucker muss dann natürlich auf beidseitigen Druck eingestellt sein.

Sollten deine Blätter nicht auf eine Seite passen, kannst Du über Seitenlayout -> An Format anpassen die Größe einstellen.

Gruß,
Lutz

Danke Lutz, kann ich das ganze auch als Macro aufzeichnen und als Macro nutzen?

Hi,

probiere es doch einfach aus. Poste dann das Makro hier und es kann gemeinsam verallgemeinert und verkürzt werden.

Dann sollten die Blätter ihren Namen zukünftig nicht ändern, da diese ja fix im Makro stehen.

Sub zwei_seiten_drucken()
'
' zwei_seiten_drucken Makro
'

'
    Range("B1:I39").Select
    Range("H39").Activate
    ActiveSheet.PageSetup.PrintArea = "$B$1:$I$39"
    Sheets("Seite_2_Namenliste").Select
    ActiveSheet.PageSetup.PrintArea = "$B$1:$AF$39"
    Sheets(Array("Seite_1_Übersicht", "Seite_2_Namenliste")).Select
    Sheets("Seite_2_Namenliste").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets(Array("Seite_1_Übersicht", "Seite_2_Namenliste")).Select
    Sheets("Seite_1_Übersicht").Activate
    ActiveWindow.SmallScroll Down:=-36
    Range("B20:E30").Select
    ActiveCell.FormulaR1C1 = "Name:" & Chr(10) & ""
    Sheets(Array("Seite_1_Übersicht", "Seite_2_Namenliste")).Select
    Sheets("Seite_2_Namenliste").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("G6").Select
End Sub

Hi,

mein aufgezeichnetes Makro sieht so aus:
Modul Modul1

Option Explicit 
 
Sub zweiBlaetterDrucken() 
' 
' zweiBlaetterDrucken Makro 
' 
 
' 
    Sheets(Array("Tabelle1", "Tabelle2")).Select 
    Sheets("Tabelle1").Activate 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sollte reichen

Hi,

so funktioniert Dein Makro als verkürzte Version:

Sub zwei_seiten_drucken()
' 
' zwei_seiten_drucken Makro 
' 

' 
    Sheets("Seite_1_Übersicht").PageSetup.PrintArea = "$B$1:$I$39"
    Sheets("Seite_2_Namenliste").PageSetup.PrintArea = "$B$1:$AF$39"
    Sheets(Array("Seite_1_Übersicht", "Seite_2_Namenliste")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Seite_1_Übersicht").Range("B20:E30").FormulaR1C1 = "Name:" & Chr(10) & ""
    Sheets("Seite_2_Namenliste").Activate
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Danke schon mal, es kommt jetzt auf zwei Blättern aus dem Drucker, geht es auch auf der Rückseite auf dem ersten Blatt ? ich habe vor dem ausführen des Macro auf beidseitig gestellt!

Hi,

wenn Du den Druckbereich (oder die Spaltenbreite) so einstellst, daß das Blatt "Seite_1_Übersicht" auf eine Seite passt, dann wird die Seite 2 auf die Rückseite des Blattes 1 gedruckt.

Gruß Ralf