Visual Basic - Ayuda para imprimir

hola necesito su gran ayuda

he utilizado este codigo para mostrar en un combo las impresoras intaladas en la PC

Dim DetectaImpresoras As Integer

If Printers.Count - 1 < 0 Then
MsgBox "No se encontron impresoras instaladas", vbInformation
End If

For DetectaImpresoras = 0 To Printers.Count - 1

frmImprime.Combo1.AddItem Printers(DetectaImpresoras).DeviceName

Next DetectaImpresoras

ahora tengo una bronca ya saben que pa mandar a imprimir hay que hacer lo siguiente

printer.CurrentX=1000
Printer.CurrentY=1000

Printer.Print Campo.txt

bien con eso imprimimos en la impresora predeterminda lo que quisiera hacer es seleccionar del combo la impresora a la cual queremos madar imprimir

Si me pudieran dar una orientada me harian un gran favor.

SET PRINTER=X

siendo x el número que le corresponde a la impresora, la establece como predeterminada

saludos

ok haber corrigeme por favor

seria mas o menos asi

Set Printer=combo1.listindex

Printer.CurrentX=1000
Printer.CurrentY=1000
Printer.Print Campotxt