Delay Internet Explorer until image is loaded

[Darkspartan]

Hi everyone.

I am having trouble getting my macro to recognize when internet explorer has loaded a pdf image.

The general process I am doing is:

navigating through a website.
I click "view" to view an image.
This image is a pdf image, and pops up in a new IE window.

This is my current code to find the new window, and print... for some reason it cannot be found as IE, I have to use AcroPDF

IE.Document.all("Results1_ibView").Click
Application.Wait Now + TimeValue("00:00:03")

Dim Shell As Object
Dim AcroPDF As Object
Set Shell = CreateObject("Shell.Application")

For Each AcroPDF In Shell.Windows
If TypeName(AcroPDF.Document) = "AcroPDF" Then
AcroPDF.Visible = True
AcroPDF.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "~", True
'Application.Wait Now + TimeValue("00:00:02")
AcroPDF.Quit
End If
Next