FAQ: TBarCode OCX

Das ist eine Einschränkung des aktuell gewählten Fonts (z.B. MS Sans Serif). Selektieren Sie eine TrueType Schriftart (z.B. Arial), dann sollte das Problem behoben sein.

Selektieren Sie Code128 als Barcode-Type. Stellen Sie sicher, dass im Format-String nichts eingetragen ist. Code-128 komprimiert die Daten automatisch - die internen Subsets werden dabei automatisch umgeschaltet.

Visual Basic

Dim fnt As stdole.StdFont
Set fnt = new stdole.StdFont
fnt.Name = "Arial"
Set TBC.Font = fnt

Microsoft Visual C++

COleFont cOF = m_TBarCode.GetFont();
tagCY cy = cOF.GetSize();
cOF.SetName("Arial"); // Font Family = Arial
cy.int64 = cy.int64 * 1.5; // add 50% to original size
cOF.SetSize(cy);
m_TBarCode.SetFont((LPDISPATCH) cOF);
cOF.ReleaseDispatch();

VBscript® (ASP):

Dim fnt
set fnt = Server.CreateObject("StdFont")
fnt.name = "Arial"
set TBC.Font = fnt

PHP (Windows):

$bcobj = new COM("TBarCode7.TBarCode7");
$fntobj = new COM("StdFont");
$fntobj->Name="Times";
$fntobj->Size=12;
$bcobj->Font=$fntobj;

Zuerst eine Variable mit dem Typ OLE Automation.StdFont deklarieren. Dieses Font-Objekt wird danach dem TBarCode COM Object zugewiesen.

Name      DataType      Subtype
StdFont   Automation    'OLE Automation'.StdFont

    CLEAR(BC);
    BC.Refresh;
    IF ISCLEAR(StdFont) THEN
      CREATE(StdFont);
    StdFont.Size := 30;
    StdFont.Name := 'Arial';
    BC.Font      := StdFont;

Das ist ein Druckertreiber-Problem (tritt z.B. bei Toshiba TEC und DataMax Druckern auf). Als Abhilfe die Zeichenmethode bei TBarCode (GDI Befehle) umstellen wie folgt:

TBarCode V8+ Die ActiveX Eigenschaft DrawMode bitte auf den Wert Compatible einstellen.

TBarCode V7 Erstellen Sie eine Datei namens Barcode.ini mit folgendem Inhalt: [DRAW_MODE] UseGDIRect=1 Kopieren Sie die barcode.ini Datei in das Installationsverzeichnis von TBarCode (wo sich die Datei tbarcode7.ocx oder tbarcode7.dll befindet). Starten Sie Ihr Programm neu.

Für das Einfügen mehrere Barcodes verwenden Sie am besten die Serienbrief Funktion in der TBarCode Werkzeugleiste. Damit können Sie nach der Erstellung des Serienbriefes alle gekennzeichneten Textstellen durch Barcodes ersetzen. Näheres zur TBarCode Toolbar und zu deren Funktionalität lesen Sie bitte in der TBarCode OCX Benutzerdokumentation nach.

Bei Geschwindigkeitsproblemen bieten wir als Alternative das VBA Macro "BarcodeSeries" an, welches Sie im TBarCode Download-Bereich herunterladen können. Die nötigen Ausführungsschritte sind im beiliegenden Text-Dokument beschrieben.

Öffnen Sie einen neuen Bericht in der Entwurfsansicht. Um für jeden Datensatz einen Barcode zu generieren, fügen Sie das ActiveX^® Steuerelement in den Detailbereich ein und positionieren das Objekt an der gewünschten Stelle.

Dazu wählen Sie im Hauptmenü Einfügen den Eintrag ActiveX Steuerelement. Es erscheint eine Liste der verfügbaren Elemente, aus der Sie TBarCode auswählen. Das Objekt wird im Detailbereich eingefügt.

Der Detailbereich wird für jeden Datensatz einmal aufgerufen bzw. angezeigt, sobald der Report in der Vorschau oder beim Ausdrucken gestartet wird. In der Toolbox (bzw. Werkzeugleiste) werden alle Elemente angezeigt, die Sie noch zusätzlich einfügen können.

Wie steuere ich den Inhalt des Barcodes in einem Report (Bericht)?

Dazu klicken Sie in der Entwurfsansicht mit der rechten Maustaste auf das TBarCode Objekt. Es erscheint ein Menü, in dem Sie Eigenschaften auswählen.

Im Submenü Daten können Sie den Steuerelementinhalt festlegen, d.h. aus welchem Datenfeld Ihrer Tabelle (oder Abfrage) der Inhalt des Strichcode-Objektes kommen soll; z.B. Sie haben ein Feld Artikelnummer und möchten diese Nummer als Barcode ausdrucken, dann wählen Sie als Feld "Artikelnummer" aus. In den weiteren Eigenschaften können Sie Textfarbe, Barcode-Typ usw. einstellen.

Dieser Fehler kann auftreten wenn nicht die komplette Prog-ID für CreateObject verwendet wird. Referenzieren Sie die TBarCodeTypeLib in den Projekt-Einstellungen und verwenden Sie den folgenden VB-Code:

     Dim obj TB As TBarCode8
     Set obj TB = CreateObject("TBarCode8.TBarCode8")
     objTB.AboutBox

Für weitere Fehlereingrenzung lesen Sie bitte Microsoft^® Knowledge Base Article - 244264

Es gibt Interface-Tools auf dem Markt, mit denen man ActiveX^® Controls und DLL's in Java einbinden kann. Diese Tools können auch in Verbindung mit TBarCode OCX und DLL verwendet werden. Als Beispiele seien hier angeführt:

• OLEJA (Java-COM-Bridge): www.simtel.net.
• JAWIN (Open Source): www.develop.com/OpenSource.

Beispiel for TBarCode OCX

Die Lizenzierung erfolgt beim Start des Microsoft Excel^® Dokuments, in dem TBarCode OCX verwendet wird.

• Wechsel in den VBA Editor: Alt+F11
• Im Projektfenster "This Workbook" selektieren.
• Folgenden Code unter dem Event Workbook - Open eingeben:

Private Sub Workbook_Open()
 Dim tbc As TBarCode8
 Set tbc = CreateObject("TBarCode8.TBarCode8")
 tbc.LicenseMe "Mem: Name", eLicKindDeveloper, 1, _
               "Key", eLicProd1D
 Set tbc = Nothing
End Sub

TBarCode OCX

Nachfolgend zeigen wir die Lizenzierung beim Start der Datenbank.

Generieren Sie ein neues Modul mit der folgenden Funktion (im Microsoft VBA Editor):

Public Function LicenseTBarCode()
 Dim TB As New TBarCode8
 TB.LicenseMe "Mem: Name", eLicKindDeveloper, 1, _
              "Key", eLicProd1D
 Set TB = Nothing
 End Function

Legen Sie ein neues Makro an mit dem Namen "Autoexec" und folgenden Einstellungen:

Action = RunCode
Functionname = LicenseTBarCode()