Есть ли способ напечатать веб-страницу и сохранить ее под именем ссылки на ячейку в нужной папке с помощью VBA

Question

Я попробовал приведенный ниже код, но не могу выполнить команду печати

Option Explicit

Private Sub espacenet()

Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLAs As MSHTML.IHTMLElementCollection
Dim HTMLA As MSHTML.IHTMLElement


Dim i As Integer

i = 4

line21: If (i < 8) Then


IE.Visible = True
IE.navigate Cells(i, 1)
Do While IE.ReadyState <> READYSTATE_COMPLETE
        Loop

        i = i + 1



 Application.Wait (Now + TimeValue("0:00:10")) '
 IE.ExecWB 6, 2


 GoTo line21

        End If


 End Sub

В любом случае я могу загрузить веб-страницу в формате PDF и сохранить ее под именем, уже упомянутым в ячейке.