Registriert seit: 14.03.2023
Version(en): 2013
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
Registriert seit: 06.09.2016
Version(en): 2016
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
Registriert seit: 14.03.2023
Version(en): 2013
Danke Lutz, kann ich das ganze auch als Macro aufzeichnen und als Macro nutzen?
Registriert seit: 10.04.2014
Version(en): 2016 + 365
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.
Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:1 Nutzer sagt Danke an Rabe für diesen Beitrag 28
• Andreas D.
Registriert seit: 14.03.2023
Version(en): 2013
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
Registriert seit: 10.04.2014
Version(en): 2016 + 365
15.03.2023, 12:59
(Dieser Beitrag wurde zuletzt bearbeitet: 15.03.2023, 12:59 von Rabe.)
Hi,
mein aufgezeichnetes Makro sieht so aus:
Modul Modul1Option 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
Registriert seit: 11.12.2022
Version(en): 365 / 2021
Code:
Sub zwei_seiten_drucken()
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")).PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Seite_1_Übersicht").Select
End Sub
Sollte reichen
Gruß Dirk
---------------
![100 100](https://www.clever-excel-forum.de/images/smilies/pack 2/100.gif)
- Wenn du nicht weißt, wo du hin willst, ist es egal, welchen Weg du einschlägst.
Folgende(r) 1 Nutzer sagt Danke an DIZA für diesen Beitrag:1 Nutzer sagt Danke an DIZA für diesen Beitrag 28
• Andreas D.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
15.03.2023, 13:11
(Dieser Beitrag wurde zuletzt bearbeitet: 15.03.2023, 13:16 von Rabe.)
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
Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:1 Nutzer sagt Danke an Rabe für diesen Beitrag 28
• Andreas D.
Registriert seit: 14.03.2023
Version(en): 2013
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!
Registriert seit: 10.04.2014
Version(en): 2016 + 365
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