PDF Export issue

Hi,
I have belo issue when exporting to PDF pages are in various sizes see attached photo
issue.jpg

I use below VBA code:

Sub SaveActiveWorkbookAsPDF() 

sheetArray = Array("PAGE1", "PAGE2")
Sheets(sheetArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="TEST") & ".pdf"

End Sub

Have you set the print ranges for each sheet?