[Zaria]

When merging data into labels, how can i make the data merge from excell to
word and have it print up and down rather than left to right?

[Peter Jamieson]

There are two possible approaches:
a. design your own label layout using Word columns. e.g. if your label
layout has 3 columns, design a WOrd layout with 3 "newspaper" columns, then
insert either one table with a single column, or 3 tables, each with a
single column
b. sort the records in your data source, e.g. using the following VBA macro
posted previously by Doug Robbins. Some of the lines may need to be put
back together inthe VB Editor. See e.g.

http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

for info on how to use the macro.

' 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


Peter Jamieson


"Zaria" wrote in message
...
When merging data into labels, how can i make the data merge from excell
to
word and have it print up and down rather than left to right?