Excel als pdf drucken mit VBA

Private Sub Speichern()
' Speichern als PDF
Dim Datum1, ZF1, ZF2
Dim Datum2, ZF3, ZF4, ZF5
Dim Blatt$
Dim anzahl As Long
Dim ausgabestring As String
Dim filename
Dim Gesellschaft$
Dim GB$
Dim psfile As String
' Datum1 ethält das aktuelle Systemdatum.
Datum1 = Date - 25
ZF1 = Format(Datum1, "mm")    ' Datumsformat Monat
ZF2 = Format(Datum1, "yy")    ' Datumsformat INFO
Datum2 = Time
ZF3 = Format(Datum2, "hh")    ' Datumsformat Tag
ZF4 = Format(Datum2, "mm")    ' Datumsformat Stunde
ZF5 = Format(Datum2, "ss")    ' Datumsformat Minute
'Bereich auswählen
Sheets("PC_Datensheet").Select
Application.Run "OnGenericSetSheetActive"
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("C4:AF51").Select
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Gesellschaft$ = Trim(Cells(3, 6).Value)
GB$ = Trim(Cells(3, 4).Value)
Sheets("PC_Datensheet").Activate
ChDrive "C"
ChDir "C:\rfts\"
'filename = "test12.pdf"
Application.ActivePrinter = "PDF Writer (GhostScript) auf RPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, copies:=1, printtofile:=True, _
'Collate:=True, PrToFileName:="test12.pdf"
Collate:=True, PrToFileName:="c:\rfts\" & "Mapis_Upload" & "_" & ZF1 & "_" & ZF2 & "." & "pdf"
End Sub