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