I'm looking for a code that will allow me to automatically detect if a certain networked printer has been installed on the machine. If it is installed, then print the document. If it is not installed then install the networked printer, after that loop back around and re-check then proceed on to print the document to the networked printer without changing the default printer

Current Code (Not sure how to add the calls to check if the printer is installed)

Private Sub Pricing_Guide_Click()
    Dim Oword
        Set Oword = CreateObject(Class:="Word.Application")
        Oword.Visible = False
        Oword.Application.ActivePrinter = "\\aprintsvr\theprinter"
    With Oword.Documents.Open("C:\temp\PrintMe.doc")
        .PrintOut Background:=False, Copies:=1
        .Close False
    End With
    Oword.Quit True
End Sub
Thank you for your help