How to print on one page with VBA

[ryan.fitzpatrick3]

I have a named range where when I copy that range onto a new sheet and
print it, it will print out on one page, but the on my existing
workbook sheet, I have vba code:

Sub Print_PlantData()

Sheets("Data").Select
Range("Bellevue").Select
Selection.PrintOut Copies:=1, Collate:=True

end sub

It prints it out on 2 pages, although there is plenty of room on the
1st page. Any suggestions? I also recorded a macro and changed the
print settings and copied and pasted into this macro but no success.
Can someone help me with code please? Thanks.

ryan