mit folgendem Makro erzeuge ich aus meinem Worksheet ein PDF-File:
Sub PDF_drucken()
' PDF_drucken Makro
' Makro am 07.07.2005 von Sascha aufgezeichnet
Dim sPrinter As String
Dim NewDateiname As String
' Dim NewPfad As String
NewDateiname = ActiveSheet.Range("E10").Value
' NewPfad = ActiveSheet.Range("A53").Value
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF auf Ne02:"
Drucker = Application.ActivePrinter
prtcmd = NewDateiname
Application.SendKeys (prtcmd), True
Application.SendKeys "{ENTER}", True
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Drucker
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
MsgBox "Datei " & prtcmd & " erstellt!"
End Sub
Nun habe ich aber einige Farbfelder in meinem Worksheet, die mit der Hintergrundfarbe "weiß" gedruckt werden sollen.
Welchen Befehl muss ich wo einfügen?
Danke im voraus
Sascha