Hoi,
Ik heb een VBA proberen te maken die:
een werkblad opslaat als PDF
voor de naam neemt hij "leverancier" + naam cel e1 + datum
er loopt iets mis maar het lukt me niet het te vinden...
Ik heb een VBA proberen te maken die:
een werkblad opslaat als PDF
voor de naam neemt hij "leverancier" + naam cel e1 + datum
er loopt iets mis maar het lukt me niet het te vinden...
Private Sub CommandButton1_Click()
ChDir "D:\Mijn documenten\bonnen PDF"
ActiveSheet.Range("A1:h49").ExportAsFixedFormat Type:=xlTypePDF, Filename:=
"D:\Mijn documenten\bonnen PDF\_& "Leverancier" & Range("e1").Value & "_" & Format(Date, "ddmmyyyy").pdf"
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
MsgBox ("Het bestand is opgeslagen.")
End Sub