Printing Question

[rml]

This is the code I'm using to print out a record. Works
great but I would like to be able to have the printer
window popup instead of just printing to my default
printer.

Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
Dim stDocName As String
stDocName = "quote"
DoCmd.OpenReport stDocName, acNormal, , "qnumber =" &
Me.qnumber
Exit_Command11_Click:
Exit Sub
Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click
End Sub

Thanks.

 

[Guest]

Change "ACNormal" to "ACPreview". This will allow you to preview the report and change the printer properties

----- rml wrote: ----

This is the code I'm using to print out a record. Works
great but I would like to be able to have the printer
window popup instead of just printing to my default
printer

Private Sub Command11_Click(
On Error GoTo Err_Command11_Clic
Dim stDocName As Strin
stDocName = "quote
DoCmd.OpenReport stDocName, acNormal, , "qnumber =" &
Me.qnumbe
Exit_Command11_Click
Exit Su
Err_Command11_Click
MsgBox Err.Descriptio
Resume Exit_Command11_Clic
End Su

Thanks