如何使用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表示不提示用户。