主题：请二维码打印问题

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() '显示报表

这是帮助中批量打印带二维码的员工资料卡的内容

请求改成打印选中行带二维码的员工资料卡的内容

什么方式选中的？勾选？

我的意思是打印当前行  怎么写？

打印鼠标选定行 又该如何写，自己怎么也写不成功，求助帮忙，谢谢

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