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
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
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
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
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
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