html - 如何使用 ExecWbin VBA 仅打印网站的第一页？

Question

我正在尝试打印一个网站，但我只需要第 1 页。为了澄清，这个网页可以打印出 2-5 张纸，因为它的长度会根据请求的内容而变化。我只想打印第一张纸上的内容。

With Application
    prin = .ActivePrinter
    Set ie = New InternetExplorerMedium

    tick = Range("A" & I).Value

    ie.navigate "website.can't show real one"
    Do While ie.Busy
    Loop
    Do While ie.readyState <> 4
    Loop

    ie.ExecWB 6, 2
    .Wait (Now + TimeValue("0:00:08"))
    ie.Quit
End with

我不知道如何格式化 ExecWB 函数以使其选择要打印的特定页面。6 表示 OLECMDID_PRINT，2 表示不提示用户。

标签： htmlexcelvbaprinting