Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
inputFile = WScript.Arguments(0)
objExcel.Workbooks.Open inputFile
objExcel.ActiveSheet.PageSetup.PaperSize = 9 'A4
objExcel.ActiveSheet.PageSetup.Orientation = 1 'portrait
objExcel.ActiveSheet.PageSetup.Zoom = False
objExcel.ActiveSheet.PageSetup.FitToPagesWide = 1
objExcel.ActiveSheet.PageSetup.FitToPagesTall = 10
objExcel.ActiveSheet.PageSetup.LeftMargin = objExcel.CentimetersToPoints(2)
objExcel.ActiveSheet.PageSetup.RightMargin = objExcel.CentimetersToPoints(1)
objExcel.ActiveSheet.PageSetup.TopMargin = objExcel.CentimetersToPoints(1)
objExcel.ActiveSheet.PageSetup.BottomMargin = objExcel.CentimetersToPoints(1)
objExcel.ActiveSheet.PageSetup.CenterHorizontally = True
objExcel.ActiveSheet.PrintOut 1, 1000, 1, false, "Adobe PDF", false, false, , true
objExcel.Quit