Export sheets to PDF macro

[jpsimmon]

Using this code to export multiple worksheets to PDF, how can I adjust the PDF zoom that the PDF will open up to? Manually creating the PDF does this for you but the macro doesn't. Can anyone help?

Sub PDFPages()
ThisWorkbook.Sheets(Array("Front Page", "Page", "Last")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"s:\FolderXX\Folder\Merged.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Thanks!