Генерируйте qrcodes и печатайте как почтовые метки в отчетах Crystal - PullRequest
Новая
       7

Генерируйте qrcodes и печатайте как почтовые метки в отчетах Crystal

1 голос
/ 02 марта 2020

У меня есть подпрограмма, которая генерирует qrcodes и сохраняет их в папке. Мне нужно было напечатать их в виде почтовых ярлыков в отчетах о кристаллах, определяющих желаемое количество каждого из них. Каков наилучший способ сделать это? Спасибо 

 Sub GeraQRCode(valor As String)

    Dim options = New QrCodeEncodingOptions With {.DisableECI = True, .CharacterSet = "UTF-8", .Width = 250, .Height = 250}
    Dim writer = New BarcodeWriter()
    writer.Format = BarcodeFormat.QR_CODE
    writer.Options = options

    Dim qr = New BarcodeWriter()
    qr.Options = options
    qr.Format = ZXing.BarcodeFormat.QR_CODE
    Dim result = New Bitmap(qr.Write(valor))
    result.Save(Server.MapPath("~\QRCode\" & Trim(valor) & ".png"))

End Sub
...