I have a sheet with 22 pages of forms, all separated with Page Headers. Some
of the pages get printed up to 20 times using Copies:=20 and so forth.
Although my macro currently steps through several variable comparisons and
prints each page if the value is greater than 0, this then makes my printer
print separate print jobs, which then collates them all and I have to rotate
the sheets and jog them up. This is then repeated 9 times so I end up jogging
and rotating up to 300 sheets of paper. The Collate:=False and Collate:=True
control has no effect. I've even tried pulling out the second paper tray, but
this just makes the printer hold back the print jobs that it wants to take
from that tray and waits until the tray is pushed in again and prints those
jobs anyway, which makes the sheets get out of order.

I've spent an hour reading posts and it seems that several people have this
problem in one form or another. Is it possible to create a statement or is
there already a statment that will print several pages of a sheet based a
string of numbers? I can establish the string ahead of time using similar
variable comparisons. Say, out of the 22 pages, my print job needs to print
pages 1,2,5,7,8,9,15,16. Does something like this exist ...

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2,5,7,8,9,15,16

or some variation of this?

There has to be a way to do this, I just can't figure it out.

Don

this doesn't necessarily answer your question about whether you can
print a string of sheets but maybe this will work (though
inefficiently)...
Try tweaking your code so that instead of printing each sheet right
away, it adds the name of the sheet you want to print to an array.

Next, create a loop that will loop through the array of sheets and
print the array however many times you need it.

I've done this with board packs and financial reporting packs that I
need to print and it's worked great.

On Oct 17, 9:01*am, Don M. wrote:
I have a sheet with 22 pages of forms, all separated with Page Headers. Some
of the pages get printed up to 20 times using Copies:=20 and so forth.
Although my macro currently steps through several variable comparisons and
prints each page if the value is greater than 0, this then makes my printer
print separate print jobs, which then collates them all and I have to rotate
the sheets and jog them up. This is then repeated 9 times so I end up jogging
and rotating up to 300 sheets of paper. The Collate:=False and Collate:=True
control has no effect. I've even tried pulling out the second paper tray, but
this just makes the printer hold back the print jobs that it wants to take
from that tray and waits until the tray is pushed in again and prints those
jobs anyway, which makes the sheets get out of order.

I've spent an hour reading posts and it seems that several people have this
problem in one form or another. Is it possible to create a statement or is
there already a statment that will print several pages of a sheet based a
string of numbers? I can establish the string ahead of time using similar
variable comparisons. Say, out of the 22 pages, my print job needs to print
pages 1,2,5,7,8,9,15,16. Does something like this exist ...

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2,5,7,8,9,15,16

or some variation of this?

There has to be a way to do this, I just can't figure it out.

Don

I suspect that might work if I had only one page to print on each sheet.
Unfortunately, I have several pages on a sheet and need to print a variable
list of page numbers depending on certain criteria.

I will try to write a macro that does what you suggest just for my own
knowledge. I hadn't thought of that before.

Thank you

Don

"Tim879" wrote:

this doesn't necessarily answer your question about whether you can
print a string of sheets but maybe this will work (though
inefficiently)...
Try tweaking your code so that instead of printing each sheet right
away, it adds the name of the sheet you want to print to an array.

Next, create a loop that will loop through the array of sheets and
print the array however many times you need it.

I've done this with board packs and financial reporting packs that I
need to print and it's worked great.

On Oct 17, 9:01 am, Don M. wrote:
I have a sheet with 22 pages of forms, all separated with Page Headers. Some
of the pages get printed up to 20 times using Copies:=20 and so forth.
Although my macro currently steps through several variable comparisons and
prints each page if the value is greater than 0, this then makes my printer
print separate print jobs, which then collates them all and I have to rotate
the sheets and jog them up. This is then repeated 9 times so I end up jogging
and rotating up to 300 sheets of paper. The Collate:=False and Collate:=True
control has no effect. I've even tried pulling out the second paper tray, but
this just makes the printer hold back the print jobs that it wants to take
from that tray and waits until the tray is pushed in again and prints those
jobs anyway, which makes the sheets get out of order.

I've spent an hour reading posts and it seems that several people have this
problem in one form or another. Is it possible to create a statement or is
there already a statment that will print several pages of a sheet based a
string of numbers? I can establish the string ahead of time using similar
variable comparisons. Say, out of the 22 pages, my print job needs to print
pages 1,2,5,7,8,9,15,16. Does something like this exist ...

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2,5,7,8,9,15,16

or some variation of this?

There has to be a way to do this, I just can't figure it out.

Don