Imprimir directo al puerto paralelo.

[marcoszorrilla]

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:

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.