pdf erstellen mit Excel
14.07.2014 15:26:33
Snewi
zur Zeit erstelle ich mir aus einem Excel Datenblatt automatisch ein PDF über:
Sub PDFerstellen()
Dim SpeicherName As String
Dim Verzeichnis As String
Dim Pfad As String
SpeicherName = Format(Sheets("Tag_Ber").Range("C3"), "YYYYMMDD") & " - Tag_Ber"
Verzeichnis = "D:\Berichte\"
Pfad = Ordner_vorhanden_Mon(Verzeichnis, Sheets("Tag_Ber").Range("C3"))
Sheets(Array("Tag_Ber", "Dia_Tag")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Nun möchte ich den Bericht auf einem anderem Rechner ausführen auf dem nur der FreePDF XP installiert ist! Wenn ich zusätzlich den PDF Creator installiere klappt es trotzdem nicht!
Was kann ich hier tun? Könnte ich das auch über den FreePDF laufen lassen oder kann ich ihm den Drucker mitgeben weil als standard der FreePDF drinstehen muss!
Gruß