Klasse MailingLabel - Adressetikett (Word VBA)
Die Klasse MailingLabel stellt ein Adressetikett dar. Um eine MailingLabel -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim mll as MailingLabel
Set mll = Application.MailingLabel
CreateNewDocument
Erstellt ein neues Etikettendokument entweder mit den Standardetikettenoptionen oder solchen, die Sie angeben.
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
Die folgenden Argumente sind optional
Name (String) - Der Name auf dem Adressetikett.
Address (String) - Der Text für das Adressetikett.
AutoText (String) - Der Name des AutoText-Eintrags mit dem Text für das Adressetikett.
ExtractAddress - String
LaserTray (WdPaperTray) - Der Papierschacht für Laserdrucker.
Dies sind mögliche Werte für
PrintEPostageLabel (String) - True, wenn das Porto über einen E-Porto-Anbieter im Internet gedruckt werden soll.
Vertical (Boolean) - Mit True wird der Text vertikal auf dem Etikett formatiert.
CreateNewDocumentByID
Erstellt ein neues Etikettendokument entweder mit den Standardetikettenoptionen oder solchen, die Sie angeben.
CreateNewDocumentByID (LabelID, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)
Dim docCreateNewDocumentByID As Document
Set docCreateNewDocumentByID = Application.MailingLabel.CreateNewDocumentByID()
Arguments
Optional arguments
Die folgenden Argumente sind optional
LabelID (String) - Die ID des Adressetiketts.
Address (String) - Der Text für das Adressetikett.
AutoText (String) - Der Name des AutoText-Eintrags mit dem Text für das Adressetikett.
ExtractAddress - String
LaserTray (WdPaperTray) - Der Papierschacht für Laserdrucker.
Dies sind mögliche Werte für
PrintEPostageLabel (String) - True, wenn das Porto über einen E-Porto-Anbieter im Internet gedruckt werden soll.
Vertical (Boolean) - Mit True wird der Text vertikal auf dem Etikett formatiert.
CustomLabels
Gibt eine CustomLabels -Auflistung zurück, die die verfügbaren benutzerdefinierten Adressetiketten darstellt.
Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.
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
Gibt den Namen des Standard-Adressaufklebers zurück oder legt ihn fest.
Um die Zeichenfolge des integrierten Etiketts zu suchen, wählen Sie das Etikett im Dialogfeld Etiketten einrichten aus (Menü Extras, Dialogfeld Umschläge und Etiketten, Registerkarte Etiketten, Schaltfläche Optionen). Durch das Erstellen eines neuen Bezeichnungs Dokuments aus einem CustomLabel -Objekt wird die DefaultLabelName -Eigenschaft automatisch auf den Namen des CustomLabel -Objekts festgelegt.
Msgbox Application.MailingLabel.DefaultLabelName
DefaultLaserTray
Gibt den Standard-Papierschacht mit den Blättern für die Adressetiketten zurück oder legt ihn fest. Dies sind mögliche Werte für
If Application.MailingLabel.DefaultLaserTray = _
wdPrinterManualEnvelopeFeed Then
StatusBar = "Printer set for feeding labels manually"
Else
StatusBar = "Check printer paper tray setting"
End If
LabelOptions
Zeigt das Dialogfeld Etiketten einrichten an.
Die LabelOptions-Methode funktioniert nur, wenn es sich bei dem Dokument um das Hauptdokument eines Adressetikettenseriendrucks handelt.
Sub LabelOps()
If ActiveDocument.MailMerge _
.MainDocumentType = wdMailingLabels Then
Application.MailingLabel.LabelOptions
End If
End Sub
PrintOut
Druckt ein Etikett oder eine Seite mit Etiketten mit derselben Adresse.
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
Die folgenden Argumente sind optional
Name (String) - Der Name auf dem Adressetikett.
Address (String) - Der Text für das Adressetikett.
ExtractAddress - String
LaserTray (WdPaperTray) - Der zu verwendende Schacht des Laserdruckers.
Dies sind mögliche Werte für
SingleLabel - String
Row (Row) - Die Etikettzeile für ein einzelnes Etikett.
Column (Column) - Die Etikettspalte für ein einzelnes Etikett.
PrintEPostageLabel (String) - True, wenn das Porto über einen E-Porto-Anbieter im Internet gedruckt werden soll.
Vertical (Boolean) - Mit True wird der Text vertikal auf dem Etikett gedruckt.
PrintOutByID
Druckt ein Etikett oder eine Seite mit Etiketten mit derselben Adresse.
PrintOutByID (LabelID, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)
Application.MailingLabel.PrintOutByID
Arguments
Optional arguments
Die folgenden Argumente sind optional
LabelID (String) - Die ID des Adressetiketts.
Address (String) - Der Text für das Adressetikett.
ExtractAddress - String
LaserTray (WdPaperTray) - Der zu verwendende Schacht des Laserdruckers.
Dies sind mögliche Werte für
SingleLabel - String
Row (Row) - Die Etikettzeile für ein einzelnes Etikett.
Column (Column) - Die Etikettspalte für ein einzelnes Etikett.
PrintEPostageLabel (String) - True, wenn das Porto über einen E-Porto-Anbieter im Internet gedruckt werden soll.
Vertical (Boolean) - Mit True wird der Text vertikal auf dem Etikett gedruckt.
Vertical
Mit True wird Text auf asiatischen Adressetiketten vertikal ausgerichtet.
Sub VerticalLabel()
If ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels And
Application.Language = msoLanguageIDJapanese Then
Application.MailingLabel.Vertical = True
End If
End Sub