drucken ohne Farben
09.07.2003 10:30:00
MichaelS
in meiner Tabelle sind mehrere Zellen mit Farben hinterlegt.
Wenn ich die Tabelle drucken will, dann aber ohne Farben - wie kann ich das realisieren?
Mein bisheriger Druckbefehl
Sub Drucken()
Dim strSheet As String, strRange As String, strAdr As String
strAdr = Range("A1").Value
strSheet = Left(strAdr, InStr(strAdr, "!") - 1)
strRange = Right(strAdr, Len(strAdr) - InStr(strAdr, "!"))
Worksheets(strSheet).Range(strRange).PrintPreview
End Sub
Danke
MIchael
Anzeige