Hallo Zusammen,
ich möchte über einen Commandbutton, die erstellte Datei in einem bestimmten Ordner als PDF speichern und anschließend ausdrucken.
Mein bisheriger Code funktioniert nur ohne Commandbutton und lautet wie folgt:
Sub aktivesBlattToPdf()
ChDir "c:\Elisabeth\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("C21").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Wie kann ich denn nun das Private Sub CommandButton1_Click() mit meinem Code verbinden?
Und kann mir jemand beim erstellen des Befehls für "Drucken" helfen?
Vielen Dank schon mal!
Liebe Grüße! :)
|