Excel Druckmakro ohne Zellenfarbe

Computer: Software & Programmierung Office Software
#1

Hey Leute

Ich verwende folgendes Makro um ein Blatt aus einer Excel Tabelle auszudrucken,

nun möchte ich aber das die Hintergrundfarben der Zellen nicht mitgedruckt werden

die schriftfarbe aber schon! (daher kein schwarzweis)

Private Sub CommandButton1_Click() ActiveSheet.PageSetup.PrintArea = „$A$1:blush:I$47“ ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = False End Sub

Private Sub CommandButton2_Click() ActiveSheet.PageSetup.PrintArea = „$A$1:blush:I$47“ Application.Dialogs(xlDialogPrint).Show ActiveSheet.PageSetup.PrintArea = False End Sub

#2

nun möchte ich aber das die Hintergrundfarben der Zellen nicht
mitgedruckt werden
die schriftfarbe aber schon! (daher kein schwarzweis)
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = „$A$1:blush:I$47“
ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = False
End Sub

Hallo Kevin,

Private Sub CommandButton1\_Click()
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
 .Range("$A$1:blush:I$47").Interior.ColorIndex = xlNone
 .PageSetup.PrintArea = "$A$1:blush:I$47"
 .PrintOut
 Application.DisplayAlerts = False
 .Delete
 Application.DisplayAlerts = True
End With
End Sub

Gruß
Reinhard