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?

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

If this post helps click Yes
---------------
Jacob Skaria


"vito" wrote:

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?

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:


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

If this post helps click Yes
---------------
Jacob Skaria


"vito" wrote:

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?

Is your printer capable of doing that?

vito wrote:

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:


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

If this post helps click Yes
---------------
Jacob Skaria


"vito" wrote:


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?