[求助]急！Access打印网页

zenkill

我想在access的form中，输入一个网址，点击按钮，在ie中打开这个网页，并且打印这个网页

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

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

希望高手不吝赐教

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

baije

把你的程序发出来看下

想学你打开网页的方法

zenkill

已经解决，有时间把代码发出来共享

baije

支持你发代码。。。。

zenkill

终于有时间了

打印的问题，我装了免费的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

学习楼上!