Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.mailmerge.fields
jka319
 
Posts: n/a
Default arrange mail merge labels vertically

I need to know how to get my mail merge labels to print one after another
vertically down the page instead of horizontally. Does anyone know how to do
this?
  #2   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP
 
Posts: n/a
Default arrange mail merge labels vertically

Use a Catalog (or in Word XP and later it is called Directory) type mail
merge main document. Set the top and bottom margins to match those of the
label that you want to use and Format the document with the appropriate
number of columns (FormatColumns) and then in the first column, insert a
single cell table whose dimensions match those of the labels that you are
using. Execute the merge to a new document.

Or if your data source is a table in a Word document, you can run the
following macro on the datasource:

' Macro to assign numbers to data source so that it can be sorted to cause
labels to print down columns
Dim Message, Title, Default, labelrows, labelcolumns, i As Integer, j As
Integer, k As Integer
Message = "Enter the number of labels in a row" ' Set prompt.
Title = "Labels per Row" ' Set title.
Default = "3" ' Set default.
' Display message, title, and default value.
labelcolumns = InputBox(Message, Title, Default)
Message = "Enter the number of labels in a column" ' Set prompt.
Title = "Labels per column" ' Set title.
Default = "5" ' Set default.
labelrows = InputBox(Message, Title, Default)
ActiveDocument.Tables(1).Columns.Add
BeforeColumn:=ActiveDocument.Tables(1).Columns(1)
ActiveDocument.Tables(1).Rows(1).Range.Cut
k = 1
For i = 1 To ActiveDocument.Tables(1).Rows.Count - labelcolumns
For j = 1 To labelrows
ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore k + (j - 1) *
labelcolumns
i = i + 1
Next j
k = k + 1
i = i - 1
If k Mod labelcolumns = 1 Then k = k - labelcolumns + labelcolumns *
labelrows
Next i
ActiveDocument.Tables(1).Sort FieldNumber:="Column 1"
ActiveDocument.Tables(1).Rows(1).Select
Selection.Paste
ActiveDocument.Tables(1).Columns(1).Delete

--
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

"jka319" wrote in message
...
I need to know how to get my mail merge labels to print one after another
vertically down the page instead of horizontally. Does anyone know how to
do
this?



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
Mail Merge Word 2003 Issue S.Nicks Mailmerge 5 February 20th 09 02:55 AM
30 page mail merge labels only prints one page? bdhamer Mailmerge 2 October 13th 05 05:07 AM
Creating mailing labels with the Mail Merge Helper Stephen White New Users 1 April 5th 05 02:25 PM
Word Labels into Mail Merge Labels GG Katie Mailmerge 1 January 25th 05 12:12 AM
Why can't I use Mail Merge Wizard with Avery 2160 labels?. Andy39 Mailmerge 1 December 10th 04 03:19 AM


All times are GMT +1. The time now is 02:07 PM.

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"