How To Print jump Pages

May 13, 2011 at 13:07:58
Specs: Windows XP
i want to print jump pages like 1,2 then 5,6 then 9,10 then 13,14 then17,18,.....until the last page in the sheet,i use combined pages in the printer to print 2 pages in one face of the paper,, but i can't find the macro.
i just get macro for print the odd and even pages like 1,3,5,6,7,.....end.If i use combined pages with the macro,i just get 1 pages in one face of the paper with setting combined paper in printer

Sub Printit ( )

Start = 1
Total = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = Start To Total Step 2
ActiveSheet.PrintOut from:=Page, To:=Page
Next
End Sub

i need help to print 2 pages then jump 2 pages and print nex pages like this
1,2 then 5,6 then 9,10 then 13,14 then17,18,.....End
I'd setting the printer to print combined paper 2 pages in one face of the paper

Thx

Andrew R


See More: How To Print jump Pages

Report •

#1
May 13, 2011 at 16:03:26
How about this:

Sub JumpPrint()
'Loop through sheets
  For mySht = 1 To Sheets.Count
'Increment Sheet Counter
   numSht = numSht + 1
'Don't print if Sheet Counter = 3 or 4
    If numSht = 3 Or numSht = 4 Then GoTo noPrt
'Print sheets
     Sheets(mySht).PrintOut
noPrt:
'Reset Sheet Counter if it = 4
    If numSht = 4 Then numSht = 0
  Next
End Sub

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Report •

#2
May 13, 2011 at 16:58:56
Hmmm...now that I've read your question a few more times, I'm not sure my solution will work for you .

My code will print sheets 1, 2, 5, 6, 9, 10 etc. but it will print each sheet on a separate piece of paper.

That's not what you are looking for, is it?

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Report •

#3
May 13, 2011 at 23:12:43
thx for the answer..but it didn't work for me
I need macro for printing 2 pages in one document print,,then next document print for jump pages,,this is the example:


I'd 16 pages in one sheet in a workbook,i want to print jump pages like 1,2 then 5,6 then 9,10 then 13,14..
i need macro if i run it in the printer will show 4 document,,each document print 2 pages.so if I use combined paper in the printer to print 2 pages in one face of paper it will print 2 pages in one print.
in case of you printer will show 8 pages and each document will print 1 page,,so if I use the combined paper in the printer,,it will print just 1 page and blank page in one face of paper.

please,can you help me with the macro?


Report •

Related Solutions

#4
May 14, 2011 at 05:43:31
I don't know if that can be done as a "print operation".

Maybe you can explain to me what you mean by "I'd 16 pages in one sheet in a workbook"

Let's say I have 592 rows of data in Column A, Excel will print 37 rows per page and I'll get 16 pages of print out.

What does your sheet look like?

I'm thinking that you need to use a macro that will set the Print Area for a specific range, print it out, change the Print Area, print it out, etc.

That can be done, but you'd need to tell VBA which rows and columns to use as the Print Area each time. You wouldn't need to hard code the ranges (although that would be the easiest method) instead there are various methods by which VBA could determine what the next Print Area should be.

Before anything like that could be written, we would need some specifics about your sheet.

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Report •

#5
May 15, 2011 at 08:05:45
this is what I mean "I'd 16 pages in one sheet in a workbook" I'd edit my Sheet that have 3 Columns and 8 rows in a page,,
I'd setting 3 Columns and 2 row for print_titles that's Column A,B,C and Row 1,2
so Excel will print until row 130

maybe your idea will work for me,,,

I need the macro that will set print area for row 3-19 so Excel will print it in two pages then jump 16 row to 35-51......until row 130 that will be pages 16

maybe that will work

But in my real sheet I'd 380 pages


Report •

#6
May 15, 2011 at 10:53:22
Try this.

Note: I do not have Excel set to print 2 pages per sheet. I'm not sure it is needed when using this macro.

Obviously, I can't see your sheet from where I'm sitting, so I don't know if this will work with your setup.

It is currently set to PrintPreview for testing purposes.

Option Explicit
Sub PrintPages()
Dim lastRw_tmp, lastRw, prtAreaStart, prtAreaEnd As Integer
'Determine Last Row with data in Column A
 lastRw = Range("A" & Rows.Count).End(xlUp).Row
'Set 16 Row PrintArea, skipping 16 Rows each time
 With ActiveSheet
   For prtAreaStart = 3 To lastRw Step 32
       prtAreaEnd = prtAreaStart + 16
        .PageSetup.PrintArea = _
         Range(Cells(prtAreaStart, 1), Cells(prtAreaEnd, 6)).Address
'Print PrintArea
        .PrintOut preview:=True
    Next
  End With
End Sub

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Report •

#7
May 17, 2011 at 00:35:26
I get new problem with the print that if i use the macro ,,,if i insert footer
page 1 of ? the page will set the page 1 and page 2,,next print page 1 and 2..
next same as previous it will set 1 and 2 again,,and some print 4 pages and that's didn't work..

how about this man


What the macro for print 2 pages at once page 1 and 2
next what the macro for print 2 pages at once page 5 and 6
next for print 2 pages at once page 9 and 10
etc..

if there methods have the macro,,,
maybe you can find the macro for that method,,


Report •

Ask Question