Schwarzweiß-Druck in Excel mit VBA
Schritt-für-Schritt-Anleitung
Um in Excel mit VBA schwarzweiß zu drucken, kannst Du folgende Schritte befolgen:
- Öffne Excel und gehe zu dem Arbeitsblatt, das Du drucken möchtest.
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (DeinDokument)“ > „Einfügen“ > „Modul“.
- Kopiere den folgenden Code in das Modul:
Sub SchwarzweissDrucken()
Dim DruckerName As String
DruckerName = "\\Name Drucker" ' Ersetze dies mit dem tatsächlichen Namen Deines Druckers
' Aktiviere den gewünschten Drucker
Application.ActivePrinter = DruckerName
' Drucke in schwarzweiß
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
' Drucke das aktive Arbeitsblatt
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=DruckerName, Collate:=True
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Führe das Makro aus, indem Du
ALT + F8 drückst, das Makro „SchwarzweissDrucken“ auswählst und auf „Ausführen“ klickst.
Häufige Fehler und Lösungen
Alternative Methoden
Eine weitere Möglichkeit, in Excel schwarzweiß zu drucken, ist über die Druckereinstellungen:
- Gehe zu „Datei“ > „Drucken“.
- Wähle Deinen Drucker aus.
- Klicke auf „Druckereigenschaften“.
- Ändere die Farbeinstellungen auf „Schwarzweiß“ oder „Graustufen“.
- Bestätige die Änderungen und drucke das Dokument.
Praktische Beispiele
Hier ist ein einfaches Beispiel, wie Du den Drucker in der Makroanpassung ändern kannst.
Ändere die Zeile:
DruckerName = "\\Name Drucker"
zu dem tatsächlichen Namen Deines Namendruckers, z.B.:
DruckerName = "\\MeinDrucker"
Das ermöglicht Dir, das Makro an verschiedene Drucker anzupassen.
Tipps für Profis
- Experimentiere mit anderen Einstellungen in
PageSetup, um das Layout Deines Drucks zu optimieren.
- Nutze die
PrintPreview-Funktion, um sicherzustellen, dass alles korrekt aussieht, bevor Du den Druckauftrag sendest.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, um mehrere Kopien zu drucken?
Ändere die Zeile Copies:=1 zu der gewünschten Anzahl, z.B. Copies:=2 für zwei Kopien.
2. Was ist, wenn ich den Drucker nicht richtig finde?
Stelle sicher, dass Du den korrekten Netzwerknamen des Druckers verwendest. Überprüfe auch die Druckereinstellungen in Windows, um sicherzustellen, dass der Drucker online ist.