VerticalPitch Property 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