Need help with PrintReport VBA

[templeowls]

I inherited a database and there's a form that looks at each complaint individually (its a DB full of customer complaints). There's a print button that allows the user to just print a copy of the complaint. The VBA is below. Because of the way it's coded, it immediately prints the report to the user's default printer. It does not open a print screen dialog to let the user change the printer, change settings, etc.

Any suggestions on whether it could be altered so that a print dialog opens up?

Private Sub btnPrintComplaint_Click()
On Error GoTo btnPrintComplaint_Click_Err


    DoCmd.OpenReport "rptPrintComplaint", acViewNormal, "", "[qryAllComplaints]![ComplaintNumber]= " & Me.[ComplaintNumber], acNormal


btnPrintComplaint_Click_Exit:
    Exit Sub


btnPrintComplaint_Click_Err:
    MsgBox Error$
    Resume btnPrintEvent_Click_Exit


End Sub

[CJ_London]

there are a number of ways - google 'access vba open print dialog' to find links to different ways of doing this.

Basically you will need code before you open the report, either to create your own dialog box or to display options in the ribbon

[ranman256]

use: acViewPreview

DoCmd.OpenReport "rptPrintComplaint", acViewPreview, , "[qryAllComplaints]![ComplaintNumber]= " & Me.[ComplaintNumber]