Sub aktivesBlattToPdf()
ChDir "/users/buro/Dropbox/D&D/Catering+Lieferservice/Angebote"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Range("A4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
das habe ich gerade, aber funktionieren tut es nicht....
|