HorizontalPitch Property Example

This example defines the layout of an existing custom label named "Laser labels." The horizontal distance between the left edge of one label and the left edge of the next label is set to 4.19 inches.

With Application.MailingLabel.CustomLabels("Laser labels")
    .Height = InchesToPoints(2)
    .HorizontalPitch = InchesToPoints(4.19)
    .NumberAcross = 2
    .NumberDown = 5
    .PageSize = wdCustomLabelLetter
    .SideMargin = InchesToPoints(0.16)
    .TopMargin = InchesToPoints(0.5)
    .VerticalPitch = InchesToPoints(2)
    .Width = InchesToPoints(4)
End With