Clase MailingLabel - etiqueta postal (Word VBA)

La clase MailingLabel representa una etiqueta postal. Para usar una variable de clase MailingLabel, primero debe ser instanciado, por ejemplo


Dim mll as MailingLabel
Set mll = Application.MailingLabel

CreateNewDocument

Crea un nuevo documento de etiquetas utilizando las opciones predeterminadas de etiqueta o en los que especifique.

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

Los siguientes argumentos son opcionales

Name (String) - Nombre de la etiqueta postal.

Address (String) - Texto de la etiqueta postal.

AutoText (String) - Nombre del elemento de Autotexto que incluye el texto de la etiqueta postal.

ExtractAddress (String) - True para usar el texto de la dirección marcado por el marcador definido por el usuario denominado "" DirecciónSobre"en lugar de usar el argumento Address.

LaserTray (WdPaperTray) - Bandeja de la impresora láser.

Aquí puede ver valores posibles para WdPaperTray

PrintEPostageLabel (String) - True para imprimir franqueo mediante un proveedor de franqueo electrónico de Internet.

Vertical (Boolean) - True da formato al texto verticalmente en la etiqueta.

CreateNewDocumentByID

Crea un nuevo documento de etiquetas utilizando las opciones predeterminadas de etiqueta o en los que especifique.

CreateNewDocumentByID (LabelID, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)


Dim docCreateNewDocumentByID As Document
Set docCreateNewDocumentByID = Application.MailingLabel.CreateNewDocumentByID()

Arguments

Optional arguments

Los siguientes argumentos son opcionales

LabelID (String) - Identificación de la etiqueta postal.

Address (String) - Texto de la etiqueta postal.

AutoText (String) - Nombre del elemento de Autotexto que incluye el texto de la etiqueta postal.

ExtractAddress (String) - True para usar el texto de la dirección marcado por el marcador definido por el usuario denominado "" DirecciónSobre"en lugar de usar el argumento Address.

LaserTray (WdPaperTray) - Bandeja de la impresora láser.

Aquí puede ver valores posibles para WdPaperTray

PrintEPostageLabel (String) - True para imprimir franqueo mediante un proveedor de franqueo electrónico de Internet.

Vertical (Boolean) - True da formato al texto verticalmente en la etiqueta.

CustomLabels

Devuelve una colección CustomLabels que representa las etiquetas postales personalizadas disponibles.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.


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

Devuelve o establece el nombre de la etiqueta postal predeterminada.

Para buscar la cadena de la etiqueta integrada especificada, selecciónela en el cuadro de diálogo Opciones de etiqueta (menú Herramientas, cuadro de diálogo Sobres y etiquetas, ficha Etiquetas, botón Opciones). Al crear un nuevo documento de etiquetas a partir de un objeto CustomLabel , la propiedad DefaultLabelName se establece automáticamente en el nombre del objeto CustomLabel .


Msgbox Application.MailingLabel.DefaultLabelName

DefaultLaserTray

Devuelve o establece la Bandeja de papel predeterminada que contiene las hojas de etiquetas postales. Aquí puede ver valores posibles para WdPaperTray.


If Application.MailingLabel.DefaultLaserTray = _ 
 wdPrinterManualEnvelopeFeed Then 
 StatusBar = "Printer set for feeding labels manually" 
Else 
 StatusBar = "Check printer paper tray setting" 
End If

LabelOptions

Muestra el cuadro de diálogo Opciones para etiquetas.

El método LabelOptions funciona únicamente si el documento es el documento principal de una combinación de correspondencia de etiquetas postales.


Sub LabelOps() 
 If ActiveDocument.MailMerge _ 
 .MainDocumentType = wdMailingLabels Then 
 Application.MailingLabel.LabelOptions 
 End If 
End Sub

PrintOut

Imprime una etiqueta o una página de etiquetas con la misma dirección.

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

Los siguientes argumentos son opcionales

Name (String) - Nombre de la etiqueta postal.

Address (String) - Texto de la dirección de la etiqueta.

ExtractAddress (String) - True para usar el texto marcado por el marcador "EnvelopeAddress" (un marcador definido por el usuario) como el texto del rótulo.

LaserTray (WdPaperTray) - La Bandeja de la impresora láser para usarse.

Aquí puede ver valores posibles para WdPaperTray

SingleLabel (String) - True para imprimir una sola etiqueta; False para imprimir una página completa de la misma etiqueta.

Row (Row) - La fila de la etiqueta de una sola etiqueta.

Column (Column) - La columna de etiqueta de una sola etiqueta.

PrintEPostageLabel (String) - True para imprimir franqueo mediante un proveedor de franqueo electrónico de Internet.

Vertical (Boolean) - True imprime el texto verticalmente en la etiqueta.

PrintOutByID

Imprime una etiqueta o una página de etiquetas con la misma dirección.

PrintOutByID (LabelID, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)


Application.MailingLabel.PrintOutByID

Arguments

Optional arguments

Los siguientes argumentos son opcionales

LabelID (String) - Identificación de la etiqueta postal.

Address (String) - Texto de la dirección de la etiqueta.

ExtractAddress (String) - True para usar el texto marcado por el marcador "EnvelopeAddress" (un marcador definido por el usuario) como el texto del rótulo.

LaserTray (WdPaperTray) - La Bandeja de la impresora láser para usarse.

Aquí puede ver valores posibles para WdPaperTray

SingleLabel (String) - True para imprimir una sola etiqueta; False para imprimir una página completa de la misma etiqueta.

Row (Row) - La fila de la etiqueta de una sola etiqueta.

Column (Column) - La columna de etiqueta de una sola etiqueta.

PrintEPostageLabel (String) - True para imprimir franqueo mediante un proveedor de franqueo electrónico de Internet.

Vertical (Boolean) - True imprime el texto verticalmente en la etiqueta.

Vertical

True orienta verticalmente el texto en las etiquetas postales asiáticas.


Sub VerticalLabel() 
 If ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels And 
 Application.Language = msoLanguageIDJapanese Then 
 Application.MailingLabel.Vertical = True 
 End If 
End Sub