VBScript to make a pdf from excel

Question

Hello<br /><br />I would like to make a pdf from my excel workbook.<br /><br />Here is my code:<br /><br />' VB Script Document<br />option explicit<br />Dim Xlapp 'Excel<br /> Dim wb 'le classeur<br /> Set XlApp = CreateObject("Excel.application")<br /> XlApp.Visible = True<br /> Set Wb = XlApp.Workbooks.Open("C:\tmp\MonClasseur.xls")<br /> Wb.Sheets(1).PrintOut ,,,,"Adobe PDF",True,,"c:\tmp\essai.pdf"<br /> wb.close false <br /> XlApp.quit <br /> Set Wb = Nothing<br /> Set XlApp = Nothing<br /><br />It does create a pdf file but when opening it, I get the following error message:<br /><br />"Acrobat could not open <File Name> because it is either not a supported file type or because the file has been corrupted (for example, it was sent as an email attachment and wasn't correctly decoded)."<br /><br />I use Adobe Acrobat 7.1.0<br /><br />Any idea to solve my issue ?

Answer 1

I am not too sure of how i can create an instance. Samples given are in VB, not in VBS.
I ve seen the example in vba in the API such as:
Dim pdf As PdfDistiller
pdf.FileToPdf "My Test File.ps", "", ""
I tried to adapt this declaration into my VBS such as:
'option explicit
Dim Xlapp 'Excel
Dim wb 'le classeur
Set XlApp = CreateObject("Excel.application")
XlApp.Visible = True
Set Wb = XlApp.Workbooks.Open("C:\tmp\Publisher_Template_test.xls")
Wb.Sheets(1).PrintOut ,,,,"Adobe PDF",True,,"c:\tmp\essai.ps"
wb.close false
Dim dis 'distiller app
Dim ps 'le fichier psscript
Set dis = CreateObject("PdfDistiller.application")
FileToPDF "c:\tmp\essai.ps","c:\tmp\essai.pdf","Print"
XlApp.quit
Set Wb = Nothing
Set XlApp = Nothing
It would be really helpful if you would have an idea how to instanciate an distiller object in vbs
Many thanks for your help.