Export PDF out of Visio using VBS

[chessat2002]

Hi VBS-Guys,

shortly summarized, I would like to do the following (simple) stuff:

x Start Visio
x Open a drawing
x Save this drawing as PDF
x Close Visio

I'm using Windows 7 with a Office/Viso 2010 installation (SP1).
Right now, I have the following code:

set app_visio = CreateObject("Visio.Application")
app_visio.Visible = True
app_visio.Documents.Open "<PATH>"
app_visio.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "<PDF-PATH>", visDocExIntentPrint, visPrintAll, 1, 2, False, True, False, False, False

(just replace the paths)

Problem: At the last line (when attempting to save the drawing as PDF), I always get the following error:

Acces has been denied.
Code: 86DB0971

Maybe someone has an idea what's going wrong here or someone else is able to run this script without error on his machine.

Thanks a lot for your support,

Alex'

[vojo]

cannot natively export visio to a PDF

I use a PDF print driver to do this   PDF995 is real good for this

Print Visio
Select PDFprint driver from printers list
voila

[chessat2002]

Visio can do this (I think it's a plugin that is installed by default). See my attachment.
Your idea with the PDF-printer would be my plan B ...
Alex'

[Paul Herber]

cannot natively export visio to a PDF

Visio 2010 can.

[vojo]

fair enough....visio 2003 can not

[chessat2002]

Yes, this is a really nice feature of Visio 2010. Even though I didn't figure out the problem until now (hours and hours of google research).
Isn't there anybody who can automate this step and who is successful with it?

Thanks a lot, Alex'

[Paul Herber]

You might have to be patient until people get back to work on Monday.