Classe MailingLabel - etiqueta de endereçamento (Word VBA)
A classe MailingLabel representa uma etiqueta de endereçamento. Para usar uma variável de classe MailingLabel, ela primeiro precisa ser instanciada por exemplo
Dim mll as MailingLabel
Set mll = Application.MailingLabel
CreateNewDocument
Cria um novo documento de etiquetas usando as opções de rótulo padrão ou aquelas que você especificar. Retorna um objeto Document que representa o novo documento.
CreateNewDocument (Name, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)
addr = "Dave Edson" & vbCr & "123 Skye St." _
& vbCr & "Our Town, WA 98004"
Application.MailingLabel.CreateNewDocument _
Name:="2160 mini", Address:=addr, ExtractAddress:=False
Arguments
Optional arguments
Os seguintes argumentos são opcionais
Name (String) - O nome da etiqueta de endereçamento.
Address (String) - O texto da etiqueta de endereçamento.
AutoText (String) - O nome da entrada de AutoTexto que inclui o texto da etiqueta de endereçamento.
ExtractAddress (String) - True para usar o texto de endereço marcado pelo indicador definido pelo usuário chamado "EnvelopeAddress" em vez de usar o argumento Address.
LaserTray (WdPaperTray) - A bandeja da impressora a laser. Pode ser uma das constantes WdPaperTray.
Aqui você pode encontrar os valores possíveis para
PrintEPostageLabel (String) - True para imprimir postagem usando um fornecedor de postagem eletrônica de Internet.
Vertical (Boolean) - True formata o texto verticalmente na etiqueta. Usado para etiquetas de endereçamento de idioma asiático.
CreateNewDocumentByID
Cria um novo documento de etiquetas usando as opções de rótulo padrão ou aquelas que você especificar. Retorna um objeto Document que representa o novo documento.
CreateNewDocumentByID (LabelID, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)
Dim docCreateNewDocumentByID As Document
Set docCreateNewDocumentByID = Application.MailingLabel.CreateNewDocumentByID()
Arguments
Optional arguments
Os seguintes argumentos são opcionais
LabelID (String) - A identificação da etiqueta de endereçamento.
Address (String) - O texto da etiqueta de endereçamento.
AutoText (String) - O nome da entrada de AutoTexto que inclui o texto da etiqueta de endereçamento.
ExtractAddress (String) - True para usar o texto de endereço marcado pelo indicador definido pelo usuário chamado "EnvelopeAddress" em vez de usar o argumento Address.
LaserTray (WdPaperTray) - A bandeja da impressora a laser. Pode ser uma das constantes WdPaperTray.
Aqui você pode encontrar os valores possíveis para
PrintEPostageLabel (String) - True para imprimir postagem usando um fornecedor de postagem eletrônica de Internet.
Vertical (Boolean) - True formata o texto verticalmente na etiqueta. Usado para etiquetas de endereçamento de idioma asiático.
CustomLabels
Retorna uma coleção CustomLabels que representa as etiquetas de endereçamento personalizadas disponíveis. Somente leitura.
Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.
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
DefaultLabelName
Retorna ou define o nome da etiqueta de endereçamento padrão. String de leitura/gravação.
Para encontrar a cadeia de caracteres da etiqueta interna especificada, selecione a etiqueta na caixa de diálogo Opções de Etiqueta (menu Ferramentas, caixa de diálogo Envelopes e Etiquetas, guia Etiquetas, botão Opções). Clique em Detalhes e exiba a caixa de nome Etiqueta que contém a cadeia de caracteres adequada para ser usada nessa propriedade. Para definir uma etiqueta personalizada como etiqueta de endereçamento padrão, use o nome do rótulo que aparece na caixa de diálogo detalhes ou use a propriedade Name com um objeto CustomLabel . A criação de um novo documento de etiqueta a partir de um objeto CustomLabel define automaticamente a propriedade defaultlabelname como o nome do objeto CustomLabel .
Msgbox Application.MailingLabel.DefaultLabelName
DefaultLaserTray
Retorna ou define a bandeja de papel padrão que contém folhas de etiquetas de endereçamento. Leitura/gravação WdPaperTray. Aqui você pode encontrar os valores possíveis para
If Application.MailingLabel.DefaultLaserTray = _
wdPrinterManualEnvelopeFeed Then
StatusBar = "Printer set for feeding labels manually"
Else
StatusBar = "Check printer paper tray setting"
End If
LabelOptions
Exibe a caixa de diálogo Opções de etiqueta.
O método LabelOptions funcionará somente se o documento for o documento principal de uma mala direta.
Sub LabelOps()
If ActiveDocument.MailMerge _
.MainDocumentType = wdMailingLabels Then
Application.MailingLabel.LabelOptions
End If
End Sub
PrintOut
Imprime uma etiqueta ou uma página de etiquetas com o mesmo endereço.
PrintOut (Name, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)
addr = "Jane Doe" & vbCr & "123 Skye St." _
& vbCr & "OurTown, WA 98107"
Application.MailingLabel.PrintOut Name:="5664", Address:=addr
Arguments
Optional arguments
Os seguintes argumentos são opcionais
Name (String) - O nome da etiqueta de endereçamento.
Address (String) - O texto do endereço da etiqueta.
ExtractAddress (String) - True para usar o texto marcado pelo indicador "EnvelopeAddress" (um indicador definido pelo usuário) como o texto do rótulo. Se esse argumento for especificado, o endereço e AutoTexto são ignorados.
LaserTray (WdPaperTray) - A bandeja de impressora a laser a ser usada. Pode ser qualquer constante WdPaperTray .
Aqui você pode encontrar os valores possíveis para
SingleLabel (String) - True para imprimir uma única etiqueta; False para imprimir uma página inteira da mesma etiqueta.
Row (Row) - A linha da etiqueta para uma única etiqueta. Não é válida se SingleLabel for False.
Column (Column) - A coluna de rótulo para uma única etiqueta. Não é válida se SingleLabel for False.
PrintEPostageLabel (String) - True para imprimir postagem usando um fornecedor de postagem eletrônica de Internet.
Vertical (Boolean) - True imprime texto verticalmente o rótulo. Usado para etiquetas de endereçamento de idioma asiático.
PrintOutByID
Imprime uma etiqueta ou uma página de etiquetas com o mesmo endereço.
PrintOutByID (LabelID, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)
Application.MailingLabel.PrintOutByID
Arguments
Optional arguments
Os seguintes argumentos são opcionais
LabelID (String) - A identificação da etiqueta de endereçamento.
Address (String) - O texto do endereço da etiqueta.
ExtractAddress (String) - True para usar o texto marcado pelo indicador "EnvelopeAddress" (um indicador definido pelo usuário) como o texto do rótulo. Se esse argumento for especificado, o endereço e AutoTexto são ignorados.
LaserTray (WdPaperTray) - A bandeja de impressora a laser a ser usada. Pode ser qualquer constante WdPaperTray .
Aqui você pode encontrar os valores possíveis para
SingleLabel (String) - True para imprimir uma única etiqueta; False para imprimir uma página inteira da mesma etiqueta.
Row (Row) - A linha da etiqueta para uma única etiqueta. Não é válida se SingleLabel for False.
Column (Column) - A coluna de rótulo para uma única etiqueta. Não é válida se SingleLabel for False.
PrintEPostageLabel (String) - True para imprimir postagem usando um fornecedor de postagem eletrônica de Internet.
Vertical (Boolean) - True imprime texto verticalmente o rótulo. Usado para etiquetas de endereçamento de idioma asiático.
Vertical
True orienta texto verticalmente em asiáticos etiquetas de endereçamento. Boolean de leitura/gravação.
Sub VerticalLabel()
If ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels And
Application.Language = msoLanguageIDJapanese Then
Application.MailingLabel.Vertical = True
End If
End Sub