VBA Error message

[EddieS]

Hi all,

I'm getting the unsual error message [See attached] but only on one machine (Win7 x64).

Function printerExists(str) As Boolean
    printerExists = False
    Dim objWMIService
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  
    Dim colPrinters
    Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer") <---- FAILS HERE *****************
  
    Dim objPrinter
    For Each objPrinter In colPrinters
        If objPrinter.Name = str Then
            printerExists = True
            Exit For
        End If
    Next
    
    PrterChkd = True
End Function

Any ideas on a solution would be appreciated.

Regards,
Eddie

[Ed Jobe]

Does Win32_Printer exist on a 64bit pc? Perhaps you also need to test the OS before you query printers?

[EddieS]

Good point Ed... I'll investigate it.
Although other machines with the same specs etc don't get this error, which is why i'm puzzled.

[Ed Jobe]

The other pc's might have a 64bit os, but not be set up exactly the same.