Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
![]()
I am trying to print labels from a database but it keeps putting one address
on each sheet of labels, how can I fix that? Thanks |
#2
![]()
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
![]()
It appears that you have missed the step to propagate the arrangement of the
merge fields from the first label to the other labels on the sheet. See how what you are doing differs from the instructions in the appropriate one of the following articles. See the article "Mailmerge Labels with Word XP" on fellow MVP Graham Mayor's website at http://www.gmayor.com/mail_merge_lab...th_word_xp.htm See the article "Mail Merge with Word 2007" on fellow MVP Graham Mayor's website at http://www.gmayor.com/merge_labels_with_word_2007.htm However, if you are using a Tablet PC, you may need to use the following: Macro to overcome the problem with propagation of mail merge field fields with a label type mail merge when using a Tablet PC and some other Computers that have Tablet PC Functionality available: Sub MailMergePropagateLabel() Dim atable As Table Dim i As Long, j As Long Dim source As Cell, target As Cell Dim myrange As Range Set atable = ActiveDocument.Tables(1) Set source = atable.Cell(1, 1) Set myrange = source.Range myrange.Collapse wdCollapseStart ActiveDocument.Fields.Add Range:=myrange, Text:="NEXT", _ PreserveFormatting:=False source.Range.Copy For j = 2 To atable.Columns.Count Set target = atable.Cell(1, j) If target.Range.Fields.Count 0 Then target.Range.Paste End If Next j For i = 2 To atable.Rows.Count For j = 1 To atable.Columns.Count Set target = atable.Cell(i, j) If target.Range.Fields.Count 0 Then target.Range.Paste End If Next j Next i atable.Cell(1, 1).Range.Fields(1).Delete End Sub It is suggested that you put this code into a template that you save in the Word Startup folder so that it becomes an add-in and will be available whenever you need it. As the macro has the same name as the Word Command that is supposed to do the job, this macro will run when the Update Labels button is used when setting up the mail merge label main document. -- 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 "Reen" (donotspam) wrote in message ... I am trying to print labels from a database but it keeps putting one address on each sheet of labels, how can I fix that? Thanks |
Reply |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Labels Not As Mailmerge | Mailmerge | |||
Mailmerge Labels | Mailmerge | |||
how do i get the mailmerge labels to print right? | Mailmerge | |||
Mailmerge labels from Outlook | Mailmerge | |||
Mailmerge for labels - Word 2003 | Mailmerge |