VerticalPitch Property

Microsoft Word Visual Basic

expression.VerticalPitch

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 custom label named "VisitorPass" and defines its layout. The distance between the top edge of one label to the top edge of the next label is 2.17 inches.

Set myLabel = Application.MailingLabel.CustomLabels _
    .Add(Name:="VisitorPass", DotMatrix:=False)
With myLabel
    .Height = InchesToPoints(2.17)
    .HorizontalPitch = InchesToPoints(3.5)
    .NumberAcross = 2
    .NumberDown = 4
    .PageSize = wdCustomLabelLetter
    .SideMargin = InchesToPoints(0.75)
    .TopMargin = InchesToPoints(0.17)
    .VerticalPitch = InchesToPoints(2.17)
    .Width = InchesToPoints(3.5)
End With