I am merging data from an excel document with forms created within Word.
When I attempt to output this to a new document or directly to the printer I
receive the same results. The desired result is to have each record(set of 5
pages) print with a separate cover and end sheet. I know that I can set my
printer up with different paper in separate trays but the program(Word)
doesn't seem to differentiate a new cover for each document. It prints the
very first page(of 45 for example) with the proper cover and the last page(of
45 for example)with the proper end sheet. This occurs if I merge to a
document or to print. If anyone has any suggestions on how to repeat a 5
page document over and over with a different cover and end sheet in a
automated way, I would appreciate it.

If you execute the merge to a new document and with that document active,
you run a macro containing the following code, it will print the "document"
for each record as a separate print job.

--
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
"craig friend via OfficeKB.com" wrote in message
...
I am merging data from an excel document with forms created within Word.
When I attempt to output this to a new document or directly to the printer
I
receive the same results. The desired result is to have each record(set
of 5
pages) print with a separate cover and end sheet. I know that I can set
my
printer up with different paper in separate trays but the program(Word)
doesn't seem to differentiate a new cover for each document. It prints
the
very first page(of 45 for example) with the proper cover and the last
page(of
45 for example)with the proper end sheet. This occurs if I merge to a
document or to print. If anyone has any suggestions on how to repeat a 5
page document over and over with a different cover and end sheet in a
automated way, I would appreciate it.

Doug...the text was clipped and no longer contains the macro...is there any
way I can contact you to get that macro

Thanks

--
Message posted via http://www.officekb.com

Here it is:

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


--
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
"craig friend via OfficeKB.com" wrote in message
...
Doug...the text was clipped and no longer contains the macro...is there
any
way I can contact you to get that macro

Thanks

--
Message posted via http://www.officekb.com

Doug,

They keep clipping the info. I managed to get the first three lines and part
of the 4th.

If there is somewhere that you can point me to that might have this
information available, I would appreciate it!!

--
Message posted via http://www.officekb.com

Doug...

I used the code that was present and it worked fine. I just assumed, because
the thread stated it had data stripped, that it wasn't complete.

Thanks again for all your help!

--
Message posted via http://www.officekb.com