Number related procedures in class CustomLabel (Word VBA)

This page presents procedures from class CustomLabel related to the theme Number: NumberAcross and NumberDown

NumberAcross

Returns or sets the number of custom mailing labels across a page.

If this property is changed to a value that isn't valid for the specified mailing label layout, an error occurs.

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

NumberDown

Returns or sets the number of custom mailing labels down the length of a page.

If this property is changed to a value that isn't valid for the specified mailing label layout, an error occurs.

numAcr = Application.MailingLabel.CustomLabels(1).NumberAcross 
numDwn = Application.MailingLabel.CustomLabels(1).NumberDown 
MsgBox Prompt:= "Number of labels across " & numAcr & vbCr _ 
 & "Number of labels down " & numDwn & vbCr , _ 
 Title:="Label Page Configuration"