Use the Printers Collection, eg.
Code:
Dim oPrn As Printer
'Send Print to Every Printer Driver in the Printers Folder..
For Each oPrn In Printers
    Set Printer = oPrn
    Printer.Print "Printing on.. " & Printer.DeviceName
    Printer.EndDoc
Next

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]