想问下基于后台数据生成的报表如何打印条码系统有table的可以用报表事件
If e.Book.TempLate = "采购入库标签" Then
If e.region = "采购入库标签" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("ID") Then '如果是空行或者Lot列为空
Dim img As New System.Drawing.Bitmap(1, 1) '生成一个空白图片
img.Save(ProjectPath & "Images\BarID.gif")
Else '否则生成条形码图片
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = e.DataRow("ID")
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Bar.DisplayCode = False
bar.SaveImage(ProjectPath & "Images\BarID.gif", 600)
End If
End If
End If
这种来替换，后台生成的报表怎么操作呢？
加好友 
发短信
Post By：2022/12/19 21:43:00 [显示全部帖子]
Post By：2022/12/20 8:12:00 [显示全部帖子]
