Druckbereich als PDF ausgeben
10.08.2017 11:36:50
Marco
Wie ihr lesen könnt möchte ich gerne meinen Druckbereich als PDF ausgeben. Das Klappt wunderbar mit dem diesem Code:
Private Sub CommandButton1_Click()
ChDir "C:\Users\Desktop" 'anpassen 'oder thisworkbook.path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Gruß Marco
Anzeige