Foxtable(狐表)用户栏目专家坐堂 → [求助]关于word模版直接打印的问题


  共有2543人关注过本帖树形打印复制链接

主题:[求助]关于word模版直接打印的问题

帅哥哟,离线,有人找我吗?
km007
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:481 积分:5783 威望:0 精华:0 注册:2016/1/28 2:59:00
[求助]关于word模版直接打印的问题  发帖心情 Post By:2024/9/17 1:43:00 [只看该作者]

Dim tm As String  = ProjectPath & "Attachments\标签.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\标签.docx" '指定目标文件
Dim mg As String = ProjectPath & "Images\条码.gif" '约定的图片文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
For Each r As Row In Tables("表A").Rows '逐行生成报表
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = r("条码")
    Bar.QuietZoneWidth = 2
    Bar.HumanReadableText = r("条码")
    Bar.Text = "测试信息"
    Bar.TopMargin = 1
    Bar.BottomMargin = 1
    Bar.Font = New Font("微软雅黑",10.5,FontStyle.Bold)
    Bar.TextFont = New Font("微软雅黑",13,FontStyle.Bold)
    Bar.QRCodeModuleSize = 2
    bar.SaveImage(mg)
    wrt.BuildOne(r)
Next
wrt.Show() 


请问 
我想实现 指定打印机(称为:条码打印机A)直接打印,以上代码怎么修改?



[此贴子已经被作者于2024/9/17 1:43:49编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/9/17 20:01:00 [只看该作者]

保存报表然后退出,在使用vba处理:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=183409

……
    wrt.BuildOne(r)
Next
wrt.Quit() 
Dim app As New MSWord.Application
Try
    app.ActivePrinter = "条码打印机A"
    Dim doc = app.Documents.Open(fl)
    doc.PrintOut(ManualDuplexPrint:=True)
    doc.close()
    app.quit()
Catch ex As Exception
    MsgBox(ex.Message)
    app.quit()
End Try

 回到顶部
帅哥哟,离线,有人找我吗?
km007
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:481 积分:5783 威望:0 精华:0 注册:2016/1/28 2:59:00
  发帖心情 Post By:2024/9/17 21:17:00 [只看该作者]

如果是打印预览的话 是不是将true改为 false呢

doc.PrintOut(ManualDuplexPrint:=True)
改为
doc.PrintOut(ManualDuplexPrint:=false)

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/9/17 21:24:00 [只看该作者]


 回到顶部