主题：如何在excel报表里面加上二维码

'铝巴送货单生成二维码

If CurrentTable.name = "铝巴送货单" AndAlso CurrentTable.Current IsNot Nothing

    Dim str As String = ""

    For Each dh As String In DataTables("铝巴送货单").GetValues("送货单号")

        str = str & ";" & dh & "," & DataTables("铝巴送货单").GetComboListString("生产piao号一","送货单号='" & dh & "'").replace("|",",")

    Next

    Dim Bar As New BarCodeBuilder

    Bar.Symbology = Barpro.Symbology.QRcode

    Bar.Code = str.trim(";")

    Bar.BarWidth = 0.3

    Bar.BarHeight = 8

    Bar.SaveImage("c:\铝巴送货单.jpg")

End If