Querformat beim Drucken!

Forumthread: Querformat beim Drucken!

14.07.2006 14:45:50

Swen

Hallo an alle,
wie kann ich das Querformat beim Drucken aktivieren!
Gruß
swen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Querformat beim Drucken!

14.07.2006 15:01:05

Galenzo
AW: Querformat beim Drucken!

14.07.2006 15:30:03

fcs
AW: Querformat beim Drucken!

14.07.2006 18:28:41

Swen

AW: Querformat beim Drucken!

14.07.2006 15:01:05

Galenzo

Datei - Seite einrichten - Querformat
/Galenzo

AW: Querformat beim Drucken!

14.07.2006 15:30:03

fcs

Hallo Swen,
wenn du eine Tabelle im Querformat drucken willst, dann muss du dies unter Menü Datei-Seite einrichten...-Register Papieformat einstellen. Diese Einstellung muß du für jede Tabelle in der Arbeitsmappe festlegen.
Falls du nur zeitweise für das Drucken die Papierausrichtung wechseln willst, dann muss du ein Makro verwenden, das die Einstellung ändert, druckt und anschließend die Einstellung wieder zurücksetzt.
Gruß
Franz
Makro-Beispiel


Sub A4querVormDrucken()
' Papierformat vor dem Drucken auf A4-quer setzen
Dim Blatt As Variant, BlattFormat(1 To 255) As Variant, AnzBlatt As Integer
AnzBlatt = 0
For Each Blatt In ActiveWindow.SelectedSheets
AnzBlatt = AnzBlatt + 1
'Aktuelle Blattausrichtung speichern
BlattFormat(AnzBlatt) = Blatt.PageSetup.Orientation
'Querformat einstellen
Blatt.PageSetup.Orientation = xlLandscape
Next Blatt
'Gewählte Blätter drucken
ActiveWindow.SelectedSheets.PrintPreview
'Blattformat zurücksetzen
AnzBlatt = 0
For Each Blatt In ActiveWindow.SelectedSheets
AnzBlatt = AnzBlatt + 1
Blatt.PageSetup.Orientation = BlattFormat(AnzBlatt)
Next Blatt
End Sub

gruss Franz

AW: Querformat beim Drucken!

14.07.2006 18:28:41

Swen

...vielen Dank! funtzt super!
gruß
swen

Forumthread: Querformat beim Drucken!

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread