Druckbereich festlegen und Drucken

Forumthread: Druckbereich festlegen und Drucken
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Druckbereich festlegen und Drucken

18.10.2018 13:28:12

Anna

Hallo,
ich möchte einen Bereich (Range B8:F18) als Druckbereich festlegen, im Querformat drucken und am ende wieder den Druckbereich aufheben. Mit dem Excelrecorder kriege ich unmengen an Code zusammen, die alles nur Langsam macht. Hat jemand da vllt ein Code zur Hand?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckbereich festlegen und Drucken

18.10.2018 13:29:34

Werner
AW: Druckbereich festlegen und Drucken

18.10.2018 13:44:40

Anna
AW: Druckbereich festlegen und Drucken

18.10.2018 14:01:20

Werner
Feendback ein Fremdwort?

19.10.2018 21:19:36

Werner

AW: Druckbereich festlegen und Drucken

18.10.2018 13:29:34

Werner

Hallo Anna,
warum benutzt du nicht einfach den Makrorekorder und zeichnest damit die einzelnen Schritte auf?
Gruß Werner

AW: Druckbereich festlegen und Drucken

18.10.2018 13:44:40

Anna

habe ich schon gemacht, aber da kommen knapp 30 Zeilen code (alles wie es formatiert werden soll). Ich bräuchte eig nur den Druckbereich und querformat.

AW: Druckbereich festlegen und Drucken

18.10.2018 14:01:20

Werner

Hallo Anna,
so:

Sub Makro1()
With Worksheets("Tabelle1") 'Blattname anpassen
.PageSetup.PrintArea = "$B$8:$F$18"
.PageSetup.Orientation = xlLandscape
.PrintOut
.PageSetup.PrintArea = ""
End With
End Sub

Gruß Werner

Feendback ein Fremdwort?

19.10.2018 21:19:36

Werner

Hallo,
für eine Antwort hier hat es nicht gereich, wenn ich das richtig sehe für einen neuen Beitrag aber schon.
Gruß Werner