How to pool Print Jobs
 

FACT:
I have written Module which prints Pay Slips for the Employees based
on the Work Sheet data. I have designed pay slips for A3 size paper,
where 6 pay slips are printed per page. I have data for 5000
employees.

PROBLEM:
When I transfer the one page data, printer starts processing it and
prints, where in the Macro transfers one page each time to the printer
in a few minutes. But while printing it takes really long time, as it
processes each and every page before it prints. How can I reduce this
Page by Page processing. and Process at once and start printing.

my VB Code for Printing the Pay slip is:

Sub Print_PaySlip()

counter = 2
For e = 1 To Range("b1").Value
Range("b8").Select
ActiveCell.Value = counter
Range("b13:r73").Select
Selection.PrintOut Copies:=1, Collate:=True
counter = counter + 6
Next
End Sub




I am not a programming guy I know few other PL and with that knowledge
I have written VB Modules. My work sheet is design is very complicated
and is in multiling, it will be difficult for me to do in VB kindly
help.