Para lo que quieres hacer lo mejor es utilizar la impresora
Genérico/Sólo texto
Este ejemplo está en otro lenguaje, pero ocurre que lo he hecho hace poco y sabía que lo tenía a mano, pero creo que para que te hagas una idea puede servirte:
Código:
Private Sub MP1_Click()
Dim Cont As Integer
Set Printer = Printers(Cont)
Do While Printer.DeviceName <> "Genérico/Sólo texto"
Cont = Cont + 1
If Cont > (Printers.Count - 1) Then
Set Printer = Printers(0)
MsgBox "ERROR. No existe la Impresora: Genérico/Sólo texto"
Exit Sub
Else
Set Printer = Printers(Cont)
End If
Loop
Printer.Print "~EF~EG"
NOTA: Ojo con el nombre de la impresora, porque esta rutina me tuvo una tarde parado, ya que hay que asegurarse que la impresora se llama así, a mi me ocurrio que en la versión anterior de Windodws se llamaba "Genérico / Solo texto", es decir tenía un espacio entre la barra.
Un Saludo y espero te sirva la idea.