Tiskanje nalepk s kodo QR

V tej vadnici natisnete po eno nalepko za vsak izdelek, vsako s šifro izdelka kot besedilom in kot kodo QR, ter nalepke shranite kot PDF.

• Microsoft 365 Access ali okolje Access Runtime, v 32- ali 64-bitni različici, s knjižnico WKL Forms Object Library 1.52 ali novejšo različico, nameščeno in registrirano za trenutnega uporabnika sistema Windows (Namestitev izdanega paketa).
• Nova ali obstoječa podatkovna zbirka na zaupanja vrednem mestu.
• Vsak kontrolnik WKL odpre svoj oblikovalnik na enak način: v pogledu načrta, list z lastnostmi (F4), zavihek Drugo, vrstica Po meri, [...] (Odpiranje oblikovalnika kontrolnika).

Proceduro prilepite v standardni modul in jo enkrat zaženite iz okna Immediate (CreateLabelSample):

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

V pogledu načrta ustvarite poročilo rptNalepka, vezano na tblIzdelki. Odsek s podrobnostmi naj bo visok približno 3,5 cm, vanj pa postavite polje z besedilom Sifra in polje z besedilom Naziv. Izberite Načrt poročila › Kontrolniki › Kontrolniki ActiveX › WKL Barcode, kontrolnik narišite levo od polj z besedilom, širok približno 3 cm in visok 3 cm, ter ga poimenujte bcdIzdelek. Njegov vir kontrolnika (list z lastnostmi, zavihek Podatki) nastavite na Sifra.

Odprite oblikovalnik kontrolnika bcdIzdelek ([...] v vrstici Po meri). Na strani Koda obdržite vrsto Koda QR, vklopite Prikaži besedilo in kot vzorčno besedilo vnesite WKL-4711: predogled prikaže kodo s številko pod njo. Oblikovalnik zaprite z V redu in shranite poročilo.

Odprite rptNalepka v predogledu tiskanja. Vsaka nalepka prikazuje kodo QR šifre svojega izdelka; kamera telefona ali bralnik prebere WKL-4711, WKL-4712 in tako naprej.

V oknu Immediate zaženite:

DoCmd.OutputTo acOutputReport, "rptNalepka", acFormatPDF, CurrentProject.Path & "\Nalepke.pdf"

Poročilo s šestimi nalepkami, vsaka s šifro izdelka kot besedilom in kot kodo QR, ki jo bralnik prebere, ter iste nalepke v datoteki Nalepke.pdf.

• Za bralnike, ki berejo samo linearne kode, izberite Code 128 (Symbology = wsyCode128); kontrolniku tedaj dajte širino nalepke in višino približno 1,5 cm.
• Zapis kode kot slikovne datoteke za druge programe: SaveImage (Referenca API (v angleščini): WklBarcode).
• WklBarcode