Buenas, revisando la ayuda encontre este codigo, haber si ayuda en vuestro problema:
Private Sub Command1_Click()


Dim P As Object
For Each P In Printers
If P.Port = "LPT1:" Or P.DeviceName...