ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über den Standarddrucker eines jeden erfolgen, sondern über den Drucker "Adobe PDF". Könnt Ihr mir da weiter helfen?
Hier mal der Code, wie er derzeit existiert:
Sub druck_ohne_farbe()
Dim arrWerte() ' Variable für Array
Dim raZelle As Range ' Variable für die Zelle als Range
Dim loZaehler As Long ' Schleifenzähler
Dim loZaehler2 As Long ' Schleifenzähler
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
' Ausfürhugn in Tabelle1
With Worksheets("Re- Prüf-Protokoll")
' Schleife über jede Zelle des benutzten Bereichs
For Each raZelle In Worksheets("Re- Prüf-Protokoll").UsedRange
' Zelle ist mit einer Füllfarbe formatiert
If raZelle.Interior.ColorIndex xlNone Then
' Array dynamisch erweitern
ReDim Preserve arrWerte(0 To 2, 0 To loZaehler)
' Einlesen der Zelladresse in das Array
arrWerte(0, loZaehler) = raZelle.Address
' Einlesen der Füllfarbe in das der Zelle in das Array
arrWerte(1, loZaehler) = raZelle.Interior.Color
' Füllfarbe der Zelle zurüksetzen
raZelle.Interior.ColorIndex = xlNone
' Schleifenzähler um 1 erhöhen
loZaehler = loZaehler + 1
End If
Next raZelle
' Tabelle drucken
.PrintOut
' Schleife über alle Elemente des Arrays
For loZaehler2 = 0 To loZaehler - 1
' Zurückübertragen der ausgelesenen Füllfarben
.Range(arrWerte(0, loZaehler2)).Interior.Color = arrWerte(1, loZaehler2)
Next loZaehler2
End With
' Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub
Vielen Dank und Gruß!P. s. Ich habe da auch noch ein zweites Problem, aber dazu später mehr. :-)