Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.mailmerge.fields
smstephens1968 smstephens1968 is offline
external usenet poster
 
Posts: 1
Default 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   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Graham Mayor Graham Mayor is offline
external usenet poster
 
Posts: 19,312
Default 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   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default 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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Labels print 1/2" too low when print a page of 5160 labels! Jacki Microsoft Word Help 2 February 1st 07 05:46 PM
How do I print more than one and less than a page of labels NolaKeith Microsoft Word Help 2 April 5th 06 04:37 AM
My labels will only print 1 page. Why? TIA Rock Mailmerge 3 June 1st 05 10:18 PM
How do I reuse the empty labels on my Avery stationery? Martina Page Layout 1 May 18th 05 07:40 PM
How do I delete a page of labels from an 8 page label print out? mooseamatic Microsoft Word Help 1 November 26th 04 12:21 AM


All times are GMT +1. The time now is 12:40 AM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"