Opslaan PDF

[ningrahare]

hallo,
wie kan mij helpen met deze code ik weet niet hoe ik moet deze bewerken en toevogen , om factuur opteslaan als pdf ..dus als ik op opslaan klik dat die een copy maakt van Factuur werkblad?

[JS]Sub PdfMaken()
Dim Pad As String
Dim BestandsNaam As String
Pad = ActiveWorkbook.Path + "\"
BestandsNaam = Sheets("Beheer").Range("A1").Value
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=Pad + BestandsNaam, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub [/JS]

 

[Breuk132]

Hallo,

Probeer deze eens.

Sub Pdf_maken

Dim Pad As String, BestandsNaam As String

Pad = ActiveWorkbook.Path + "\"
BestandsNaam = Sheets("Beheer").Range("A1").Value
sheets("Factuur").ExportAsFixedFormat Type:=xlTypePDF, fileName:=Pad & BestandsNaam, Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[m@rio]

Je hebt al een topic lopen over een pdf maken:

http://www.helpmij.nl/forum/showthr...laan-als-PDF?p=3450709&highlight=#post3450709

Daar graag verder gaan