endeesfritpt

FAQ

Suche:

ActiveBacode in Word-Etikettenbögen

Ich möchte mit Word einen gesamten Etikettenbogen mit Barcode bedrucken, die eine fortlaufende Nummerierung haben. Wie mache ich das?
Hierzu verwenden Sie ein Makro. Hier ein ganz einfaches Beispiel, welches Sie als Grundgerüst verwenden können:
 Sub barcodeetiketten()
'
' Erstellen eines Etikettenbogens und automatisches
' Ausfüllen der Etiketten mit Barcodes.
'
' 1. Etikettenbogen erstellen:
' Hier wird ein Bogen mit 8 Etiketten verwendet. Über Name kann der
' Etikettenbogentyp ausgewählt werden...
'
Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="Herma 4626", Address:="" _
, AutoText:="ExtrasEtikettenErstellen1", LaserTray:=wdPrinterManualFeed
'
' 2. Nun eine For Schleife um die 8 Barcodes zu erzeugen:
'
For i = 1 To 8
'
' Erstellen des Controls:
'
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Set ab=Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", _
FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

With ab.OLEFormat
.Activate
Set ab = .Object
End With
'
' 3. Zuweisen der Text Property: 
' Dies kann natürlich auch dynamisch erfolgen um Seriennummern o.ä.
' zu erzeugen.
'
ab.Text = "987698769812"
'
'Nächstes Etikett...
'
Selection.MoveRight Unit:=wdCell

Next i

End Sub

| Startseite | Bestellen | Download | E-Mail | Datenschutz | Impressum | Version 6.8.0
Copyright © Frank Horn & Lars Schenk
Alle genannten Warenzeichen und Produktnamen sind Eigentum ihrer jeweiligen Inhaber.



Cookies optimieren die Bereitstellung unserer Dienste. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden. Weiterlesen >