Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Mailmerge and Fax / August 2006

Tip: Looking for answers? Try searching our database.

Merge & Fold in Word 2000

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
SuzD - 03 Aug 2006 15:12 GMT
I'm trying to convince Word 2000 to fold newsletters (landscape) after
merging with and printing address info. It WON'T do it! I believe the
problem is that Word shows my document as having 1 Page, no matter how
many sections it has (about 700 documents). So the printer won't fold
it, thinking they're all just sections. I've tried continuous break,
page break (adds blank pg). What am I missing? Could it be the data
file that needs changing? I'm working from theory that main merge
document is the problem. Any help greatly appreciated!
Peter Jamieson - 03 Aug 2006 16:08 GMT
What to do depends on what your printer needs.

If you choose a Letter type merge and merge to a new document, you get one
section for each record in the data source. Each section has the same page
numbering, which is why you have Page 1 repeated over and over.

If your printer needs that entire new document but with page breaks instead
of section breaks, change the type of Merge to be "Directory" ("Catalog" in
Word 2000 and earlier) and put your own page break at the end of the mail
merge main document.

However, it could be that what your printer needs is one /print job/ for
each record in the merge data source, and it won't get that using mailmerge
unless you do a separate merge for each record in the data source, which you
can do using a macro, e.g. to send to the printer try

Sub OneMergePerSourceRec()
'

' NB, needs bettor error management and doubtless other things a VBA expert
' will point out.

Dim intSourceRecord
Dim objMerge As Word.MailMerge
' Dim strOutputDocumentName As String
Dim TerminateMerge As Boolean

' Need to set up this object as the ActiveDocument changes when the
' merge is performed. Besides, it's clearer.

Set objMerge = ActiveDocument.MailMerge
With objMerge

' If no data source has been defined, do it here using OpenDataSource.
' But if it is already defined in the document, you should not need to
define it here.

'  .OpenDataSource _
'    Name:="whatever"

 intSourceRecord = 1
 TerminateMerge = False

 Do Until TerminateMerge
   .DataSource.ActiveRecord = intSourceRecord

   ' if we have gone past the end (and possibly, if there are no records)
   ' then the Activerecord will not be what we have just tried to set it to

   If .DataSource.ActiveRecord <> intSourceRecord Then
     TerminateMerge = True
   ' the record exists
   Else

     .DataSource.FirstRecord = intSourceRecord
     .DataSource.LastRecord = intSourceRecord
     .Destination = wdSendToPrinter
     .Execute
     intSourceRecord = intSourceRecord + 1
   End If
 Loop
End With
End Sub

> I'm trying to convince Word 2000 to fold newsletters (landscape) after
> merging with and printing address info. It WON'T do it! I believe the
[quoted text clipped - 4 lines]
> file that needs changing? I'm working from theory that main merge
> document is the problem. Any help greatly appreciated!
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.