Foxtable(狐表)用户栏目专家坐堂 → 打印预览方式打开Excel(修改)


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

主题:打印预览方式打开Excel(修改)

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/11/27 21:08:00 [只看该作者]

以下是引用程兴刚在2009-11-27 20:01:00的发言:
lxl老兄,word能这样实现吗?谢谢,我更图片点击可在新窗口打开查看需要这个!

试了半天,这个和Excel有点区别,实现起来有点难
你按以下步骤试试:(没想到解决方法,所以没写成dll形式)
1.下载微软的word组件至狐表根目录

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:microsoft.office.interop.word.rar


2.命令窗口执行:
Dim app As New Microsoft.Office.Interop.Word.Application
Dim doc As Microsoft.Office.Interop.Word.Document = app.Documents.Open("D:/aa.doc")
doc.PrintPreview()
app.Visible = True
'这里不知道怎么暂停(Excel自动暂停,所以能实现)
app.Quit



[此贴子已经被作者于2009-11-27 21:08:59编辑过]

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


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
  发帖心情 Post By:2009/11/27 21:27:00 [只看该作者]

图片点击可在新窗口打开查看
[此贴子已经被作者于2009-11-27 21:27:30编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40556 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/11/27 21:48:00 [只看该作者]

哦,谢谢老兄,抽空试试!


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40556 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/11/27 21:57:00 [只看该作者]

没测试成功,只看见任务栏word文件闪了一下,其他啥也没有了!

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/11/27 22:03:00 [只看该作者]

以下是引用程兴刚在2009-11-27 21:57:00的发言:
没测试成功,只看见任务栏word文件闪了一下,其他啥也没有了!

我也是因为这个搞不定。图片点击可在新窗口打开查看
可以把 app.Quit 最后一句去掉,就不会退出word.


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40556 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/11/27 22:16:00 [只看该作者]

哦,我倒是希望退出,仅为预览,就是预览看不见!


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/11/28 19:20:00 [只看该作者]

lxl版主要注意Excel和word在打印预览界面上的一个不同点: Excel打印预览界面右上角那个红色的X 是虚的,而Word打印预览界面右上角红色X是实的,好像实这个原因无法暂停的..


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/11/28 20:02:00 [只看该作者]

以下是引用mr725在2009-11-28 19:20:00的发言:

lxl版主要注意Excel和word在打印预览界面上的一个不同点: Excel打印预览界面右上角那个红色的X 是虚的,而Word打印预览界面右上角红色X是实的,好像实这个原因无法暂停的..

恩,可能是
不过2007我刚看了,显示都一样了


 回到顶部
美女呀,离线,留言给我吧!
yangming
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/11/29 10:42:00 [只看该作者]

去掉app.Quit这一句,就能看到了

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


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/11/29 11:36:00 [只看该作者]

楼主,你的方法太好用了。
请问怎样设计DLL文件,以及怎样调用,能否说说一下?谢谢

 回到顶部
总数 60 上一页 1 2 3 4 5 6 下一页