Excel Automatic printing of Pivot report

Here is an example....change as required OR
repost;

This is the initial procedure to run

Sub RunMyPrint_Procedures()
'Run 1st Job
Application.OnTime TimeValue("16:55:00"), "MyPrintJob1"
End Sub

Sub MyPrintJob1()
MsgBox "running my print job1"
'-------------------------------
'Call your print procedure here
'
'
'
'-------------------------------
'Now call routine to cancell Ontime
CancelOT 1
'Now Call 2nd print job
Application.OnTime TimeValue("16:56:00"), "MyPrintJob2"
End Sub

Sub MyPrintJob2()
MsgBox "running my print job2"
'-------------------------------
'Call your print procedure here
'
'
'
'-------------------------------
'Now call routine to cancell Ontime
CancelOT 2
'Call 2nd print job
Application.OnTime TimeValue("16:57:00"), "MyPrintJob3"
End Sub

Sub MyPrintJob3()
MsgBox "running my print job3"
'-------------------------------
'Call your print procedure here
'
'
'
'-------------------------------
'Now call routine to cancell Ontime
CancelOT 3
End Sub

Sub MyPrint_Procedure()
'This is run to print to
'your network printers
End Sub

Sub CancelOT(Whichone As Single)

Select Case Whichone
Case 1
'Cancell 1st Job
Application.OnTime TimeValue("16:55:00"), "MyPrintJob1", False

Case 2
'Cancell 2nd Job
Application.OnTime TimeValue("16:56:00"), "MyPrintJob2", False

Case 3
'Cancell 3rd job
Application.OnTime TimeValue("16:57:00"), "MyPrintJob3", False

End Select

End Sub

HTH

Ivan

Archive of Mr Excel Message Board

Automatic printing of Pivot report - 3 times a day

Re: Automatic printing of Pivot report - 3 times a day