Office中国论坛/Access中国论坛

标题: [求助]急！Access打印网页 [打印本页]

作者: zenkill 时间: 2006-12-26 18:17
标题: [求助]急！Access打印网页
我想在access的form中，输入一个网址，点击按钮，在ie中打开这个网页，并且打印这个网页

现在我能够做到打开网页，但是不想自己手动的选择"文件"---"打印"，再选择打印机来打印这个网页

而是程序自己模拟上面的动作打印，就用默认的打印机

希望高手不吝赐教

[此贴子已经被作者于2006-12-26 10:20:22编辑过]

作者: baije 时间: 2006-12-27 01:15
把你的程序发出来看下

想学你打开网页的方法

作者: zenkill 时间: 2006-12-27 19:10
已经解决，有时间把代码发出来共享

作者: baije 时间: 2006-12-27 21:50
支持你发代码。。。。

作者: zenkill 时间: 2007-2-1 19:04
终于有时间了

打印的问题，我装了免费的pdf Creator，相当好的一个工具，免费的，直接打印成pdf文件，保存起来。

关于pdf Creator的设置，大家可以自己看资料

大概的代码：

Dim objIE As Object

Dim objWshNetwork As Object

Set objIE = CreateObject("InternetExplorer.application")
Set objWshNetwork = CreateObject("WScript.Network")

objIE.Visible = False '设置ie不可见

objIE.navigate URL '打开制定的URL

'循环，直到整个页面加载完成

timeout = 5000
Do While timeout > 0 And (objIE.Busy = True Or (objIE.readyState <> READYSTATE_COMPLETE))
      DoEvents
      timeout = timeout - 1
Loop
objWshNetwork.SetDefaultPrinter "pdfCreator"  '参数是安装的pdf打印机名

'objIE这个对象可以操纵IE上面几乎所有你能看见的按钮。比如，下面调用打印的功能

'简单的说，就是模拟了你用手点击打印按钮

objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

好了，页面已经保存成pdf文件了

作者: nxjswt 时间: 2007-2-2 04:55
学习楼上!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)