Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo,
versuche es mal so
Code:
Sub druck()
With ActiveWorkbook.Sheets("Tabelle1")
.PageSetup.PrintArea = "$A$1:$H$216"
.PrintOut
End With
End Sub
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
26.10.2017, 19:14
(Dieser Beitrag wurde zuletzt bearbeitet: 26.10.2017, 19:15 von RPP63.)
Hi Stefan!
Warum der (sinnlose und vor allem langsame) Umweg über den Druckbereich?
Folgendes reicht völlig (siehe auch meinen letzten Beitrag):
ActiveSheet.Range("$A$1:$H$216").PrintOut
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Ralf,
natürlich hast Du recht. Ich wollte dem TE nur zeigen, wie sein Code lauten sollte.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 09.01.2017
Version(en): 2010
Hallo,
vielen Dank für eure Rückmeldungen.
Ralf leider versteh ich nicht wie ich dein Vorschlag einbauen soll, tut mir leid bin kein Profi.
Ich habe noch eine andere Frage,
Habt ihr ne Idee wie ich das gestalten kann?
Kann man einen Makro erstellen,
der mit Aktivierung abfragt welche Tabellenblätter (1-4 vorhanden) gedruckt werden sollen?
In den jeweiligen Tabellenblättern sind durch entsprechende VBA Codes zellen ausgeblendet, die weder ausgedruckt werden sollen sollen, noch mit einer Leerseite im Druck versehen werden sollen.
In den jeweiligen Tabellenblättern sind manuell gesetzte Seitenumbrüche vorhanden.
Vielen Dank für Eure Hilfe!
