Example: Bar Code Test Demonstrates variety of bar codes supported by PrinterCE/Pro. See full size printed output BarcodeCE Info

Private Sub BarCode1_Click()
   'Declare both PrinterCE and BarcodeCE controls
   '
   'NOTE: IMPORTANT!! - Create PrinterCE BEFORE BarcodeCE
   '
   Dim PrinterCE1,BarcodeCE1
   Set PrinterCE1 = CreateObject("PrEngineCE.PrinterCE")
   Set BarcodeCE1 = CreateObject("PrEngineCE.BarcodeCE")

    PrinterCE1.SelectPrinter
    PrinterCE1.ScaleMode = vbInches
    Dim x, y
    y = 0
    Dim wid
    PrinterCE1.DrawText "----  UPC EAN13, EAN8 ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawUPC("781572", "31856", "90000", 0, y, True, TYPE_UPC_EAN13, 0, bcTIGHT)
    wid = BarcodeCE1.DrawUPC("0123456", "", "", wid + 0.25, y, True, TYPE_UPC_EAN8, 0, bcTIGHT)
    y = y + 0.75
    PrinterCE1.DrawText "----  UPC : A+2, A, E+2, E ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawUPC("25274", "79382", "02", 0, y, True, TYPE_UPC_A, 0, bcTIGHT)
    x = wid + 0.25
    wid = BarcodeCE1.DrawUPC("24100", "16149", "", x, y, True, TYPE_UPC_A, 0, bcTIGHT)
    x = x + wid + 0.25
    wid = BarcodeCE1.DrawUPC("123643", "", "02", x, y, True, TYPE_UPC_E, 0, bcTIGHT)
    x = x + wid + 0.25
    wid = BarcodeCE1.DrawUPC("522361", "", "", x, y, True, TYPE_UPC_E, 0, bcTIGHT)
    y = y + 0.75
    PrinterCE1.DrawText "----  Code MSI Plessey: Mod1010, Mod1110, Mod10----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawMSI("987654", 0, y, True, TYPEMSI_Mod1010, bcTIGHT)
    x = wid + 0.25
    wid = BarcodeCE1.DrawMSI("987654", x, y, True, TYPEMSI_Mod1110, bcTIGHT)
    wid = BarcodeCE1.DrawMSI("987654", x + wid + 0.25, y, True, TYPEMSI_Mod10, bcTIGHT)
    y = y + 0.6
    PrinterCE1.DrawText "----  Code 93 : Base, Extend ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawCode93("CODE 93", 0, y, True, bcTIGHT, True)
    wid = BarcodeCE1.DrawCode93("Extend 93", wid + 0.25, y, True, bcTIGHT, True)
    y = y + 0.6
    PrinterCE1.DrawText "----  Code 128 : Auto, Auto, UCC128 ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawCode128("CODE 128", 0, y, True, TYPE128_AUTO, bcTIGHT)
    x = wid + 0.25
    wid = BarcodeCE1.DrawCode128("1234 abc", x, y, True, TYPE128_AUTO, bcTIGHT)
    wid = BarcodeCE1.DrawCode128("0123456789012345678", x + wid + 0.25, y, True, TYPE128_UCC128, bcTIGHT)
    y = y + 0.75
    PrinterCE1.DrawText "----  Codabar : Base & Checksum16 ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawCodabar("a$123b", 0, y, True, TYPECodabar_BASE, bcTIGHT)
    x = wid + 0.25
    wid = BarcodeCE1.DrawCodabar("A123456B", wid + 0.25, y, True, TYPECodabar_CHECKSUM16, bcTIGHT)
    y = y + 0.6
    PrinterCE1.DrawText "----  CODE 3 of 9 : Normal, Checksum, HIBC, Normal ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawCode39("Extend39", 0, y, True, TYPE39_NORMAL, bcTIGHT, True)
    wid = BarcodeCE1.DrawCode39("MOD43", wid + 0.25, y, True, TYPE39_CHECKSUM, bcTIGHT, False)
    y = y + 0.5
    wid = BarcodeCE1.DrawCode39("HIBC CODE", 0, y, True, TYPE39_HIBC, bcTIGHT, False)
    wid = BarcodeCE1.DrawCode39("LIBRARY", wid + 0.25, y, True, TYPE39_NORMAL, bcTIGHT, False)
    y = y + 0.6
    PrinterCE1.DrawText "----  CODE 2 of 5 : Base, Checksum ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.Draw2of5("1991", 0, y, True, TYPE2of5_BASE, bcTIGHT)
    wid = BarcodeCE1.Draw2of5("12345678", wid + 0.25, y, True, TYPE2of5_CHECKSUM, bcTIGHT)
    y = y + 0.6
    PrinterCE1.DrawText "----  PostNet  ----", 0, y
    y = y + 0.3
    wid = BarcodeCE1.DrawPostnet("95709-9694", 0, y, 1)
    wid = BarcodeCE1.DrawPostnet("94294-0894", wid + 0.25, y, 1)
    PrinterCE1.EndDoc
End Sub