Problem beim Erstellen
23.11.2015 16:01:24
Tanja
ich möchte gerne per Button-Klick ein Pdf von einem Blatt erstellen (nichts besonderes, nur Text ohne Hintergrundfarben).
Bisher habe ich dazu folgenden Code.
Mein Problem dabei ist, dass statt des PDFs komischerweise ein Word-Dokument erstellt wird (eine Fehlermeldung erhalte ich nicht).
Kann mir jemand sagen, was ich hier falsche mache ?
Mein Code:
Sub CreatePdf()
Dim varDesktopPath As String
Dim varTimestamp As String
varTimestamp = Format(Now(), "yyyy-mm-dd_hh-mm-ss")
varDesktopPath = DesktopPath
Call CreateHeaderFooter ' erstellt die Kopf- und Fußzeile der Seite
With Worksheets(4)
.Unprotect Password:=constPw
.Range("M1").Value = "Clear Colors"
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=varDesktopPath & "\" & ActiveWorkbook.Name & "_" & varTimestamp & ".pdf", _
_
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Range("M1").ClearContents
.Protect Password:=constPw, UserInterfaceOnly:=True
End With
End Sub
LG,
Tanja
Anzeige