主题：[求助] 关于二维码问题

For Each r As Row In Tables("二维码清单表").Rows
    Dim dr As DataRow = DataTables("电表数据汇总表").Find("二维码编号 = '" & r("二维码编号") & "' ")
    If dr IsNot Nothing Then
        r("二维码使用") = "二维码已被使用"
        r("一级地理区域") = dr("一级地理区域")
        r("二级地理区域") = dr("二级地理区域")
        r("电表设备号") = dr("电表设备号")
    Else
        r("二维码使用") = "二维码未被使用"
        r("一级地理区域") = "未分配使用区域"
        r("二级地理区域") = "未分配使用区域"
        r("电表设备号") = Nothing
    End  If
Next

此主题相关图片如下：360截图20170919211433413.jpg

以下命令该怎么修改？

 

 

 

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim rg1 As prt.RenderGraphics
Dim Bar As New BarCodeBuilder '增加一个文本
Bar.Symbology = Barpro.Symbology.QRCode
Dim rt As new prt.RenderTable
rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
'rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray)

rt.Cols.Count = 5 '设置列数

rt.Rows.Count = 3
rt.Cols(0).Width = 150 '
rt.Cols(1).Width = 150
rt.Cols(2).Width = 150
rt.Cols(3).Width = 150
rt.Cols(4).Width = 150

rt.Rows.Count = 10
rt.Rows(0).Height = 42
rt.Rows(1).Height = 14
rt.Rows(2).Height = 42
rt.Rows(3).Height = 14
rt.Rows(4).Height = 42
rt.Rows(5).Height = 14
rt.Rows(6).Height = 42
rt.Rows(7).Height = 14
rt.Rows(8).Height = 42
rt.Rows(9).Height = 14

Dim ks As Integer = val(e.form.controls("起始").Text)
'Dim zs As Integer = val(e.form.controls("张数").Text)
Dim x As Integer = 0
Dim y As Integer = 0
For i As Integer = (ks*25) To (ks+1)*25
    Dim r As Row = Tables("二维码清单表").Rows(i)
    bar.Code = r("二维码编号") '文本内容
    r("打印员工") = User.name
    r("打印时间") = dt
    r("二维码使用者") = e.form.controls("二维码使用者").Text
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,1,1.0) 'X Y 坐标 放大倍数
   
   
    '   rg.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rt.Cells(x, y).RenderObject = rg
    Dim rx As new prt.RenderText
    rx.Text &= vbcrlf & r("二维码编号") & vbcrlf &"中 国 移 动 惠 州 分 公 司"
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.cells(x+1, y).RenderObject = rx
    y += 1
    If y >=5 Then
        y = 0
        x += 2
    End If
    rt.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
    rt.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中

 

Next
Doc.Body.Children.Add(rt) '添加到容器中
Doc.Preview()

……

此主题相关图片如下：360截图20170920094216887.jpg

请上传一个具体的foxtable例子测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 

Dim doc As New PrintDoc
Dim ks As Integer = val(e.form.controls("起始").Text)
Dim zs As Integer = val(e.form.controls("张数").Text)

Dim tb As Table = Tables("二维码清单表")
Dim prs As Integer = 25 '每页20行
Dim count As Integer = tb.Rows.count-ks
Dim sidx As Integer = ks
If zs > 0 Then count = zs*25
For p As Integer = 0 To math.Ceiling(count / prs) - 1
    Dim rt As New prt.RenderTable
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
    rt.Cols.count = 5
    rt.Cols(0).Width = 150
    rt.Cols(1).Width = 150
    rt.Cols(2).Width = 150
    rt.Cols(3).Width = 150
    rt.Cols(4).Width = 150
    For r As Integer = p * prs To math.min(count - 1,( p + 1) * prs - 1)
        Dim n As Integer = (r \ 5)*3
        Dim c As Integer = r Mod 5
        Dim cr As Row = tb.Rows(sidx+r)
        rt.cells(n,c).text = "中 国 移 动 惠 州 分 公 司"
        Dim rg As prt.RenderGraphics
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.QRCode
        bar.Code = cr("二维码编号")
        rg = new prt.RenderGraphics
        bar.DrawOnCanvas(rg.Graphics,0,0,1)
        rt.cells(n+1,c).RenderObject = rg
        rt.cells(n+2,c).text = cr("二维码编号")
    Next
    Doc.Body.Children.Add(rt) '添加到容器中
    rt.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
    rt.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
    If p <> math.Ceiling(Count / prs) - 1 '如果是最后一页
        rt.BreakAfter = prt.BreakEnum.Page '否则换页
    End If
Next
Doc.Preview()

字体水平没有居中

 

此主题相关图片如下：360截图20170920141735316.jpg

细节自行调整。

 

http://www.foxtable.com/webhelp/scr/1170.htm

 

此主题相关图片如下：360截图20170920172229007.jpg