Alternate Worksheet printing

S

Steve S.

(this is posted from another area - I think it fits best
here - sorry for duplication)

If I were to have all odd pages on worksheet "ODD", and
all even pages on worksheet "EVEN", is there any way to
alternate the printing so they would print in order?

Example
ODD EVEN
1 2
3 4
5 6... want to print 1,2,3,4,5,6...
 
J

Jim Rech

I'm not totally sure I follow you but one of the options on File, Page
Setup, Sheet is Page Order. Maybe you want "Over, Then Down".

--
Jim Rech
Excel MVP
| (this is posted from another area - I think it fits best
| here - sorry for duplication)
|
| If I were to have all odd pages on worksheet "ODD", and
| all even pages on worksheet "EVEN", is there any way to
| alternate the printing so they would print in order?
|
| Example
| ODD EVEN
| 1 2
| 3 4
| 5 6... want to print 1,2,3,4,5,6...
|
 
G

Guest

Here's the challenge:
Because column widths are universal, I need to set up two
different formatted pages. (There is a tear-off sheet of
information and since it's 2-sided, it has to be on the
right side of the sheet on ODD page numbers and left side
of the sheet on EVEN page numbers)

Because of this, I would need to print in the order as
previously stated so the book would be put back into it's
proper order. Printing one side and running them back
through for the second side will not work as there are
over 300 pages/book and over 1000 books.
 
F

Frank Kabel

Hi
try a macro like the following:

sub print_even_odd()
dim numpages
dim i
numPages = Application.ExecuteExcel4macro("Get.Document(50)")
for i = 1 to numpages
if i mod 2 = 0 'even pages
with activesheet.pagesetup
'set your page options for even pages
end with
else 'odd pages
with activesheet.pagesetup
'set your page options for odd pages
end with
end if
activesheet.printout (from:=i to:=i)
next i
end sub
 
J

Jim Rech

I get it - you have two worksheets and you want to print page 1 from sheet1
then page 1 from sheet2 then page 2 from sheet1 then page 2 from sheet2,
etc.

Maybe something like this. This assumes the same number of pages on each
sheet.

Sub a()
Dim NumPages As Integer
Dim Counter As Integer
NumPages = Application.ExecuteExcel4Macro("Get.Document(50)") 'Thanks
Frank!
For Counter = 1 To NumPages
Worksheets("Sheet1").PrintOut From:=Counter, To:=Counter
Worksheets("Sheet2").PrintOut From:=Counter, To:=Counter
Next
End Sub


--
Jim Rech
Excel MVP
| Here's the challenge:
| Because column widths are universal, I need to set up two
| different formatted pages. (There is a tear-off sheet of
| information and since it's 2-sided, it has to be on the
| right side of the sheet on ODD page numbers and left side
| of the sheet on EVEN page numbers)
|
| Because of this, I would need to print in the order as
| previously stated so the book would be put back into it's
| proper order. Printing one side and running them back
| through for the second side will not work as there are
| over 300 pages/book and over 1000 books.
|
| >-----Original Message-----
| >I'm not totally sure I follow you but one of the options
| on File, Page
| >Setup, Sheet is Page Order. Maybe you want "Over, Then
| Down".
| >
| >--
| >Jim Rech
| >Excel MVP
| message
| >| >| (this is posted from another area - I think it fits best
| >| here - sorry for duplication)
| >|
| >| If I were to have all odd pages on worksheet "ODD", and
| >| all even pages on worksheet "EVEN", is there any way to
| >| alternate the printing so they would print in order?
| >|
| >| Example
| >| ODD EVEN
| >| 1 2
| >| 3 4
| >| 5 6... want to print 1,2,3,4,5,6...
| >|
| >
| >
| >.
| >
 
Top