With WebBrowser2
.Navigate "about:blank"
Do While .readystate < 4: DoEvents: Loop
With .Document
.body.Style.margin = 0
Set img = .body.appendchild(.createelement("img"))
img.src = "C:\Users\patrick\Desktop\printermachine.JPG"
With img.Style
.Height = "100%"
.Width = "100%"
End With
End With
Debug.Print .Document.getelementsbytagname("HTML")(0).outerhtml
End With