lol here's an example of something that i tried but didnt work...
CODE
Private Sub Command1_Click()
Printer.Print Form1
Printer.EndDoc
End Sub
Printer.Print Form1
Printer.EndDoc
End Sub
edit ++++++++++++++++
found a command that would work
CODE
Private Sub Command1_Click()
Dim Msg ' Declare variable.
On Error GoTo ErrorHandler ' Set up error handler.
PrintForm ' Print form.
Exit Sub
ErrorHandler:
Msg = "The form can't be printed."
MsgBox Msg ' Display message.
Resume Next
End Sub
Dim Msg ' Declare variable.
On Error GoTo ErrorHandler ' Set up error handler.
PrintForm ' Print form.
Exit Sub
ErrorHandler:
Msg = "The form can't be printed."
MsgBox Msg ' Display message.
Resume Next
End Sub
only bad thing is when i go to print it doesnt center the form, it prints it to the top left corner.
does anyone have an idea how to make it print mabe top center or dead center of the page?
thanks!