专家坐堂-请二维码打印问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请二维码打印问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115693)

--  作者：二月龙
--  发布时间：2018/3/12 19:05:00
--  请二维码打印问题

Dim tm As String = ProjectPath & "Attachments\\员工资料卡.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\员工资料卡.doc" \'指定目标文件
Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim wrt As New WordReport(Tables("员工"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("员工").Rows \'逐行生成报表
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeModuleSize = 2 \'二维码的放大倍数
    Bar.Code = "姓名:" & r("姓名") & vbcrlf & "部门:" & r("部门") & vbcrlf & "电话:" & r("办公电话")
    bar.SaveImage(mg,300)
    wrt.BuildOne(r)
Next
wrt.Show() \'显示报表

这是帮助中批量打印带二维码的员工资料卡的内容
请求改成打印选中行带二维码的员工资料卡的内容

--  作者：有点蓝
--  发布时间：2018/3/12 20:31:00
--
什么方式选中的？勾选？
For Each r As Row In Tables("员工").GetCheckedRows
http://www.foxtable.com/webhelp/scr/1636.htm

鼠标拖选？
http://www.foxtable.com/webhelp/scr/1595.htm

--  作者：二月龙
--  发布时间：2018/3/13 19:02:00
--
我的意思是打印当前行怎么写？

--  作者：有点蓝
--  发布时间：2018/3/13 20:16:00
--

http://www.foxtable.com/webhelp/scr/0445.htm
Dim r As Row = Tables("员工").Current
If r IsNot Nothing Then
Dim tm As String = ProjectPath & "Attachments\\员工资料卡.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\员工资料卡.doc" \'指定目标文件
Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim wrt As New WordReport(Tables("员工"),tm,fl) \'定义一个WordReport
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.QRCodeModuleSize = 2 \'二维码的放大倍数
Bar.Code = "姓名:" & r("姓名") & vbcrlf & "部门:" & r("部门") & vbcrlf & "电话:" & r("办公电话")
bar.SaveImage(mg,300)
wrt.BuildOne(r)
wrt.Show() \'显示报表
End If

--  作者：二月龙
--  发布时间：2018/4/9 11:21:00
--
打印鼠标选定行又该如何写，自己怎么也写不成功，求助帮忙，谢谢

--  作者：有点甜
--  发布时间：2018/4/9 11:49:00
--
Dim r As Row = Tables("员工").Current
If r IsNot Nothing Then
    Dim tm As String = ProjectPath & "Attachments\\员工资料卡.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\员工资料卡.doc" \'指定目标文件
    Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
    Dim wrt As New WordReport(Tables("员工"),tm,fl) \'定义一个WordReport
    For i As Integer = r.Table.TopPosition To r.Table.BottomPosition
        r = r.Table.rows(i)
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.QRCode
        Bar.QRCodeModuleSize = 2 \'二维码的放大倍数
        Bar.Code = "姓名:" & r("姓名") & vbcrlf & "部门:" & r("部门") & vbcrlf & "电话:" & r("办公电话")
        bar.SaveImage(mg,300)
        wrt.BuildOne(r)
    next
    wrt.Show() \'显示报表
End If