PDF erstellen
28.02.2013 12:18:00
Snewi
ich versuche mir automatisch ein PDF zu erstellen und zwar so:
Sub PDFerstellen()
Dim SpeicherName As String
Dim Verzeichnis As String
Dim Pfad As String
SpeicherName = Format(Sheets("Ber").Range("C3"), "YYYYMMDD") & " - Tag_Ber"
Verzeichnis = "T:\Tagesberichte\Tag_Ber\"
Pfad = Ordner_vorhanden_Mon(Verzeichnis, Sheets("Ber").Range("C3"))
Sheets("Ber").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Das klappt auch alles soweit, nur wenn ich debugge bleib ich hier hängen:
Sheets("Ber").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Gruß
Anzeige