- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 如何修改这句简单的VB代码（：=）？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66920)
-- 发布时间：2015/4/15 22:55:00
-- [求助] 如何修改这句简单的VB代码（：=）？
只打印出前三页。
ActiveDocument. PrintOut Range :=wdPrintFromTo, From :="1", To :="3"
或者
用户可以随SaveChanges参数使用wdDoNotSaveChanges或 wdSaveChanges常量来使该提示不再出现。以下的示例保存并且关闭了Sales.doc。
Documents ("Sales.doc"). Close SaveChanges :=wdSaveChanges
[此贴子已经被作者于2015/4/15 22:55:13编辑过]
-- 发布时间：2015/4/16 8:41:00
--
没看懂你的问题是什么?
-- 发布时间：2015/4/16 9:03:00
--
这个你最好去office的论坛问问。
-- 发布时间：2015/4/16 9:03:00
--
这是VB操作Word的帮助
此主题相关图片如下：vb.png
此主题相关图片如下：vb1.png
-- 发布时间：2015/4/16 9:29:00
--
在Foxtable使用之前，需要定义 dim app as new MSWord.Application 只打印出前三页。 App.ActiveDocument. PrintOut( Range :=wdPrintFromTo, From :="1", To :="3") 由于是常量，需要先找到对应的常量值或者引用空间名称，就可以了，下同
或者 用户可以随SaveChanges参数使用wdDoNotSaveChanges或 wdSaveChanges常量来使该提示不再出现。以下的示例保存并且关闭了Sales.doc。 App.Documents ("Sales.doc"). Close( SaveChanges :=wdSaveChanges) |
-- 发布时间：2015/4/16 9:39:00
--
在foxtable就是：
Dim app As New MSWord.Application
app.Documents.Open("c:\\data\\123.doc")
app.Visible = True
App.ActiveDocument.PrintOut( Range:=MSWord.WdPrintOutRange.wdPrintFromTo, From:="1", To:="3")
-- 发布时间：2015/4/16 21:01:00
--
非常感谢，在外出差，回去测试。