Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Label Printing order
How can you do a mail merge for lables to a 2 column page where you sort your
data by zip code and have the order go from top to bottom in columns instead of from left to right in rows? Some users here want to pull sorted labels off by column instead of by row. |
#2
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Label Printing order
Use Access to produce the labels, or run the following macro on a Word data
source: ' 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 "UB OTS" wrote in message ... How can you do a mail merge for lables to a 2 column page where you sort your data by zip code and have the order go from top to bottom in columns instead of from left to right in rows? Some users here want to pull sorted labels off by column instead of by row. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Avery 4013 Label Printing | Mailmerge | |||
Merge Label Printing | Microsoft Word Help | |||
Manual duplex printing and reversing print order on reverse side | Microsoft Word Help | |||
Addresses are printing outside the actual label size | Microsoft Word Help | |||
Printing multiple copies of each label using mail merge | Mailmerge |