Control button to print 20 reports

chacquard · November 30th, 2006, 04:55 PM

Hello,

I have a control button. If we click on the button, it should print about 20 different reports, but it doesn't. If I use the debug, and step through the vb code, it works fine, otherwise, it doesn't.

this is the only code I have (20 times, but docname changes):

stDocName = "DailySales"
DoCmd.OpenReport stDocName, acNormal

and at the end, I have a message box notifying the user that the reports have all been printed - that message always shows up.

It feels like Access is way too fast and doesn't send the info to the printer. Do you know of a way around this ??

Thanks
Chantal:)

mmcdonal · December 1st, 2006, 10:35 AM

You could add an On Open event to each report to DoCmd.PrintOut...

The DoCmd.OpenReport just opens the report. How are you sending it to the printer?

mmcdonal

chacquard · December 6th, 2006, 08:16 PM

I usually send the report to the printer with
"DoCmd.OpenReport stDocName, acNormal"

I use this code to print reports on a click of a control button (1 report per button), and it works fine. It just doesn't work well with 20 reports on one control button.

If I put the DoCmd.PrintOut code in the "On Open" event of the reports, if I want to "preview" the report, it will print it.

Do you know of another code to print reports from a control button ?

Thanks

Chantal

chacquard · December 12th, 2006, 01:12 PM

I sure would appreciate having your help on this one... it is a real problem for me here !:(

thanks!

GolferGuy · December 13th, 2006, 10:06 PM

You said "It just doesn't work well with 20 reports on one control button." But you don't say how it doesn't work well. I'm going to assume that the reports sort of get all tangled up with each other. So, if I may suggest, you could put a Wait statement between each report that would wait for x seconds. Of course you will need to write the Wait function. It could look something like this:

Code:

Sub Wait(mWaitSeconds)
dim mNow as Date
  mNow = DateAdd("s", mWaitSeconds, Now())
  While mNow > Now()
    DoEvents
  WEnd
End Sub

Hope that helps,
Vic

Vic

chacquard · December 14th, 2006, 01:11 PM

When I wrote "it doesn't work" I meant that the reports don't print at all...

I tried the wait event and it works fine now.

Thank you!
:)