Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Querformat beim Drucken!

Querformat beim Drucken!
14.07.2006 12: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 13:01:05
Galenzo
Datei - Seite einrichten - Querformat
/Galenzo
AW: Querformat beim Drucken!
14.07.2006 13: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 16:28:41
Swen
...vielen Dank! funtzt super!
gruß
swen

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige