关于EXCEL报表分栏 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq截图20200105153210.png

请问我分两栏打印标签，这个二维码图片该怎样设定+1

生成并使用不同的图片文件名即可：bar1.gif，bar2.gif

If e.Book.TempLate = "物料二维码打印" Then

If e.region = "条码生成明细_table1" 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")

img.Save(ProjectPath & "Images\BarCode1.gif")

Else '否则生成条形码图片

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Dim size As String

size = e.DataRow("二维码")

'size += "," & e.DataRow("发料数量")

Bar.Code = size

Bar.BarRatio = 0.3

Bar.BarHeight = 8

bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)

bar.SaveImage(ProjectPath & "Images\BarCode1.gif",300)

End If

请问是不是这样子生成，但是两栏我扫的条码还是一样呀

此主题相关图片如下：qq截图20200106122645.png

这个代码只是同一个二维码保存了两次而已

试试

If e.Book.TempLate = "物料二维码打印" Then

If e.region = "条码生成明细_table1" 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")

img.Save(ProjectPath & "Images\BarCode1.gif")

Else '否则生成条形码图片

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Dim size As String

size = e.DataRow("二维码")

'size += "," & e.DataRow("发料数量")

Bar.Code = size

Bar.BarRatio = 0.3

Bar.BarHeight = 8

bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)

Dim idx As Integer = Tables("条码生成明细_table1").FindRow(e.DataRow)

If idx > -1 AndAlso idx < Tables("条码生成明细_table1").Rows.Count

Dim r As Row = Tables("条码生成明细_table1").Rows(idx+1)

Bar = New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Dim size As String

size = r("二维码")

'size += "," & e.DataRow("发料数量")

Bar.Code = size

Bar.BarRatio = 0.3

Bar.BarHeight = 8

bar.SaveImage(ProjectPath & "Images\BarCode1.gif",300)

End If

老師，最後一個小問題，請問能否調整嗎

此主题相关图片如下：qq截图20200106122645.png

这个和软件无关。是execl组件，或者是系统安装的pdf软件的原因：https://www.baidu.com/baidu?word=execl导出pdf+字体

主题：关于EXCEL报表分栏