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

Forumthread: Blatt ohne Hintergrundfarbe drucken geht das?

Blatt ohne Hintergrundfarbe drucken geht das?
14.10.2004 14:59:08
Drazen
Hi nochmal,
Kann man eigentlich ein Blatt drucken und nur den Zelleninhalt drucken, den Hintergrund aber nicht?
Beispiel: Ich möchte in eine Zelle einen Text eingeben (Schwarz) und Färbe den Zellhintergrund aber in Rot, und möchte beim Drucken nur den Text haben, nicht die Zellfärbung, geht das?
Grüsse
Drazen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt ohne Hintergrundfarbe drucken geht das?
Galenzo
Hallo,
vielleicht reicht dir ja schon das:
"Datei / Seite einrichten / Tabelle / Schwarz-Weiß-Druck" ankreuzen
Viel Erfolg!
AW: Blatt ohne Hintergrundfarbe drucken geht das?
Nike
Hi,
menue:
Datei/Seite einrichten/Blatt/Drucken/Schwarz weiss anhaken...
Bye
Nike
AW: Blatt ohne Hintergrundfarbe drucken geht das?
nighty
hi drazen :)
wie gewuenscht :))
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

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige