Loop printing

[ba2007ali]

Hi sirs:

Can you please help me to find a macro that can loop printing with 45 seconds between the first print and the second

Thanks,
Maher

 

[Biz]

Hi maher,

Can you give more details please?

Alternative post your workbook using megaupload?

Biz

 

[Peter_SSs]

Hi sirs:

Can you please help me to find a macro that can loop printing with 45 seconds between the first print and the second

Thanks,
Maher

Is this what you mean?

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> PrintWaitPrint()<br>    ActiveSheet.PrintOut<br>    Application.Wait (Now + TimeValue("0:00:45"))<br>    ActiveSheet.PrintOut<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>

 

[ba2007ali]

thank you Peter so much.
It's Ok but how can I make this macro goes from print 1 to print 2 (until print 20) meaning next to print 2 and next to print 3 so on until print 20? what you provided is great but if this thing can be added I'll appreciate it so much

Thanking you in advance,

Maher

 

[Peter_SSs]

thank you Peter so much.
It's Ok but how can I make this macro goes from print 1 to print 2 (until print 20) meaning next to print 2 and next to print 3 so on until print 20? what you provided is great but if this thing can be added I'll appreciate it so much

Thanking you in advance,

Maher

Try

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> PrintWaitPrint()<br>    <SPAN style="color:#00007F">Dim</SPAN> p <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">For</SPAN> p = 1 <SPAN style="color:#00007F">To</SPAN> 19<br>        ActiveSheet.PrintOut<br>        Application.Wait (Now + TimeValue("0:00:45"))<br>    <SPAN style="color:#00007F">Next</SPAN> p<br>    ActiveSheet.PrintOut<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>


.. or, if you don't mind (or actually want) the 45 second wait after the last print you could just have:

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> PrintWaitPrint()<br>    <SPAN style="color:#00007F">Dim</SPAN> p <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">For</SPAN> p = 1 <SPAN style="color:#00007F">To</SPAN> 20<br>        ActiveSheet.PrintOut<br>        Application.Wait (Now + TimeValue("0:00:45"))<br>    <SPAN style="color:#00007F">Next</SPAN> p<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>