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

Forumthread: Drucken mit automatischer Skalierung

Drucken mit automatischer Skalierung
29.11.2021 19:52:30
Manfred
Hallo,
für das skalierte Drucken hab ich unten stehenden Code der auch ganz gut funktioniert.

Sub Drucken_Skalierung_90()
With ActiveSheet.PageSetup
.Zoom = 90 'Zoomfaktor 90%
End With
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End Sub
Leider sind diese 90% in der Seite so lange gespeichert bis ein anderer Befehl die Skalierung ändert. Wie könnte der Code aussehen damit beim Drucken wieder die automatische Skalierung angewendet wird? LG Manfred
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken mit automatischer Skalierung
29.11.2021 19:57:00
Hajo_Zi
Seitenlayout Seite einrichen der Pjeil links untem, Anapssen 1 Seite breit. Ganz ohne VBA.
GrußformelHomepage
In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.
,
Anzeige
AW: Drucken mit automatischer Skalierung
29.11.2021 20:10:45
Manfred
Hallo Hajo,
danke für die superschnelle Antwort. Ich habe 3 Druckbuttons eingebaut (für Skalierung 90%, 95% und 100%). Das ist leider notwendig weil bei meinen Kollegen der Ausdruck mit 100% oft auf die nächste Seite springt was nicht gewollt ist. Sie wählen dann 90% oder 95% und dann passt das. Bei mir passt der Ausdruck am besten mit der automatischen Skalierung. Nun will ich beim Button mit 100% die fixierte Skalierung aufheben und mit der automatischen Skalierung anpassen, wenn das möglich ist. Sorry die lange Beschreibung. LG Manfred
Anzeige
AW: Drucken mit automatischer Skalierung
30.11.2021 09:16:47
Pierre
Hallo Manfred,
geholfen hat dir leider noch keiner (dafür aber "dumm Zeusch gelabert") (nein, das stört mich nicht ;-) )
Vielleicht kannst du es umstellen, sodass immer automatisch an die Seite angepasst wird. Innerhalb deiner "With"-Klammer:

.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
Gruß Pierre
Anzeige
AW: Drucken mit automatischer Skalierung
30.11.2021 18:18:39
Manfred
Hallo Pierre,
danke für die Hilfe, leider ist das nicht die passende Lösung. Meine Datei hat ca. 25 Tabellenblätter mit 1-5 A4 Seiten welche noch mit Zeilen ein/ausblenden je nach Bedarf geändert wird. Für jedes Blatt fixiere ich einen Druckbereich welcher mit einen Seitenumbruch versehen wird. Mit der automatischen Skalierung passt sich die Seite korrekt an (bei den meisten Rechnern), bei machen Rechner ist dann eine Korrektur der Skalierung auf 90% oder 95% notwendig. Nun ist die Frage wie ich mit einen Marco wieder von den 90% bzw 95% auf "automatische Skalierung" komme. Vorab Danke für deinen Tipp, LG Manfred
Anzeige
AW: Drucken mit automatischer Skalierung
01.12.2021 09:32:58
Pierre
Hallo Manfred,
so?

Sub Drucken_Skalierung_90()
With ActiveSheet.PageSetup
.Zoom = 90 'Zoomfaktor 90%
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End With
ActiveSheet.PageSetup.Zoom = 100
End Sub
Wenn nein, hab ich auch keine Idee.
Gruß Pierre
Anzeige
AW: Drucken mit automatischer Skalierung
01.12.2021 09:33:02
Pierre
Hallo Manfred,
so?

Sub Drucken_Skalierung_90()
With ActiveSheet.PageSetup
.Zoom = 90 'Zoomfaktor 90%
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End With
ActiveSheet.PageSetup.Zoom = 100
End Sub
Wenn nein, hab ich auch keine Idee.
Gruß Pierre
Anzeige
AW: Drucken mit automatischer Skalierung
01.12.2021 11:39:03
Manfred
Danke Pierre, werd es mal versuchen. LG Manfred
bitte (owT)
01.12.2021 13:10:18
Pierre
Ein heißer Tipp
29.11.2021 21:15:19
{Boris}
Hi Hajo,

einrichen der Pjeil links untem, Anapssen
Wenn man auf den grünen Button "Beitrag überprüfen" geht, dann kann man sich das Geschreibsel nochmal ansehen, bevor man es endgültig ins Forum stellt. Das hat Hans sehr gut programmiert.
VG, Boris
Anzeige
AW: Ein heißer Tipp
29.11.2021 21:16:44
ralf_b
nach ein paar Papierkörnchen schreibe ich auch so.
Dazu kann ich nichts schreiben...
29.11.2021 21:22:27
{Boris}
Hi Ralf,
...was wohl daran liegt, dass ich nicht in fremde Zimmer schaue.
Sollte das Gesöff geteilt werden?
Auf JEDEN Fall! ;-))
VG, Boris
Anzeige
Anzeige

Infobox / Tutorial

Drucken mit automatischer Skalierung in Excel


Schritt-für-Schritt-Anleitung

Um die automatische Skalierung beim Drucken in Excel zu nutzen, kannst du den folgenden VBA-Code verwenden. Dieser sorgt dafür, dass deine Blätter beim Drucken an die Seite angepasst werden:

Sub Drucken_Automatische_Skalierung()
    With ActiveSheet.PageSetup
        .Zoom = False ' Deaktiviert die manuelle Skalierung
        .FitToPagesWide = 1 ' Passt die Breite auf eine Seite an
        .FitToPagesTall = False ' Keine Einschränkung in der Höhe
    End With
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" ' Zeigt die Druckvorschau an
End Sub

Mit diesem Makro wird die Skalierung beim Drucken automatisch angepasst, sodass deine Inhalte immer korrekt dargestellt werden.


Häufige Fehler und Lösungen

Wenn du Probleme mit der Skalierung hast, könnten die folgenden Punkte hilfreich sein:

  • Problem: Die Seiten werden nicht korrekt skaliert.

    • Lösung: Stelle sicher, dass der Druckbereich korrekt eingerichtet ist. Überprüfe die Seiteneinstellungen unter "Seitenlayout" und setze die automatische Skalierung.
  • Problem: Nach dem Drucken bleibt die manuelle Skalierung aktiv.

    • Lösung: Füge am Ende des Makros den Befehl .Zoom = False hinzu, um zur automatischen Skalierung zurückzukehren.

Alternative Methoden

Es gibt auch Methoden, die ohne VBA auskommen. Hier ist eine einfache Anleitung:

  1. Gehe zu Seitenlayout.
  2. Klicke auf Druckbereich festlegen und wähle den gewünschten Bereich aus.
  3. Unter Seitenlayout kannst du die Skalierung auf "Anpassen" einstellen, um sicherzustellen, dass der Inhalt auf eine Seite passt.

Diese Schritte ermöglichen dir, die Excel-Druckskalierung manuell zu steuern, ohne ein Makro verwenden zu müssen.


Praktische Beispiele

Ein typisches Beispiel für das Drucken in Excel mit VBA:

Sub Drucken_Skalierung_90()
    With ActiveSheet.PageSetup
        .Zoom = 90 ' Setzt den Zoomfaktor auf 90%
    End With
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" ' Druckvorschau und Drucken
End Sub

Wenn du die Skalierung wieder auf automatisch setzen möchtest, kannst du diesen Code anpassen, indem du den .Zoom Wert nach dem Drucken zurücksetzt.


Tipps für Profis

  • Verwende Excel Makros zur Automatisierung deiner Druckvorgänge. So kannst du verschiedene Skalierungen für unterschiedliche Drucksituationen schnell umsetzen.
  • Halte deine VBA-Codes modular, um sie leichter anpassen und wiederverwenden zu können.
  • Teste deine Druckeinstellungen regelmäßig, besonders wenn du neue Tabellenblätter hinzufügst oder bestehende änderst.

FAQ: Häufige Fragen

1. Was bedeutet Skalierung beim Drucken?
Die Skalierung beim Drucken bezieht sich darauf, wie der Inhalt auf der Seite dargestellt wird, insbesondere die Anpassung des Layouts an die Druckgröße.

2. Was heißt Skalierung beim Drucken?
Skalierung beim Drucken bedeutet, dass der Druckinhalt entsprechend der Seitenformate angepasst wird, sodass alles auf die gewählte Seite passt.

3. Wie kann ich die Druckskalierung in Excel anpassen?
Du kannst die Druckskalierung in Excel über die Seitenlayout-Optionen oder durch VBA-Makros anpassen. Der Einsatz von .Zoom oder .FitToPagesWide ist hierbei entscheidend.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige