Printing but screen is too large

Greetings and Salutations!

I am trying to print a Form. If it is maximized to my screen prior to printing, it is too large for the paper.

This is what I am using to print the Form:

Private Sub mnuPrint_Click()

CommonDialog1.CancelError = True
On Error GoTo CancelButtonPressed

' Bring up the printer selection
CommonDialog1.ShowPrinter

' Print the form
Form1.PrintForm

' End the print request
Printer.EndDoc

Exit Sub

CancelButtonPressed:

End Sub

What can I do to make the Form print at the correct size of the paper.

Thank you for reading this and any help you can provide.