Printing pdf files from Access 2000

[Hank Reed]

For about a year I have been printing pdf files from Access 2000 using
the
ShellExecute Me.hWnd, "print", FileName, "", 0, SW_SHOWNORMAL
We normally print, from 1 to 100 engineering documents in this way.

Now I would like to intermingle (Collate) the pdf files with the
Access reports:
i.e. Access Report - pdf file - Access Report - pdf file

When I loop though the list of reports - pseudo code here:
For I = 1 to 10
stDocName = List(I)
DoCmd.OpenReport stDocName, acViewNormal
ShellExecute Me.hWnd, "print", stDocName , "", 0, SW_SHOWNORMAL
' Time delay
Next I

All of the Access reports print out before any of the pdf files.
I tried putting a time delay after the Shell command but no matter how
long the delay, the Access reports all print first. Again I would
like them to alternate.

Is there any way I can stall successive Access reports until the
pdf files have been queued?
Thanks,
Hank Reed

[Wayne Gillespie]

On 11 Jan 2004 07:31:12 -0800, ha********@aol.com (Hank Reed) wrote:

For about a year I have been printing pdf files from Access 2000 using
the
ShellExecute Me.hWnd, "print", FileName, "", 0, SW_SHOWNORMAL
We normally print, from 1 to 100 engineering documents in this way.

Now I would like to intermingle (Collate) the pdf files with the
Access reports:
i.e. Access Report - pdf file - Access Report - pdf file

When I loop though the list of reports - pseudo code here:
For I = 1 to 10
stDocName = List(I)
DoCmd.OpenReport stDocName, acViewNormal
ShellExecute Me.hWnd, "print", stDocName , "", 0, SW_SHOWNORMAL
' Time delay
Next I

All of the Access reports print out before any of the pdf files.
I tried putting a time delay after the Shell command but no matter how
long the delay, the Access reports all print first. Again I would
like them to alternate.

Is there any way I can stall successive Access reports until the
pdf files have been queued?
Thanks,
Hank Reed

Try the Sheel and Wait code from -
http://www.mvps.org/access/api/api0004.htm
Wayne Gillespie
Gosford NSW Australia