Set Print Preview to Zoom Mode

Hello,

Can a print preview open to zoom mode? How it is now you have to click zoom to see all of the border lines.

Sub PreviewAFR()
    Application.ScreenUpdating = False
    Sheets("AuthorizedFieldReturn").PrintPreview
    Application.ScreenUpdating = True
End Sub

Thanks I guess it is fine the way it is.

Cheers!