A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

How to print out every 4th page using Microsoft Word 2003



 
 
Thread Tools Display Modes
  #1  
Old June 1st, 2010, 09:29 PM posted to microsoft.public.word.docmanagement
Raf
external usenet poster
 
Posts: 21
Default How to print out every 4th page using Microsoft Word 2003

I have a word document which is 2700 pages long. I need to print out every
4th page onto letterhead. Is there a means to do this? TIA.
  #2  
Old June 1st, 2010, 11:09 PM posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default How to print out every 4th page using Microsoft Word 2003

You could use a macro containing the following code:

Dim i As Long
With ActiveDocument
For i = 1 To .Range.Information(wdActiveEndPageNumber) Step 4
.PrintOut Range:=wdPrintFromTo, From:="p" & i, To:="p" & i
Next i
End With

That's assuming that it is just those pages that you want to print, and not
the whole document with every fourth page on letter head and the other three
pages of each letter on plain paper for which your printer would need to
have multiple paper sources.

Another thing is that if each letter is in a separate Section of the
document, as would be the case if it was created by mail merge, then you
would need to use:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="p1s" & i, To:="p1s" & i
Next i
End With

If you have a printer with multiple paper trays, and each letter is in a
separate Section, you should however go to the Paper tab of the Page Setup
dialog and there you can set that tray from which the paper for the first
page of each Section should be taken and the tray from which the paper for
the remaining pages of each Section should be taken.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"RAF" wrote in message
...
I have a word document which is 2700 pages long. I need to print out
every
4th page onto letterhead. Is there a means to do this? TIA.


 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:09 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.