| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]word报表可以代码打印指定页吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190025) |
| -- 作者：ybmjy -- 发布时间：2024/1/11 16:17:00 -- [求助]word报表可以代码打印指定页吗？ 同标题 |
| -- 作者：有点蓝 -- 发布时间：2024/1/11 16:58:00 -- 要使用vba，比如打印第3页，大概 Dim str As String = "D:\\问题\\2022.doc" Dim app As New MSWord.Application Try Dim doc = app.Documents.Open(str) doc.PrintOut(From:=3,To:=3) doc.close() app.quit() Catch ex As Exception MsgBox(ex.Message) app.quit() End Try |
| -- 作者：ybmjy -- 发布时间：2024/1/12 16:46:00 -- Dim str As String = ProjectPath & "Reports\\普工试卷.doc" Dim app As New MSWord.Application Try Dim doc = app.Documents.Open(str) doc.PrintOut(From:=3, To:=3) doc.close() app.quit() Catch ex As Exception MsgBox(ex.Message) app.quit() End Try
|
| -- 作者：ybmjy -- 发布时间：2024/1/12 16:50:00 -- 不可用，提示：RPC服务器不可用 [此贴子已经被作者于2024/1/12 16:51:13编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/1/12 17:07:00 -- doc.PrintOut(From:=3, To:=3) 改为 doc.PrintOut(From:="3", To:="3")
|