I am trying to make it so that a print preview pops up prior to the actual report is printed I am sure there is a simple way to accomplish this.

Right now I have a button that simply prints it:

Private Sub cmdPrintQuote1_Click()
On Error GoTo Err_cmdPrintQuote1_Click

    Dim stDocName As String

    stDocName = "Quote"
    DoCmd.OpenReport stDocName, acNormal, "Quote Filter"

Exit_cmdPrintQuote1_Click:
    Exit Sub

Err_cmdPrintQuote1_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintQuote1_Click

End Sub

I suppose I could have it open the report but how would I make it so that it would only print that one quote rather than all of them.

Scandalous,
Change this line:

DoCmd.OpenReport stDocName, acNormal, "Quote Filter"

To this:

DoCmd.OpenReport stDocName, acPreview, "Quote Filter"

HTH,

Kevin


dartcoach

Thanks!!

Antonio-
DO you REALLY want the report to flash on the screen and then immediately print?
In our office users like to see the report on the screen, then at their discretion (and when they are good and ready) print it. I've been just creating just ONE button that previews the report. THen the user can go to the menu and use the print button there. A nice feature is that if the report is multiple pages they can then choose which page(s) they want to print. And I ONLY have to provide a print preview button. :)

HTH,

Loralee

Loralee,

How do you make it so that they can choose which pages can be printed off of the menu?