How do I print faster?

[vito]

Hi! I made a VBA macro which print out copies of diffrent pages. The number
of copies is decided in a cell. The code is activeworksheets.printout
copies:=value
This works but the printer prints out the pages one by one instead of in one
flow.
Is there anyone knowing how I can make the printer print the pages in one
flow?

 

[Jacob Skaria]

Dim intCopies As Integer
intCopies = Range("A1")
For intTemp = 1 To intCopies
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next

If this post helps click Yes

 

[vito]

Thank you for answer but I think that the loop will make one copy at the time.
What I want is to send one file to the printer so that the printer prints
all copies at the same time.
Now it prints one copy than it wait a moment then comes the next copy and so
on.

"Jacob Skaria" skrev:

 

[Bob I]

Is your printer capable of doing that?

Thank you for answer but I think that the loop will make one copy at the time.
What I want is to send one file to the printer so that the printer prints
all copies at the same time.
Now it prints one copy than it wait a moment then comes the next copy and so
on.

"Jacob Skaria" skrev: