Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How do I print merged labels which begin anywhere on Avery sheet?
I would like to use an Avery Label (5160) page that is partially used to
print an existing mail merge document. How do I get my merged label document to begin printing the first label on say the third row, 2nd column? |
#2
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How do I print merged labels which begin anywhere on Avery sheet?
Use the following macro
Macro to set the first label on a part sheet of labels for a label type mailmerge. Dim MMMDoc As Document Dim dsource As Document Dim dtable As Table Dim i As Long, j As Long Set MMMDoc = ActiveDocument With MMMDoc.MailMerge If .MainDocumentType = wdMailingLabels Then If .State = wdMainAndDataSource Then Set dsource = Documents.Open(.DataSource.Name) Set dtable = dsource.Tables(1) i = InputBox("Enter the number of labels that have already been used on the sheet.", "Set Starting Label") If IsNumeric(i) Then With dtable For j = 1 To i .Rows.Add BeforeRow:=.Rows(2) Next j End With End If .Destination = wdSendToNewDocument .Execute End If End If End With dsource.Close wdDoNotSaveChanges -- 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 "Louise" wrote in message news I would like to use an Avery Label (5160) page that is partially used to print an existing mail merge document. How do I get my merged label document to begin printing the first label on say the third row, 2nd column? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I print Avery 2163 Mini Sheet Labels? Word 2007 HPC4180 Pri | New Users | |||
How do I format mini sheet laser labels for avery? | Mailmerge | |||
Print Avery 1/3 Cut Mini Sheet Labels 5204 | Microsoft Word Help | |||
How do I get merged labels to print in line with Avery template | Tables | |||
How do I create a sheet of Avery file folder labels-sheet size 836 | Microsoft Word Help |