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" <susanmstephens.DeleteThis@bellsouth.net> wrote in message
news:49E5D496-F5A6-4548-B753-901C0EF8B309@microsoft.com...
>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?