MailingLabel 对象

Application AutoCorrect 多种对象

该对象代表一个邮件标签。

使用 MailingLabel 对象

使用 MailingLabel 属性可返回 MailingLabel 对象。下列示例将邮件标签选项设为默认值。

With Application.MailingLabel
    .DefaultLaserTray = wdPrinterLowerBin
    .DefaultPrintBarCode = True
End With

用 PrintOut 方法可打印在“标签选项”对话框中“产品编号”框中列出的邮件标签。下列示例用指定地址打印一页“Avery 标准型，5162 地址”标签。

addr = "Katie Jordan" & vbCr & "123 Skye St." _
    & vbCr & "OurTown, WA 98107"
Application.MailingLabel.PrintOut Name:="5162", Address:=addr

说明

用 CustomLabels 属性可打印自定义邮件标签或设置其格式。下列示例为名为“MyLabel”的自定义标签设置标签行数和标签列数。

With Application.MailingLabel.CustomLabels("MyLabel")
    .NumberAcross = 2
    .NumberDown = 5
End With