VBA Makro erweitern um Funktion "als pdf drucken"

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