Aus MS-Access QR-Code-Etiketten drucken

Manchmal macht Informatiker sein Spass: Damit ich bei Büchern und ausgedruckten Artikeln (ja, das gibt es auch bei mir) rasch das entsprechende Biblionetz-Objekt finde, schreibe ich seit langem die entsprechende Biblionetz-ID ins Buch oder auf den Text. Doch irgendwie müsste das heute doch auch anders gehen…

Stimmt. Mit einer halben Stunde Installieren und den gelieferten Beispielcode anpassen druckt nun meine Biblionetz-Datenbank eine entsprechende Etikette mit QR-Code, einem 2D-Barcode (Biblionetz:w02048) welche direkt auf die passende Biblionetz-Seite verlinkt.

1. Das entsprechende SDK heruntergeladen und installiert.

2. Im Etiketten-Editor das Template definiert und die beiden Felder benannt:

3. Und in VBA den Code angepasst:

Public Sub QR_label(inhalt As String)

    Dim ObjDoc As bpac.Document
    Dim strFilePath As String
    Set ObjDoc = CreateObject("bpac.Document")
    strFilePath = strEtikettenPfad & "biblionetz-access-template-small.lbx"
    If (ObjDoc.Open(strFilePath) <> False) Then
    
        ' Text
        ObjDoc.GetObject("Textfeld").Text = inhalt
        ObjDoc.GetObject("Barcode").Text = "http://doebe.li/" & inhalt
        ObjDoc.StartPrint "", bpoDefault
        ObjDoc.PrintOut 1, bpoDefault
        ObjDoc.EndPrint
        ObjDoc.Close

    End If
    Set ObjDoc = Nothing
    
End Sub

Das Dokumentieren hier im Blog hat nun nochmals fast 30 Minuten gedauert...

---

Zum Kommentieren ist eine Registration notwendig.

Kategorien: IsaBlog, IsaBiblionetz, IsaGeek