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

Forumthread: zweimal drucken

zweimal drucken
15.01.2009 16:43:10
Andy
Hallo Leute,
kann mir jemand sagen, was ich in VBA einfügen muss, dass zweimal gedruckt wird?
derzeit steht da: .PrintOut
vielen Dank für die Hilfe.
GRuß Andy
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zweimal drucken
15.01.2009 16:46:36
D.Saster
Hallo,
steht in der Hilfe.
Userbild
Gruß
Dierk
AW: zweimal drucken
15.01.2009 16:55:01
Frank
Hallo Andy!!!
Versuchs mal so!
Sub Drucken_Seite_1()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
:=True
Antwort wäre nett!
Gruß Frank H.
Anzeige
AW: zweimal drucken
15.01.2009 16:58:00
Andi
Hi,
bei Deinem Code wird aber nur die erste Seite gedruckt; ob Andy das so wollte, weiß ich nicht.
Für seine Zwecke reicht eigentlich
.PrintOut Copies:=2
Schönen Gruß,
Andi
AW: zweimal drucken
16.01.2009 09:25:25
Andy
Hallo Andi,
vielen Dank. Das ist genau, was ich wollte.
Gruß Andy
gern geschehen... (ot)
16.01.2009 13:40:00
Andi
.
Anzeige
AW: zweimal drucken
16.01.2009 09:26:30
Andy
Hallo Frank,
ich habe Andi's Rat befolgt und der klappt bestens. Aber ich danke Dir auch.
viele Grüße
Andy
;
Anzeige
Anzeige

Infobox / Tutorial

Mehrfachdruck in Excel mit VBA


Schritt-für-Schritt-Anleitung

Um in Excel mit VBA eine Seite zweimal zu drucken, kannst Du den folgenden Code verwenden. Dieser ist einfach und effektiv:

Sub Drucken_Seite_1()
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate:=True
End Sub
  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
  2. Wähle im linken Fenster den entsprechenden Arbeitsblattnamen aus.
  3. Füge den obigen Code in das Codefenster ein.
  4. Schließe den VBA-Editor und kehre zu Excel zurück.
  5. Führe das Makro aus, um die Seite zweimal zu drucken.

Häufige Fehler und Lösungen

  • Fehler: Nur die erste Seite wird gedruckt.
    Lösung: Stelle sicher, dass Du den Parameter From und To auf die gewünschte Seitenzahl setzt. Für mehrere Seiten kannst Du From:=1, To:=n (wobei n die Anzahl der Seiten ist) anpassen.

  • Fehler: Der Drucker reagiert nicht.
    Lösung: Überprüfe, ob der Drucker korrekt installiert und ausgewählt ist. Teste den Drucker mit einer anderen Anwendung.


Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch die Druckeinstellungen in Excel direkt anpassen:

  1. Gehe zu Datei > Drucken.
  2. Wähle unter Druckoptionen die Anzahl der Kopien aus.
  3. Klicke auf Drucken.

Diese Methode ist einfacher, bietet jedoch nicht die Flexibilität wie die VBA-Programmierung.


Praktische Beispiele

Hier sind einige Szenarien, in denen Du den Mehrfachdruck in Excel nützlich einsetzen kannst:

  • Berichtsdruck: Wenn Du monatliche Berichte an mehrere Abteilungen senden möchtest, kannst Du jeden Bericht zweimal drucken, um sicherzustellen, dass alle Abteilungen eine Kopie erhalten.
  • Einladungen: Du kannst Einladungen oder Benachrichtigungen in doppelter Ausführung drucken, um sicherzustellen, dass jeder Teilnehmer eine Kopie erhält.

Tipps für Profis

  • Experimentiere mit den Druckoptionen in VBA, um verschiedene Einstellungen wie Collate, Orientation oder Scale anzupassen.
  • Nutze PrintPreview, um vor dem Drucken zu sehen, wie das Dokument aussieht. Füge dazu ActiveWindow.SelectedSheets.PrintPreview in dein Makro ein.
  • Wenn Du oft drucken musst, erwäge, eine benutzerdefinierte Schaltfläche in der Symbolleiste für den schnellen Zugriff auf Dein Makro zu erstellen.

FAQ: Häufige Fragen

1. Kann ich den Druckbefehl anpassen, um mehrere Seiten zu drucken?
Ja, Du kannst den Befehl so anpassen: .PrintOut From:=1, To:=5, Copies:=2, um beispielsweise Seiten 1 bis 5 zweimal zu drucken.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und höher) problemlos funktionieren. Stelle sicher, dass die Makros aktiviert sind.

3. Was muss ich tun, wenn ich einen anderen Drucker verwenden möchte?
Du kannst den Standarddrucker in Windows ändern. Das VBA-Skript verwendet den Drucker, der als Standard festgelegt ist.

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