kan man lave automatisk print med script

Jeg glemte scriptet:
Dim IE,IE2
Set IE = CreateObject("InternetExplorer.Application")
Set IE2 = CreateObject("InternetExplorer.Application")

With IE
        .menubar=1
        .toolbar=1 
        .statusBar=1
        .navigate "http://www.eksperten.dk"
        .visible=1
End With

With IE2
        .menubar=1
        .toolbar=1 
        .statusBar=1
        .navigate "http://www.sydbank.dk"
        .visible=1
End With


'wait a while until IE as finished to load
Do while IE.busy
loop
Do while IE2.busy
loop

Set IE = Nothing
set IE2 =nothing