How do I format labels

[Guest]

I am trying to print my labels for subscriptions. I have everything except
that the labels print across instead of up and down. How do I change this? I
know it is probably a simple thing but I can't figure it out.

 

[JoAnn Paules [MVP]]

If you have created the word doc with all of the names you can manually
switch them around. If you did a mail merge, I don't think you can. We read
left to right, top to bottom.

 

[steve]

If you have created the word doc with all of the names you can manually
switch them around. If you did a mail merge, I don't think you can. We read
left to right, top to bottom.

Top posters force normal people to read bottom to top.

 

[JoAnn Paules [MVP]]

Not if they don't post lengthy replies.

Bottom posters force people to reread the entire post before they get to the
answer.

 

[Doug Robbins - Word MVP]

' 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

 

[Dyanna]

Add me into the mix...if this is a bug it is a serious flaw. I would nearly
rather take my chances with my old virus infested laptop that was
occasionally corrupting my essays and causing me to lose them rather than
REGULARILY having this bug alter my documents. Same problem as everything I
have read so far - have a document, working in it, saving diligently then all
of a sudden it turns to read only, I have to copy everything, resave, delete
the old one and work in the new one. Waste of time and seriously annoying.
If ever anyone finds out how to bybass this evil bug that is enough to make
me return the new dell and purchase a MAC...please let me know..I really
don't want to go through that during my Honors Thesis.