Etiketten mit einem QR-Code drucken

In diesem Tutorial drucken Sie ein Etikett je Artikel, jeweils mit der Artikelnummer als Text und als QR-Code, und speichern die Etiketten als PDF-Datei.

• Microsoft 365 Access oder Access Runtime, in 32 oder 64 Bit, mit der WKL Forms Object Library 1.52 oder höher, installiert und für den aktuellen Windows-Benutzer registriert (Freigegebenes Paket installieren).
• Eine neue oder bestehende Datenbank an einem vertrauenswürdigen Speicherort.
• Jedes WKL-Steuerelement öffnet seinen Designer auf dieselbe Weise: in der Entwurfsansicht im Eigenschaftenblatt (F4), Registerkarte Andere, Zeile Benutzerdefiniert, [...] (Designer eines Steuerelements öffnen).

Fügen Sie die Prozedur in ein Standardmodul ein und führen Sie sie einmal im Direktbereich aus (CreateLabelSample):

Public Sub CreateLabelSample()
    Dim i As Long
    With CurrentDb
        .Execute "CREATE TABLE tblArtikel (ID COUNTER CONSTRAINT PK_Artikel PRIMARY KEY, ArtikelNr TEXT(20), Bezeichnung TEXT(50))"
        For i = 1 To 6
            .Execute "INSERT INTO tblArtikel (ArtikelNr, Bezeichnung) VALUES ('WKL-" & (4710 + i) & "', 'Artikel " & i & "')"
        Next
    End With
End Sub

Legen Sie in der Entwurfsansicht einen an tblArtikel gebundenen Bericht rptEtikett an. Machen Sie den Detailbereich etwa 3,5 cm hoch und setzen Sie ein Textfeld ArtikelNr und ein Textfeld Bezeichnung hinein. Wählen Sie Berichtsentwurf › Steuerelemente › ActiveX-Steuerelemente › WKL Barcode, ziehen Sie das Steuerelement links von den Textfeldern etwa 3 cm breit und 3 cm hoch auf und nennen Sie es bcdArtikel. Setzen Sie seinen Steuerelementinhalt (Eigenschaftenblatt, Registerkarte Daten) auf ArtikelNr.

Öffnen Sie den Designer von bcdArtikel ([...] in der Zeile Benutzerdefiniert). Behalten Sie auf der Seite Code die Art QR-Code bei, schalten Sie Text anzeigen ein und geben Sie WKL-4711 als Beispieltext ein: Die Vorschau zeigt den Code mit der Nummer darunter. Schließen Sie den Designer mit OK und speichern Sie den Bericht.

Öffnen Sie rptEtikett in der Seitenansicht. Jedes Etikett zeigt den QR-Code seiner eigenen Artikelnummer; eine Handykamera oder ein Scanner liest WKL-4711, WKL-4712 und so weiter.

Führen Sie im Direktbereich aus:

DoCmd.OutputTo acOutputReport, "rptEtikett", acFormatPDF, CurrentProject.Path & "\Etiketten.pdf"

Ein Bericht mit sechs Etiketten, jedes mit seiner Artikelnummer als Text und als QR-Code, den ein Scanner liest, und dieselben Etiketten in Etiketten.pdf.

• Wählen Sie Code 128 für Scanner, die nur lineare Codes lesen (Symbology = wsyCode128); geben Sie dem Steuerelement dann die Breite des Etiketts und eine Höhe von etwa 1,5 cm.
• Einen Code als Bilddatei für andere Programme schreiben: SaveImage (API-Referenz (Englisch): WklBarcode).
• WklBarcode