Как мне распечатать только первую страницу сайта, используя 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 - не запрашивать у пользователя.