ich kann den Fehler in meiner Programierung nicht finden.... Vielleicht könnt ihr mir ja mal mitteilen warum mein Dokument nicht als PDF ausgespuckt wird....
Private Sub CommandButton1_Click()
pfad = ThisWorkbook.Path
ThisWorkbook.ExportAsFixedFormat xlTypePDF
Filename = pfad & "\Bericht_" & Range("A4").Value & "_" &
Range("D2").Value & "_" & Range("D3").Value & "_" & Range("G2").Value &".pdf"
Quality = xlQualityStandard
IncludeDocProperties = True
IgnorePrintAreas = False
OpenAfterPublish = True
End Sub
Vielen Dank im vorausMfG Marcus