ich möchte gern ein Excel Dokument als PDF ausgeben, habe dazu auch einen Code der ein Pdf Dokument erzeugt, jedoch bekomme ich eine Fehlermeldung wenn ich dieses Dokument öffene. Was ist falsch an dem folgende Code:
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
Der Code kann noch ein bischen mehr aber, was auch funktioniert, nur eben das PDF lässt sich nicht öffnen. Ich hoffe sehr mir kann da jemand helfen, denn ich weiß leider nicht mehr weiter.
Danke Jens