DotMatrix Property Example

This example displays the name and printer type of the first custom mailing label.

Set myLabel = Application.MailingLabel
If myLabel.CustomLabels.Count >= 1 Then
    If myLabel.CustomLabels(1).DotMatrix = True Then
        MsgBox myLabel.CustomLabels(1).Name & " is dot matrix"
    Else
        MsgBox myLabel.CustomLabels(1).Name _
            & " is laser or ink jet"
    End If
End If