Druck im Hochformat

Forumthread: Druck im Hochformat

Druck im Hochformat

10.04.2016 09:36:12

chris58

Hallo !
ich habe den u.a. Code mit dem Makrorekorder aufgezeichnet. Wie kann ich im Hochformat drucken und nicht so wie hier im Querformat.
Bitte sagt mir, wo ich das ändern kann.
Danke
chris

Sub Drucken()
' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Wozu ist die erste With Schleife gut? Funktioniert auch ohne!
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$M$38"
'Wozu braucht es Header/Footer?
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
'Wozu sind diese Wertangaben gut?
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.PrintOut
' Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druck im Hochformat

10.04.2016 09:41:35

Hajo_Zi
AW: Druck im Hochformat

10.04.2016 10:00:38

Hajo_Zi
AW: Druck im Hochformat

10.04.2016 10:55:56

MB12
AW: Druck im Hochformat

10.04.2016 11:23:02

chris58
Überflüssiger Code!

10.04.2016 11:30:23

RPP63

AW: Druck im Hochformat

10.04.2016 09:41:35

Hajo_Zi

das Makro Druckt Quer, wie es im Code steht.

AW: Druck im Hochformat

10.04.2016 10:00:38

Hajo_Zi

ich hatte es falsch gelesen.
.Orientation = xlPortrait
Makrorecorder hilft da schon.
Gruß Hajo

AW: Druck im Hochformat

10.04.2016 10:55:56

MB12

Hallo Chris,
da ich selbst noch VBA-Anfänger bin, ein Tipp:
Nach dem Aufzeichnen einfach nacheinander einzelne Teile aus dem Code ausschneiden, die dir überflüssig vorkommen (meistens stimmt das sogar), aber vorsichtshalber in eine Datei vorübergehend einfügen. Dann jeweils mit F5 testweise das Makro ablaufen lassen. Außerdem kannst du mit F8 das Makro auch zeilenweise ablaufen lassen - so siehst du, was sich jeweils tut.
So bekommst du immer mehr das Gefühl dafür, was in einem Makro wirklich drinstehen muss.
Viel Spass am Sonntag
Margarete

AW: Druck im Hochformat

10.04.2016 11:23:02

chris58

Danke
chris

Überflüssiger Code!

10.04.2016 11:30:23

RPP63

Hallo!
Du stellst ja in Deinem Code ein paar Fragen.
Bis auf .Orientation handelt es sich bei ALLEN aufgezeichneten Eigenschaften um die Default-Werte.
Dies kannst Du leicht nachvollziehen, indem Du in einer neuen Mappe ein Makro aufzeichnest und nur die Ausrichtung änderst.
Heißt: Du kannst das Makro wie folgt eindampfen:

Sub RPP()
With ActiveSheet
.PageSetup.Orientation = xlPortrait
.PrintOut
End With
End Sub

Gruß Ralf

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Druck in Excel im Hochformat einzustellen, kannst du folgendes VBA-Makro verwenden. Achte darauf, dass die Eigenschaft .Orientation auf xlPortrait gesetzt ist:

Sub DruckenImHochformat()
    ' Bildschirmaktualisierung ausschalten
    Application.ScreenUpdating = False
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$M$38" ' Definiere den Druckbereich
        .Orientation = xlPortrait ' Setze das Hochformat
        .PaperSize = xlPaperA4 ' Stelle die Papiergröße ein
    End With
    ActiveSheet.PrintOut ' Druckbefehl ausführen
    ' Bildschirmaktualisierung einschalten
    Application.ScreenUpdating = True
End Sub

Führe dieses Makro aus, um dein Excel-Dokument im Hochformat zu drucken.

Häufige Fehler und Lösungen

Druck erfolgt im Querformat:
- Stelle sicher, dass im Makro .Orientation = xlPortrait korrekt eingestellt ist.
Druckbereich wird nicht beachtet:
- Überprüfe, ob der Druckbereich in .PrintArea richtig definiert ist.
Makro läuft nicht:
- Achte darauf, dass du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Sicherheit > Makroeinstellungen.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du die Druckeinstellungen auch manuell anpassen:

Gehe zu Datei > Drucken.
Klicke auf Seite einrichten.
Wähle dort unter Ausrichtung die Option Hochformat.

Diese Methode eignet sich gut, wenn du nur einmalig das Layout ändern möchtest.

Praktische Beispiele

Wenn du mit einem großen Datenblatt arbeitest und sicherstellen möchtest, dass die Druckausgabe im Hochformat erfolgt, kannst du das folgende Beispiel verwenden:

Sub BeispielDrucken()
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .PrintArea = "$A$1:$Z$50"
        .PaperSize = xlPaperA4
    End With
    ActiveSheet.PrintOut
End Sub

Hier wird der Druckbereich von A1 bis Z50 im Hochformat festgelegt. Dies ist besonders nützlich, wenn du viele Daten hast, die du in einem kompakten Format präsentieren möchtest.

Tipps für Profis

Nutze die Möglichkeit, über den Makrorekorder den VBA-Code zu generieren. Das hilft dir, die Syntax besser zu verstehen.
Teste dein Makro schrittweise mit F8, um zu sehen, wie sich die Einstellungen auswirken.
Wenn du häufig in Hochformat druckst, speichere das Makro als Schnellzugriff oder füge es in die Symbolleiste ein.

FAQ: Häufige Fragen

1. Wie ändere ich ein PDF im Hochformat in Querformat?
Um ein PDF, das im Hochformat erstellt wurde, in Querformat zu ändern, musst du die PDF-Datei in einem Programm wie Adobe Acrobat öffnen und dort die Seiteneinstellungen ändern.

2. Kann ich die Druckeinstellungen für mehrere Blätter gleichzeitig ändern?
Ja, du kannst in VBA eine Schleife verwenden, um die Druckeinstellungen für mehrere Blätter gleichzeitig anzupassen. Verwende dafür eine For Each-Schleife, um durch die gewünschten Blätter zu iterieren.

3. Was ist der Unterschied zwischen Hochformat und Querformat?
Hochformat bedeutet, dass die Höhe des Dokuments größer ist als die Breite, während im Querformat die Breite größer ist als die Höhe.

Beliebteste Forumthreads (12 Monate)

Forumthread: Druck im Hochformat

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Infobox / Tutorial

Druck im Hochformat einstellen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread