PrintForm

The PrintForm method sends an image of the current form to the default printer.

The sample application prints the image of the form shown below without the command buttons:

The code for this application is quite sparse (as it does not actually perform any calculations).

The Form_Load event contains code to center the form on the screen and to format the Date and Time labels:

Private Sub Form_Load()

    'center the form:

    Me.Top = (Screen.Height - Me.Height) / 2

    Me.Left = (Screen.Width - Me.Width) / 2

    'display date & time

    lblDate.Caption = Format$(Date, "m/d/yyyy")

    lblTime.Caption = Format$(Time, "h:nn AM/PM")

End Sub

The Click event for the Print button (cmdPrint_Click) hides the two command buttons (by setting their Visible properties to False), issues the PrintForm statement, then makes the buttons visible again:

Private Sub cmdPrint_Click()

    cmdPrint.Visible = False

    cmdExit.Visible = False

    PrintForm

    cmdPrint.Visible = True

    cmdExit.Visible = True

End Sub

The Click event for the Exit button (cmdExit_Click) ends the program by issuing the End command.

Private Sub cmdExit_Click()

    End

End Sub

Download the project files for this sample application here.