Klasse MailingLabel (Word VBA)

Die Klasse MailingLabel stellt ein Adressetikett dar.

Set

Um eine MailingLabel -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim mll as MailingLabel
Set mll = Application.MailingLabel

Klassen Variablen vom Typ MailingLabel können mit der Prozedur Application.MailingLabel festgelegt werden

CreateNewDocument

Erstellt ein neues Etikettendokument entweder mit den Standardetikettenoptionen oder solchen, die Sie angeben.

Syntax : expression.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

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

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.

Syntax : expression.CreateNewDocumentByID (LabelID, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)

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

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

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.

Möglichen Werte sind wdPrinterAutomaticSheetFeed - Automatischer Papiereinzug, wdPrinterDefaultBin - Standardschacht, wdPrinterEnvelopeFeed - Briefumschlagzufuhr, wdPrinterFormSource - Formularschacht, wdPrinterLargeCapacityBin - Schacht für große Mengen, wdPrinterLargeFormatBin - Schacht für große Formate, wdPrinterLowerBin - Unterer Schacht, wdPrinterManualEnvelopeFeed - Manuelle Briefumschlagzufuhr, wdPrinterManualFeed - Manuelle Zufuhr, wdPrinterMiddleBin - Mittlerer Schacht, wdPrinterOnlyBin - Einziger Schacht des Druckers, wdPrinterPaperCassette - Papierkassette, wdPrinterSmallFormatBin - Schacht für kleine Formate, wdPrinterTractorFeed - Traktoreinzug, wdPrinterUpperBin - Oberer Schacht.
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

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen MailingLabel-Objekts darstellt.

Dim objParent As Object
Set objParent = Application.MailingLabel.Parent

PrintOut

Druckt ein Etikett oder eine Seite mit Etiketten mit derselben Adresse.

Syntax : expression.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

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

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.

Syntax : expression.PrintOutByID (LabelID, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)

Application.MailingLabel.PrintOutByID

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

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