printing to a certain printer

[pelegk2]

i have this code :

Sub Command1_Click()
 
Set IESource = New InternetExplorer
Set IETarget = New InternetExplorer
With IESource
      .navigate "http://www.walla.co.il"
      .Visible = True
End With
 
End Sub
 
Private Sub IESource_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IESource) Then
    Dim a As HTMLAnchorElement
    
    IESource.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
    For Each a In IESource.document.anchors
        bolContinue = False
        IETarget.navigate a.href
        Do While Not bolContinue
            DoEvents
        Loop
        
    Next
End If
 
End Sub

which prints a loaded html page into default printer!
how an i tell it to print to another printer that is installed and connected?
thnaks i nadvance
peleg