Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Reuse a page of Labels to Print
I need to be able to do a mail merge and then to have word 2003 place the
data in the remaining labels that were not used previously usually this is in the middle of the page, however when I preview the page or even print the page the labels are shifted to the top of the page. What can I do that the labels stay positioned in the blocks that have not been previously used? |
#2
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Reuse a page of Labels to Print
Insert an appropriate number of blank records at the start of your data
file. -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org smstephens1968 wrote: I need to be able to do a mail merge and then to have word 2003 place the data in the remaining labels that were not used previously usually this is in the middle of the page, however when I preview the page or even print the page the labels are shifted to the top of the page. What can I do that the labels stay positioned in the blocks that have not been previously used? |
#3
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Reuse a page of Labels to Print
If the data source is a table in a Word document and you run the following
macro after you have set up the mail merge main document with the data source attached to it, it will ask you how many labels have already been used on the sheet, and then temporarily insert the necessary number of blank records into the datasource and then execute the merge. 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 "smstephens1968" wrote in message ... I need to be able to do a mail merge and then to have word 2003 place the data in the remaining labels that were not used previously usually this is in the middle of the page, however when I preview the page or even print the page the labels are shifted to the top of the page. What can I do that the labels stay positioned in the blocks that have not been previously used? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Labels print 1/2" too low when print a page of 5160 labels! | Microsoft Word Help | |||
How do I print more than one and less than a page of labels | Microsoft Word Help | |||
My labels will only print 1 page. Why? TIA | Mailmerge | |||
How do I reuse the empty labels on my Avery stationery? | Page Layout | |||
How do I delete a page of labels from an 8 page label print out? | Microsoft Word Help |