Druckmakro

Forumthread: Druckmakro

Druckmakro

04.10.2006 18:14:33

lufti

Hallo!
Folgendes Problem:
ich habe in einer Exceldatei mehrere Blätter mit jeweils mehreren Seiten. Ich muss das ganze über ein Makro ausdrucken, da die Seiten quer- bzw. längsformatig gedruckt werden sollen.
Über ActiveSheet.PageSetup.Orientation kann ich innerhalb eines Tabellenblattes die Formate je Seite definieren.
Aber wie funktionier das übergeordnet, d.h. ein Makro auf dem ersten Tabellenblatt für alle Blätter?
Bitte um Hilfe.
Dank vorab!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckmakro

04.10.2006 22:50:37

fcs

AW: Druckmakro

04.10.2006 22:50:37

fcs

Hallo lufti,
hier mal zwei Beispiele für ein Makro, das zwei Tabellenblätter ausdruckt. Im ersten Makro wird die Blattausrichtung jeweils vor dem Ausdruck einzelner Seiten gewechselt.
Im zweiten Makro wird die Blattausrichtung für jedes Blatt eingestellt, anschließend werden alle Blätter in einem Druckauftrag gedruckt.
Gruss
Franz


Sub Makro1()
Dim wks As Worksheet
Set wks = ActiveWorkbook.Sheets("Tabelle1")
With wks
.PageSetup.Orientation = xlLandscape
.PrintOut From:=1, To:=1, Copies:=1
.PageSetup.Orientation = xlPortrait
.PrintOut From:=2, To:=2, Copies:=1
End With
Set wks = ActiveWorkbook.Sheets("Tabelle2")
With wks
.PageSetup.Orientation = xlPortrait
.PrintOut From:=1, To:=1, Copies:=1
.PageSetup.Orientation = xlLandscape
.PrintOut From:=2, To:=3, Copies:=1
End With
End Sub
Sub Makro2()
ActiveWorkbook.Sheets("Tabelle1").PageSetup.Orientation = xlLandscape
ActiveWorkbook.Sheets("Tabelle2").PageSetup.Orientation = xlPortrait
'Alle Blätter fortlaufend drucken
ActiveWorkbook.Sheets.Select
'oder
'Sheets(Array("Tabelle1", "Tabelle2")).Select
ActiveWindow.SelectedSheets.PrintOut
End Sub

Forumthread: Druckmakro

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread