Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Label printing order change
Labels normally print left-to-right and top-to-bottom. Is there a way to
change that to top-to-bottom, then left-to-right? |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Label printing order change
Please reply if you know the answer to Darrel's question, I am also looking
to print labels vertical instead of horizontal. "DarrelGiesbrecht" wrote: Labels normally print left-to-right and top-to-bottom. Is there a way to change that to top-to-bottom, then left-to-right? |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Label printing order change
There is no function that allows this - however, if your data source is a
Word table (if not make it so - http://www.gmayor.com/convert_labels...mail_merge.htm ) you can use one of fellow MVP Doug Robbins' handy macros to reorder the data source to produce this effect: Sub SortLabelData() ' 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 = "8" ' Set default. labelrows = InputBox(Message, Title, Default) With ActiveDocument.Tables(1) ..Columns.Add BeforeColumn:=ActiveDocument.Tables(1).Columns(1) ..Rows(1).Range.Cut End With 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 End Sub http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Flintstone wrote: Please reply if you know the answer to Darrel's question, I am also looking to print labels vertical instead of horizontal. "DarrelGiesbrecht" wrote: Labels normally print left-to-right and top-to-bottom. Is there a way to change that to top-to-bottom, then left-to-right? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Label Printing order | Mailmerge | |||
How do I change the label type on a label list already created? | Microsoft Word Help | |||
Is there any way to get label to print out in zip code order? | Microsoft Word Help | |||
How do I change page order printing booklet style? | Microsoft Word Help | |||
How to change mailing label size in existing label document | Microsoft Word Help |