vb.net - 生成二维码并打印为水晶报表中的邮寄标签

Question

我有一个生成 qrcode 并将它们存储在文件夹中的例程。我需要将它们打印为水晶报告中的邮寄标签，以识别每个所需的数量。做这个的最好方式是什么？谢谢

 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

标签： vb.netcrystal-reportsqr-code