一个label就是一条detail&＃xff0c;分布成4列16行&＃xff0c;用A4纸打印。
这与通常的报表有点不一样&＃xff0c;通常报表的明细都是一条一行&＃xff1b;而现在要每4条放在一行&＃xff0c;这需要用到“多列格式化”属性。
先说打印条码的吧&＃xff0c;条码图片怎么来&＃xff1f;
下载生成条码的exe文件Barcode.exe以及dll文件Zen.Barcode.Core.dll&＃xff0c;通过shell函数调用执行Barcode.exe文件生成条码图片
在给报表传数的table里面插入条码图片&＃xff1a;
Private Sub AddBarcodeImages(ByVal DTab As DataTable)If Not DTab Is Nothing ThenDTab.Columns.Add("BCIMAGE", Type.GetType("System.Byte[]"))Dim r As DataRowFor Each r In DTab.RowsTryDim BatchNo As String &＃61; r.Item("Line_No") & "-" & CStr(r.Item("Operator")).TrimDim sFileName As String &＃61; "C:\TEMP\" & BatchNo & ".jpg"Shell("Barcode.exe " & BatchNo & " 36", AppWinStyle.NormalFocus, True)Dim fs As IO.FileStream &＃61; New IO.FileStream(sFileName, IO.FileMode.Open)Dim fi As IO.FileInfo &＃61; New IO.FileInfo(sFileName)Dim fl As Long &＃61; fi.LengthDim lung As Integer &＃61; Convert.ToInt32(fl)Dim imgBytes As Byte() &＃61; New Byte(lung - 1) {}fs.Read(imgBytes, 0, lung)fs.Close()r.Item("BCIMAGE") &＃61; imgBytesDim f As IO.FileTryf.Delete(sFileName)Catch ex As ExceptionConsole.WriteLine(ex.ToString)End TryCatch ex As Exception&＃39;MessageBox.Show(ex.ToString)End TryNextEnd IfEnd Sub
获取条码图片后传递数据给报表&＃xff0c;报表的设计&＃xff1a;
京公网安备 11010802041100号