Impressão utilizando Driver de Spooler - VB6

Para isso, você vai precisar de um ComboBox que no caso é o Combo3
No evento Load do form você insere essas instruções:

'Joga um combo que no caso aqui esta com nome combo3
'Declara a variável da classe Printer
Dim Impressoras As Printer

'Carrega as impressoras disponíveis para a variável Impressoras
For Each Impressoras In Printers
Combo3.AddItem Impressoras.DeviceName
Next

No lostfocus do Combo3 seta a impressora

'Seta o index da impressora escolhida
Set Printer = Printers(Combo3.ListIndex)

'No click do botão imprimir insere este código:
printer.print(texto)
printer.enddoc