How to send each document as a separate print job in Word?

[Kbrad32 via OfficeKB.com]

How to send mail merge document as a separate print job in Word? Any help
will be greatly appreciate.

Thanks,
Kbrad32

 

[Doug Robbins - Word MVP]

If you execute the merge to a new document and then run a macro containing
the following code, it will send each letter to the printer as a
separate print job, so that the printer can then do its thing as it does
when printing a single letter.

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


--
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

 

[Kbrad32 via OfficeKB.com]

Thanks a bunch...do you know if you can adjust it to print 10 at a time? I
have over 1100 pages.

 

[Doug Robbins - Word MVP]

What to you want to do between each 10 letters?

--
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

 

[Kbrad32 via OfficeKB.com]

I have my printer to print both sides...it's cookbook to be exact and I don't
know if there is there a way to include a message box to continue to print
the next group or end the print job...this may not be possible, but printing
all 1100 is overwhelming for my printer.

What to you want to do between each 10 letters?

Thanks a bunch...do you know if you can adjust it to print 10 at a time? I
have over 1100 pages.

[quoted text clipped - 17 lines]

 

[Doug Robbins - Word MVP]

Try

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

The computer should not then send the next print job until the present one
is finished.

If you want to modify the macro between each batch, you could replace the
line

For i = 1 To .Sections.Count Step 1

with

For i = 1 to 50

then after the first 50 are printed, change it to

For i = 51 to 100

etc.
--
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

I have my printer to print both sides...it's cookbook to be exact and I
don't
know if there is there a way to include a message box to continue to print
the next group or end the print job...this may not be possible, but
printing
all 1100 is overwhelming for my printer.

What to you want to do between each 10 letters?

Thanks a bunch...do you know if you can adjust it to print 10 at a time?
I
have over 1100 pages.

[quoted text clipped - 17 lines]

Thanks,
Kbrad32

 

[Kbrad32 via OfficeKB.com]

I tried the the code and it works find but now it will print double sided. I
have my printing peferences set to duplexe so I wouldn't have to do it
manually. So I'm not sure whats going on there and I tried the modifications
and it will only print the first four pages no matter what # of page to print
(ie 51-100)...any suggestions?

Try

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

The computer should not then send the next print job until the present one
is finished.

If you want to modify the macro between each batch, you could replace the
line

For i = 1 To .Sections.Count Step 1

with

For i = 1 to 50

then after the first 50 are printed, change it to

For i = 51 to 100

etc.

I have my printer to print both sides...it's cookbook to be exact and I
don't

[quoted text clipped - 11 lines]

 

[Doug Robbins - Word MVP]

The code is telling the computer to print the document 1 section at a time,
not any particular number of pages. Do you have more than one Section in
each letter?

--
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

I tried the the code and it works find but now it will print double sided.
I
have my printing peferences set to duplexe so I wouldn't have to do it
manually. So I'm not sure whats going on there and I tried the
modifications
and it will only print the first four pages no matter what # of page to
print
(ie 51-100)...any suggestions?

Try

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

The computer should not then send the next print job until the present one
is finished.

If you want to modify the macro between each batch, you could replace the
line

For i = 1 To .Sections.Count Step 1

with

For i = 1 to 50

then after the first 50 are printed, change it to

For i = 51 to 100

etc.

I have my printer to print both sides...it's cookbook to be exact and I
don't

[quoted text clipped - 11 lines]

Thanks,
Kbrad32

 

[Kbrad32 via OfficeKB.com]

My document as follow comes from a template that I created...it has 4 parts
that pull from Access db. The Recipe Name, Description, Ingredients and
Instructions. Every thing print fine, but if the recipe continues to the next
page it doesn't duplex.

The code is telling the computer to print the document 1 section at a time,
not any particular number of pages. Do you have more than one Section in
each letter?

I tried the the code and it works find but now it will print double sided.
I

[quoted text clipped - 38 lines]

 

[Doug Robbins - Word MVP]

That is a setting of the printer, nothing really to do with Word.

--
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

My document as follow comes from a template that I created...it has 4
parts
that pull from Access db. The Recipe Name, Description, Ingredients and
Instructions. Every thing print fine, but if the recipe continues to the
next
page it doesn't duplex.

The code is telling the computer to print the document 1 section at a
time,
not any particular number of pages. Do you have more than one Section in
each letter?

I tried the the code and it works find but now it will print double
sided.
I

[quoted text clipped - 38 lines]

Thanks,
Kbrad32