Blattname Jahr u KW automatisch als PDF speichern
21.05.2019 20:14:03
Andreas
ich habe mich neu hier angemeldet weil ich Unterstützung bei einem kleinen Problem brauche. Die Suche habe ich schon bemüht und auch ähnliche Lösungen gefunden, aber keine die speziell für meine Bedürfnisse passt.
Ich würde den Druckbereich des aktuellen Tabellenblattes gerne per Mausklick als PDF speichern, und zwar in der Form: Name des aktuellen Tabellenblalttes_das Jahr_die Kalenderwoche.
Das Jahr wird im Tabellenblatt "Startseite" in Zelle A10 errechnet, die Kalenderwoche wird ebenfalls im Tabellenblatt "Startseite" in Zelle B7 errechnet.
Speicherort soll der Desktop sein.
Das Speichern per Mausklick als PDF auf dem Desktop bekomme ich hin, das läßt sich ja mit dem Makro Recorder zusammenklicken, sogar nur der Druckbereich wird gespeichert.
Hier der Code:
Sub PDF_speichern()
' PDF_speichern Makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Mac\Home\Desktop\WüBack.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Das einzige Problem bei diesem Code ist, dass die PDF Datei unter dem Dateinamen "WüBack" gespeichert wird, und nicht wie gewünscht Tabellenblattname_Jahr_KW. Schön währe außerdem, wenn das PDF nur in schwarz/weiß gespeichert würde.
Ich hoffe ich habe keine angaben vergessen die zur Erstellung des Codes nötig sind.