/Jens
Dim objXL
Dim Arg
Set Arg = WScript.Arguments
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = FALSE
ObjXL.WorkBooks.Open "D:\Program Files\Microsoft
Office\Office\XLStart\PDFWriter.xla"
ObjXL.WorkBooks.Open Arg(0)
ObjXl.ActiveWorkbook.SaveAs Arg(1)
ObjXL.Run ("Auto_Open")
ObjXL.Run ("PrintPDFFile")
ObjXL.Quit
Nicole Allen wrote in message <#dBTf#XF$GA.196@cppssbbsa03>...