Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How can I get labels to print in order-down first, then across,?
I know there used to be a choice to have labels either print across and then
down - or, down and then across. Now, it seems to default to across then down and I can't find how to change it - I have searched in print set up, page set up, mail merge, options - everywhere I can think of! |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How can I get labels to print in order-down first, then across,?
' 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 "Lisa Ham" Lisa wrote in message ... I know there used to be a choice to have labels either print across and then down - or, down and then across. Now, it seems to default to across then down and I can't find how to change it - I have searched in print set up, page set up, mail merge, options - everywhere I can think of! |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inability to print labels | Mailmerge | |||
How do I change the order that labels print from across to down. | Tables | |||
How can i print mirror image file folders labels in one pass? | Microsoft Word Help | |||
HOW DO YOU PRINT LABELS OFF A WORD DOCUMENT | Microsoft Word Help | |||
How do i print labels without saving them first? | New Users |