Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
LabelMakerGuru LabelMakerGuru is offline
external usenet poster
 
Posts: 1
Default Avery 5267, how do I set up so labels read down

How do I get my Avery 5267 labels to print and read down?
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
 
Posts: 19,312
Default Avery 5267, how do I set up so labels read down

The short answer is that you don't. Word reads and writes from left to
write. However if you are merging labels and your data is in the form of a
Word table (http://www.gmayor.com/convert_labels...mail_merge.htm ) you
can use the following macro from fellow MVP Doug Robbins to re-order the
data to format the labels as though they had been entered up and down. The
defaults have been set as 4 across x 20 down which matches Avery 5267

Sub SortData()
' 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 = "4" ' 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 = "20" ' 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



LabelMakerGuru wrote:
How do I get my Avery 5267 labels to print and read down?



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Create Avery labels? The Hun New Users 1 February 9th 06 05:33 PM
can I use the avery std 8160 labels in place of 8250 labels? babydpoll3fan New Users 1 August 22nd 05 09:50 PM
avery labels M Stephenson Microsoft Word Help 2 July 22nd 05 05:19 PM
avery labels janey Page Layout 1 May 26th 05 02:33 PM
bar codes into avery labels 5160 like 2162 labels in ms word all. jim a Mailmerge 1 January 4th 05 11:15 AM


All times are GMT +1. The time now is 06:26 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"