Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Duplex druck in VBA Skript ansteuern

Forumthread: Duplex druck in VBA Skript ansteuern

Duplex druck in VBA Skript ansteuern
18.02.2008 17:33:30
Christian
Weis nicht ob das ganz hier gehört habe folgendes VB Skritp gefunden um eine Komplette Exceldatei drucken zulassen. Jetzt würde ich mir nur noch wünschen dies auch über das skript doppelseitig zu bekommen. Kann mir jemand helfen?
Option Explicit
Dim oArgs, ex, oDatei
Set oArgs = WScript.Arguments
Set ex = WScript.CreateObject("Excel.Application")
With ex
'Excel nicht anzeigen
.Visible = False
'Laden des Dokuments
.Application.Workbooks.Open(oArgs.Item(0))
' Dokument komplett ausdrucken
Set oDatei = ex.Sheets
oDatei.PrintOut
' Excel beenden
.Quit
End With
Set oArgs = Nothing
Set ex = Nothing
Set oDatei = Nothing

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplex druck in VBA Skript ansteuern
19.02.2008 08:56:02
Renee
Hi Christian,
Das Drucken über ein Script zu machen ist hier unnötig. Das kannst du über ganz normales VBA bewerkstelligen:

Sub AllesDrucken()
Dim ws As Worksheet
For Each ws In ThisWorkbook
ws.PrintOut ActivePrinter:="DuplexPrinter"
Next
End Sub


Das mit dem Duplex-Drucken ist eine bisschen tricky, weil: Wenn dein (Windows)-Standardrucker standardmässig auf Duplexbetrieb eingestellt ist, dann kannst du den Ausdruck ActivePrinter:= "DuplexPrinter" weglassen. Wenn dies nicht der Fall ist, richte in Windows einen weiteren Drucker ein, der auf deinen Standarddrucker verweist (z.B. mit dem vorgeschlagenen Namen "DuplexPrinter") und richte dessen Einstellungen auf Duplexdruck ein. Dann sollte das Makro diesen 'virtuellen' Drucker ansteuern und deine Blätter beidseitig bedrucken.
GreetZ Renée

Anzeige
;
Anzeige

Infobox / Tutorial

Duplex Druck in VBA Skript Ansteuern

Schritt-für-Schritt-Anleitung

Um in Excel beidseitig zu drucken, kann ein VBA-Skript verwendet werden. Hier ist eine Schritt-für-Schritt-Anleitung, wie du dies umsetzen kannst:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul:

    • Klicke im Menü auf Einfügen und dann auf Modul.

  3. Füge den folgenden Code ein:

    Sub AllesDrucken()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       ws.PrintOut ActivePrinter:="DuplexPrinter"
   Next ws
End Sub

  4. Stelle sicher, dass dein Drucker als Duplexdrucker konfiguriert ist:

    • Wenn dein standardmäßiger Drucker bereits auf Duplexdruck eingestellt ist, kannst du die Zeile ActivePrinter:="DuplexPrinter" weglassen.

  5. Führe das Skript aus, indem du im VBA-Editor auf F5 klickst oder den Code in Excel zu einem Button zuweist.

Mit dieser Anleitung kannst du einfach und effizient das Drucken in Excel für einen doppelseitigen Druck einrichten.

Häufige Fehler und Lösungen

  • Fehler: Drucker nicht gefunden
    Überprüfe, ob der Drucker korrekt angeschlossen und installiert ist. Achte darauf, dass der Druckername im Skript exakt mit dem Namen des installierten Druckers übereinstimmt.

  • Fehler: Dokument wird nicht im Duplexdruck ausgegeben
    Stelle sicher, dass der Drucker in den Windows-Druckereinstellungen auf Duplexdruck konfiguriert ist. Wenn nicht, richte einen virtuellen Drucker ein, der auf deinen Standarddrucker verweist.

Alternative Methoden

Wenn du keine VBA-Skripte verwenden möchtest, kannst du auch die folgenden Alternativen ausprobieren:

  • Manuelles Drucken mit Duplexoption:

    • Gehe zu Datei > Drucken und wähle unter den Druckoptionen die Einstellung für beidseitiges Drucken aus.

  • Drucken über die Druckereinstellungen:

    • Öffne die Druckereigenschaften deines Druckers und aktiviere die Option für Duplexdruck oder Doppelseitiger Druck.

Praktische Beispiele

  1. Drucken eines gesamten Arbeitsblattes: Möchtest du ein gesamtes Arbeitsblatt beidseitig drucken, kannst du den folgenden Code verwenden:

    Sub GesamtDrucken()
   ThisWorkbook.PrintOut Copies:=1, Collate:=True, _
       ActivePrinter:="DuplexPrinter"
End Sub

  2. Drucken mit spezifischen Einstellungen: Du kannst die Druckoptionen anpassen, beispielsweise so:

    Sub SpezifischesDrucken()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       ws.PrintOut From:=1, To:=ws.Cells(ws.Rows.Count, 1).End(xlUp).Row, _
           ActivePrinter:="DuplexPrinter", Copies:=2
   Next ws
End Sub

Tipps für Profis

  • Verwende Variablen: Definiere Variablen für häufig verwendete Drucker, um den Code leserlicher zu gestalten.
  • Fehlerbehandlung implementieren: Füge Fehlerbehandlungsroutinen hinzu, um Probleme beim Drucken besser zu erkennen und zu lösen.
  • Testdruck durchführen: Teste dein Skript zuerst mit einem kleinen Dokument, bevor du große Arbeitsblätter druckst.

FAQ: Häufige Fragen

1. Was ist Duplex Druck?
Duplexdruck bezieht sich auf das Drucken auf beiden Seiten eines Blattes. Dies kann entweder automatisch durch den Drucker oder manuell durch das Wenden des Papiers erfolgen.

2. Wie kann ich in Excel beidseitig drucken?
Um in Excel beidseitig zu drucken, kannst du entweder die Druckoptionen direkt in Excel nutzen oder ein VBA-Skript schreiben, das den Duplexdruck steuert.

3. Gibt es Einschränkungen beim Duplexdruck?
Ja, nicht alle Drucker unterstützen Duplexdruck. Überprüfe die Spezifikationen deines Druckers, um sicherzustellen, dass er diese Funktion unterstützt.

4. Wie kann ich sicherstellen, dass mein Drucker Duplexdruck unterstützt?
Du kannst dies überprüfen, indem du die Druckereinstellungen in Windows aufrufst und nach der Option für Duplexdruck suchst.

Beliebteste Forumthreads (12 Monate)

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