expression.NumberAcross
expression Required. An expression that returns a CustomLabel object.
Remarks
If this property is changed to a value that isn't valid for the specified mailing label layout, an error occurs.
Example
This example creates a new custom label named "Dept. Labels" and defines the layout, including the number of labels across the page.
Set myLabel = Application.MailingLabel.CustomLabels _
.Add(Name:="Dept. Labels", DotMatrix:=False)
With myLabel
.Height = InchesToPoints(0.5)
.HorizontalPitch = InchesToPoints(2.06)
.NumberAcross = 4
.NumberDown = 4
.PageSize = wdCustomLabelLetter
.SideMargin = InchesToPoints(0.28)
.TopMargin = InchesToPoints(0.5)
.VerticalPitch = InchesToPoints(2)
.Width = InchesToPoints(1.75)
End With