normaal gezien zo dit moet werken getest in een leeg test blad maar als ik het in mijn originele blad zet niet de laatste regel geef dan een fout melding ik weet me geen raad meer originele blad zitten meerder macro`s en is beveiligt maar at moet volgens mij niet uit maken als het een ander code moet worden is het ook goed
Code:
Sub SaveActiveWorkbookAsPDF()
Dim saveLocation As String
saveLocation = "C:\Users\bonoi\OneDrive\Documenten\test\myPDFFile.pdf"
'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
End Sub
Laatst bewerkt door een moderator: