打开不了开发者文件,模板中是[&&BarCode.gif, 2, 13,88,88],BarCode0,BarCode1,BarCode2但是我的生成方法是
报表事件BuildDetail做的,编码BarCode0,BarCode1,BarCode2,没有效果
If e.Book.TempLate = "危废标签" Then
If e.Region = "表A" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("编号") Then '如果是空行或者Lot列为空
Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片
img.Save(ProjectPath & "Images\BarCode.gif")
Else '否则生成条形码图片
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = e.DataRow("编号")
Bar.Text = e.DataRow("编号")
Bar.TextAlignment = Barpro.Alignment.BelowCenter
Bar.QuietZoneWidth = 1
Bar.QRCodeModuleSize = 1
Bar.SaveImage(ProjectPath & "Images\BarCode.gif")
End If
End If
End If