Excel to PDF using vbscript

[crwill]

I have been able to convert an Excel worksheet to PDF, however it only does the active worksheet. How can I get it to put all the worksheets in an Excel file to one PDF? Here is what I have:

function excel_app(filename)
strExt = objFSO.GetExtensionName(filename)
wscript.echo strExt
strfilename = objFSO.GetBaseName(filename)
strfilename = strfilename & "." & "pdf"
wscript.echo strfilename
' Create an Excel instance
Dim myExcelWorker
Set myExcelWorker = CreateObject("Excel.Application")
' Disable Excel UI elements
myExcelWorker.DisplayAlerts = False
myExcelWorker.AskToUpdateLinks = False
myExcelWorker.AlertBeforeOverwriting = False
myExcelWorker.DefaultFilePath = "C:\BatchFiles\NewFiles"
'stFilePath = myExcelworker.DefaultFilePath & "\" & strfilename
'Wscript.Echo strFilePath
'Need some way to get the filename from the directory
'I'm thinking along the lines of FSO, but not sure on how
set objDoc = myExcelWorker.Workbooks.Open(filename,,True)

objDoc.ActiveSheet.ExportAsFixedFormat 0, strfilename, 0, 1, 1,,,0

myExcelWorker.Quit
set myExcelWorker = Nothing

end function