pausing between printing each page

[ProgramError]

Hi

Were using a report to print labels on an inkjet printer.
Each page of labels needs time to dry before printing the next page of labels. Anyone know how to do this?

Thanks


Program Error
Programmers do it one finger at a time!

 

[Remou]

Hi
This code in a report pauses for 10 seconds between pages, but it is quite annoying and a bit of a cheat.

Private Sub Report_Page()
vTime = DateAdd("s", 10, Now())
Do While Now() < vTime
'
    
Loop
End Sub

 

[ProgramError]

Thanks Remou

The timing of the pause is the easy part, it's the calling of the pause sub between each page which I'm having trouble with. Would you posibly know who to do this.

Ian M


Program Error
Programmers do it one finger at a time!

 

[Remou]

Hi. Sorry about that! I have tried this and it seems to work.

Dim rpt As Report
DoCmd.OpenReport "Report1", acViewPreview
Set rpt = Application.Reports("Report1")
For i = 1 To rpt.Pages 'Page and pages both appear in the form footer

DoCmd.PrintOut , i, i
vTime = DateAdd("s", 40, Now())
Do While Now() < vTime
'
Loop
Next i

If it was on a form, I think you could use the Timer.
(I have set 'Print directly to printer' in the control panel; it may not be necessary.)

 

[ProgramError]

Thank you

I understand all but the Set rpt = Application.Reports("Report1")

regards

Ian M (uk)

Program Error
Programmers do it one finger at a time!

 

[Remou]

Hi
I put that in so I could get the number of pages (rpt.pages on next line). There probably is a better way.

 

[traingamer]

That's all well and good, but if the printer takes ten seconds to print the first page, the second page will be right behind it anyway.

You're pausing ten seconds between putting pages INTO the print queue, but the queue will then print as IT is set up.

 

[Crowley16]

I don't think there's anything you can do at the printers end, at least not simply, it'd involve testing to see if something has finished printing, and if that was your document...

you can increase the time interval to 30 secs or more...

--------------------
Procrastinate Now!

 

[Remou]

Hi
I guess I should not be adding questions, but it seems relevant. If the spooler is not used (print directly to printer) is there still a print queue?

 

[ProgramError]

Hi Remou

I've implimented a 'continue if key pressed' routine . This solved the problem with the timing and gives the operator time to take out the label before printing the next. By the way I've just found out that the can only put one label in at a time in any case because, they bought manual feed labels... lol

Thank you avery for you label making!

Ian M


Program Error
Programmers do it one finger at a time!

 

[Remou]

Hi Program
(May I call you Program? Or is it M. Error?) Your way sounds so much better, when I tried the delay between sheets it looked as if the printer and / or computer had broken down.