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


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

主题：[求助]关于word模版直接打印的问题
帅哥哟，离线，有人找我吗？
km007
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：480 积分：5767 威望：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


加好友 发短信
等级：超级版主 帖子：110839 积分：564139 威望：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


加好友 发短信
等级：一尾狐 帖子：480 积分：5767 威望：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


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


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询