NumberAcross 属性

返回或设置一页中自定义邮件标签的数目。Long 类型，可读写。

expression   必需。该表达式返回一个 CustomLabel 对象。

说明

如果将本属性更改为对指定邮件标签版式无效的值，则会出现错误。

示例

本示例新建一个名为“Dept. Labels”的自定义标签，并定义标签的版式（包括一页中标签的数目）。

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