返回介绍

CustomLabels 属性

发布于 2019-09-29 10:07:06 字数 834 浏览 1105 评论 0 收藏 0

返回一个 CustomLabels 集合,该集合代表有效的自定义邮件标签。只读。

有关返回集合中单个成员的内容,请参阅返回集合中的对象。

示例

本示例新建一个名为“AdminAddress”的自定义标签,再用一个预定义寄信人地址创建一页邮件标签。

Dim strAddress As String
Dim labelNew As CustomLabel

strAddress = "Administration" & vbCr & "Mail Stop 22-16"

Set labelNew = Application.MailingLabel _
 .CustomLabels.Add(Name:="AdminAddress", DotMatrix:= False)

With labelNew
 .Height = InchesToPoints(0.5)
 .Width = InchesToPoints(1)
 .HorizontalPitch = InchesToPoints(2.06)
 .VerticalPitch = InchesToPoints(0.5)
 .NumberAcross = 4
 .NumberDown = 20
 .PageSize = wdCustomLabelLetter
 .SideMargin = InchesToPoints(0.28)
 .TopMargin = InchesToPoints(0.5)
End With

Application.MailingLabel.CreateNewDocument _
 Name:="AdminAddress", Address:=strAddress

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文