Supportnet / Forum / Tabellenkalkulation

Hallo Zusammen, ich habe ein kleines und kurzes Problem: Ich besitze eine umfangreiche Excelmappe, bei der ich zur besseren Übersicht viele Farben eingebaut haben. Diese möchte ich aber nicht mitdrucken. Nun meine Frage: Wie kann ich erzielen, dass diese Farben nicht mitgedruckt werden, ohne das ich Änderungen an meinem Drucker vornehmen muss?? Ich freu mich auf eure Hilfe. Viele Grüße Troschd

Ich haber mir den Drucker Treiber dreimal geladen.
1 x um Schwarz Weiß ,1 x mit Farbe und einmal für Fotos zu drucken je nach bedarf suche ich mir den Drucker aus nach dem ich den Befehl zum Drucken gegeben habe man kann dann noch dazu Farbe sparen.Mein Schwarz Weiß druck ich nur mit der Einstellung Entwurf und das reicht mir

Gruß Cuckoo

hi all :))

wie gewünscht :)

gruss nighty

Sub Makro1()
Dim zaehler0 As Long
Dim zaehler1 As Integer
ReDim tab1(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column)
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If Cells(zaehler0, zaehler1).Interior.ColorIndex <> -4142 Then
tab1(zaehler0, zaehler1) = Cells(zaehler0, zaehler1).Interior.ColorIndex
Cells(zaehler0, zaehler1).Interior.ColorIndex = -4142
End If
Next zaehler1
Next zaehler0
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If tab1(zaehler0, zaehler1) > 0 Then Cells(zaehler0, zaehler1).Interior.ColorIndex = tab1(zaehler0, zaehler1)
Next zaehler1
Next zaehler0
End Sub

Hi,

es geht mit Sicherheit auch mit dem Makro von nighty (habe ich nicht getestet), aber einfacher ist eine Einstellung, die Du in der Menüleiste unter Datei => Seite einrichten... und dort dann in der Registerkarte Tabelle und dort dann Drucken => Schwarzweißdruck findest. Wenn Du das anhakst, werden Dir beim Drucken keine Farben gedruckt.
Ich bin zwar, wie die Leute, die mich hier kennen wissen, auch eher der VBA-ler, aber wenn´s ohne geht mache ich es auch ohne.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi all :)

bin davon ausgegangen das das jeder weiss :))

gruss nighty

Danke ihr beiden!

Beide Hinweise finden bei mir großen Gebrauch....!

• brother mfc425 problem !
• excel farben ändern sich nach kopieren
• Farben vergeben
• Brother mfc3420c auch mit leeren Farben in schwarz drucken ?
• Karteikarten in Serie drucken mit Excel/Word ?