opslaan met celnaam en als een .PDF.

[boppe]

De sub die ik gebruik is:

Sub opslaan_als()

ActiveWorkbook.SaveAs Filename:="D:\My Documents\" & ActiveSheet.Range("e4").Value & ".pdf"
ActiveWorkbook.Close False
End Sub

Maar helaas... Dit werkt niet. Er komt in die directory keurig een bestandje wat eindigt op .pdf, maar adobe kan deze niet inlezen en zegt dat het beschadigd is of verkeerd is opgeslagen

Met de hand werd altijd gekozen voor SAVE AS > PDF or XPS. Dat moet nu automatisch. Maar daar is vast een ander truckje voor, wie helpt me verder op weg?

groet Robert

 

[ExcelAmateur]

boppe,

Ik denk dat je hier het antwoord kunt vinden.

 

[rudiman]

saveas

Wat je nu doet is de filename aanpassen zodat de extensie .pdf word.
Dat gaat niet helemaal goed, de file word wel gesaved maar niet in het pdf formaat

Wat je wilt is het fileformat aanpassen.
Ik heb excel 2007 en naar ik weet ondersteund deze geen pdf files maar als jij wel pdf kunt saven met jouw excel
dan is de oplossing de saveas routine aan te roepen met het juiste fileformat.

iets van

ActiveWorkbook.SaveAs Filename:=myfile & ".pdf", FileFormat:=xlpdf ( of hoe het format ook heten moge)

Ik heb geen ervaring hiermee omdat mijn excel geen pdf ondersteund,.
Ik heb een pdf printer geinstalleerd en print het bestand naar de pdf printer..

succes

 

[danny147]

Beste boppe

kan je hier iets mee ?

Groetjes Danny. :thumb:

 

[boppe]

boppe,

Ik denk dat je hier het antwoord kunt vinden.

Ik denk dat ik je heel vriendelijk ga bedanken!

bedankt

 

[ExcelAmateur]

boppe,

Rest nu alleen nog de vraag als opgelost te zetten. :thumb: