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

Duplex-Druck mittels VBA ausschalten

Forumthread: Duplex-Druck mittels VBA ausschalten

Duplex-Druck mittels VBA ausschalten
03.09.2007 17:38:00
chris58
Hallo !
Ich hätte eine Frage bezüglich Duplex-Druck. Wir haben in der Firma einen Drucker der immer auf Duplex eingestellt ist. Nun habe ich eine Datei die wo Tabellenblätter immer nur einseitig ausgedruckt werden sollen. Oft wird vergessen die Druckeinstellungen zu ändern und so sind immer viele Blätter doppelt, obwohl dies nicht sein sollte. Gibt es die Möglichkeit den Duplexdruck zu unterbinden, bzw. habe ich für das Tabellenblatt einen VBA code der das Tabellenblatt mittels Button audruckt. Kann man da was ändern, das nur einseitig gedruckt wird ?
Hier der Code:

Sub druckmakro()
Sheets(Array("Zahlschein")).PrintOut Copies:=1, Collate:=True
End Sub


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplex-Druck mittels VBA ausschalten
05.09.2007 09:11:15
Renee
Hi Chris,
Duplexdruck kann nicht jeder Drucker.
Darum gibt es auch keine Druckereigenschaft um das via VBA zu beeinflussen.
Vielmehr wird dies in den Systemeigenschaften des Druckers festgelegt.
Ein Trick, wäre einen 2ten Drucker mit anderem Namen und entsprechenden Einstellung zu installieren und diesen dann via VBA auszuwählen.
Greetz Renee

Anzeige
AW: Duplex-Druck mittels VBA ausschalten
05.09.2007 20:53:55
chris58
Danke für die Antwort
chris
;
Anzeige
Anzeige

Infobox / Tutorial

Duplex-Druck in Excel mit VBA ausschalten


Schritt-für-Schritt-Anleitung

Um den beidseitigen Druck in Excel mittels VBA auszuschalten, kannst du den Drucker direkt im Code auswählen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu den Entwicklertools. Falls du die Entwicklertools nicht siehst, aktiviere sie in den Excel-Optionen.
  2. Klicke auf "Visual Basic", um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu und kopiere den folgenden VBA-Code:
Sub druckmakro()
    Dim DruckerName As String
    DruckerName = "DeinDruckerName" ' Ersetze dies mit dem Namen deines Druckers
    Application.ActivePrinter = DruckerName
    Sheets(Array("Zahlschein")).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
  1. Stelle sicher, dass der Drucker, den du auswählen möchtest, bereits installiert ist und die Einstellungen für Duplexdruck so konfiguriert sind, dass er einseitig druckt.
  2. Ersetze DeinDruckerName im Code mit dem tatsächlichen Namen deines Druckers.
  3. Schließe den VBA-Editor und teste das Makro.

Häufige Fehler und Lösungen

  • Problem: Der Drucker wird nicht gefunden.

    • Lösung: Überprüfe den Namen des Druckers und stelle sicher, dass er korrekt eingegeben wurde. Gehe zu den Druckereinstellungen in Windows und bestätige den Namen.
  • Problem: Der Druck erfolgt weiterhin im Duplexmodus.

    • Lösung: Stelle sicher, dass der gewählte Drucker tatsächlich auf einseitigen Druck eingestellt ist. Manchmal muss dies in den Druckereinstellungen in der Systemsteuerung geändert werden.

Alternative Methoden

Falls dein Drucker keinen Duplexdruck unterstützt oder du die Einstellungen nicht ändern kannst, gibt es alternative Methoden:

  1. Zweiten Drucker einrichten: Installiere einen weiteren Drucker (z.B. einen virtuellen PDF-Drucker), der standardmäßig auf einseitig eingestellt ist. Du kannst dann diesen Drucker in deinem VBA-Code auswählen.

  2. Manuelle Einstellung: Ändere die Druckereinstellungen manuell, bevor du das Makro ausführst. Dies kann jedoch zeitaufwendig sein, wenn es häufig erforderlich ist.


Praktische Beispiele

Hier ist ein Beispiel für den VBA-Code, der es ermöglicht, einseitig zu drucken:

Sub druckmakroEinseitig()
    Dim DruckerName As String
    DruckerName = "MeinEinseitigerDrucker" ' Ersetze dies mit deinem Druckernamen
    Application.ActivePrinter = DruckerName
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
    End With
    Sheets("Zahlschein").PrintOut Copies:=1, Collate:=True
End Sub

Achte darauf, den Namen des Druckers entsprechend anzupassen. Diese Methode kann dir helfen, den beidseitigen Druck auszustellen.


Tipps für Profis

  • Teste dein Makro mit verschiedenen Druckern, um sicherzustellen, dass es überall funktioniert.
  • Halte deinen VBA-Code modular, sodass du ihn einfach anpassen kannst, falls du neue Drucker hinzufügst oder die Druckeinstellungen änderst.
  • Nutze die Möglichkeit, Druckereinstellungen über die Excel-Oberfläche schnell zu ändern, falls du nur gelegentlich auf duplex druck angewiesen bist.

FAQ: Häufige Fragen

1. Was bedeutet Duplexdruck?
Duplexdruck bezieht sich auf die Fähigkeit eines Druckers, auf beiden Seiten eines Blattes zu drucken. Dies kann sowohl automatisch als auch manuell erfolgen.

2. Wie kann ich sicherstellen, dass mein Drucker im einseitigen Modus druckt?
Überprüfe die Druckereinstellungen in Windows oder über die Druckeinstellungen in Excel, bevor du einen Druckauftrag startest. Du kannst auch VBA verwenden, um den Drucker direkt im Code auszuwählen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige