共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：报表双排打印快速怎么实现
1楼
13568406997 发表于：2025/3/14 16:30:00
想实现左右两边双排打印相同内容，但第二排好像不能弄到指定的位置，有什么快速实现的方法没？
Dim tbl As Table = e.Form.Controls("国外订单_tbl_商贸工单").Table
Dim doc As New PrintDoc
Dim rbc(1000000), rbc1(1000000)
Dim i As Integer
Dim y As Integer
For Each rw As Row In tbl.Rows
Dim intX第一图, intX第二图, int文字宽度, int图片宽度 As Integer
intX第一图 = 10
intX第二图 = 60
int文字宽度 = 35
int图片宽度=30
' Dim rm As New prt.RenderEmpty '定一个空对象
' rm.BreakBefore = prt.BreakEnum.Page '打印前换页
' doc.Body.Children.Add(rm) '加入到报表中
Dim rx英文名称 As New prt.RenderText
Dim rx中文名称 As New prt.RenderText
Dim rxSKU As New prt.RenderText
' Dim rbc As New prt.RenderBarCode()
' Dim rx As New prt.RenderParagraph
' MessageBox.Show(1)
Dim drWP As DataRow = DataTables("物品").SQLFind("物品号='" & rw("物品号") & "'")
If drWP IsNot Nothing Then
rx英文名称.Text = drWP("英文名称")
If Functions.Execute("bln是否船", rw("物品号")) = True Then
rx中文名称.Text = "model: " & drWP("中文名称")
Else
rx中文名称.Text = drWP("中文名称")
End If
rxSKU.Text = "SKU: " & drWP("通用SKU")
' MessageBox.Show(2)
Dim f As New Font("Arial", 8, FontStyle.Bold)
Dim f1 As New Font("楷体", 9, FontStyle.Regular)
Dim f2 As New Font("宋体", 9, FontStyle.Bold)
' MessageBox.Show(3)
rx英文名称.Style.Font = f
rx中文名称.Style.Font = f1
rxSKU.Style.Font = f2
rx英文名称.Width = int文字宽度
rx中文名称.Width = int文字宽度
rxSKU.Width = int文字宽度
' rx英文名称.Width = 40
rx英文名称.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx中文名称.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rxSKU.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx英文名称.y = "Prev.Bottom + 3"
If Len(drWP("英文名称")) > 72 Then
rx中文名称.y = "Prev.Bottom + 1"
ElseIf Len(drWP("英文名称")) > 48 Then
rx中文名称.y = "Prev.Bottom + 2"
ElseIf Len(drWP("英文名称")) > 24 Then
rx中文名称.y = "Prev.Bottom + 3"
Else
rx中文名称.y = "Prev.Bottom + 4"
End If
rxSKU.y = "Prev.Bottom + 2"
doc.body.Children.add(rx英文名称)
doc.body.Children.add(rx中文名称)
doc.body.Children.add(rxSKU)
' Dim rb As New prt.RenderBarCode
' rb.Style.ImageAlign
' rb.Style.TextAlignVert
rbc(i + 1) = New prt.RenderBarCode()
rbc(i + 1).Height = 10
rbc(i + 1).BarCodeType = BarCodeEnum.Ean13
rbc(i + 1).BarDirection = BarDirectionEnum.Normal
' rbc(i + 1).Text = "690123456789" 'drWP("条形码")
rbc(i + 1).Text = left(drWP("条形码"), 12)
' MessageBox.Show(drWP("条形码"))
rbc(i + 1).ShowText = True
rbc(i + 1).y = 25
rbc(i + 1).x = 9
' MessageBox.Show(rbc(i + 1).y)
rbc(i + 1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rbc(i + 1).Style.TextAlignVert = prt.AlignHorzEnum.Center '水平居中
rbc(i + 1).Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
doc.Body.Children.Add(rbc(i + 1))
rbc(i) = New prt.RenderBarCode()
End If
MessageBox.Show(0)
'---------------------------------------------------------------------------------------------------------------------------
'生成第二幅图片
' Dim rm1 As New prt.RenderEmpty '定一个空对象
' rm1.BreakBefore = prt.BreakEnum.Page '打印前换页
' doc.Body.Children.Add(rm1) '加入到报表中
Dim rx英文名称1 As New prt.RenderText
Dim rx中文名称1 As New prt.RenderText
Dim rxSKU1 As New prt.RenderText
' Dim rbc As New prt.RenderBarCode()
' Dim rx As New prt.RenderParagraph
' MessageBox.Show(1)
Dim drWP1 As DataRow = DataTables("物品").SQLFind("物品号='" & rw("物品号") & "'")
If drWP1 IsNot Nothing Then
rx英文名称1.Text = drWP1("英文名称")
If Functions.Execute("bln是否船", rw("物品号")) = True Then
rx中文名称1.Text = "model: " & drWP1("中文名称")
Else
rx中文名称1.Text = drWP1("中文名称")
End If
rxSKU1.Text = "SKU: " & drWP1("通用SKU")
MessageBox.Show(2)
Dim f As New Font("Arial", 8, FontStyle.Bold)
Dim f1 As New Font("楷体", 9, FontStyle.Regular)
Dim f2 As New Font("宋体", 9, FontStyle.Bold)
MessageBox.Show(3)
rx英文名称1.Style.Font = f
rx中文名称1.Style.Font = f1
rxSKU1.Style.Font = f2
rx英文名称1.Width = int文字宽度
rx中文名称1.Width = int文字宽度
rxSKU1.Width = int文字宽度
rx英文名称1.y = rx英文名称.y
rx中文名称1.y = rx中文名称.y
rxSKU1.y = rxSKU.y
rx英文名称1.x = intX第二图
rx中文名称1.x = intX第二图
rxSKU1.x = intX第二图
' rx英文名称.Width = 40
rx英文名称1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx中文名称1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rxSKU1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
'' rx英文名称1.y = "Prev.Bottom + 3"
' If Len(drWP("英文名称")) > 72 Then
' rx中文名称1.y = "Prev.Bottom + 1"
' ElseIf Len(drWP("英文名称")) > 48 Then
' rx中文名称1.y = "Prev.Bottom + 2"
' ElseIf Len(drWP("英文名称")) > 24 Then
' rx中文名称1.y = "Prev.Bottom + 3"
' Else
' rx中文名称1.y = "Prev.Bottom + 4"
' End If
' MessageBox.Show(4)
' rxSKU1.y = "Prev.Bottom + 2"
doc.body.Children.add(rx英文名称1)
doc.body.Children.add(rx中文名称1)
doc.body.Children.add(rxSKU1)
' Dim rb As New prt.RenderBarCode
' rb.Style.ImageAlign
' rb.Style.TextAlignVert
rbc1(i + 1) = New prt.RenderBarCode()
rbc1(i + 1).Height = 10
rbc1(i + 1).BarCodeType = BarCodeEnum.Ean13
rbc1(i + 1).BarDirection = BarDirectionEnum.Normal
' rbc1(i + 1).Text = "690123456789" 'drWP("条形码")
rbc1(i + 1).Text = left(drWP("条形码"), 12)
' MessageBox.Show(drWP("条形码"))
rbc1(i + 1).ShowText = True
rbc1(i + 1).y = 25
rbc1(i + 1).x = 60
MessageBox.Show(5)
' MessageBox.Show(rbc1(i + 1).y)
rbc1(i + 1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rbc1(i + 1).Style.TextAlignVert = prt.AlignHorzEnum.Center '水平居中
rbc1(i + 1).Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
MessageBox.Show(6)
doc.Body.Children.Add(rbc1(i + 1))
MessageBox.Show(7)
rbc1(i) = New prt.RenderBarCode()
End If
i+=1
Next
Doc.PageSetting.PaperKind = 13
Doc.PageSetting.Height = 40
'Doc.PageSetting.width = 50.5
Doc.PageSetting.width = 110.5
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 2 '设置下边距
Doc.Preview()
好像有点太笨了
2楼
13568406997 发表于：2025/3/14 16:33:00 rx英文名称1.y = rx英文名称.y
rx中文名称1.y = rx中文名称.y
rxSKU1.y = rxSKU.y
这样写好像没有作用
3楼
13568406997 发表于：2025/3/14 17:30:00
解决了
共3 条记录, 每页显示 10 条, 页签:
[1]