Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Querformat beim Drucken!

Forumthread: Querformat beim Drucken!

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
Anzeige
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
Anzeige
AW: Querformat beim Drucken!
14.07.2006 18:28:41
Swen
...vielen Dank! funtzt super!
gruß
swen
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18