Visual Basic - Velosidad en Impresora Fiscal

Hola..

Estoy desarrollando una aplicación q usa una impresora fiscal ( NCR ), el problema que tengo es que es muy lenta para imprimir, ya que debe esperar la respuesta de cada comando. Alguien me podría decir como evitar las pausas al momento de imprimir, he visto la misma impresora y al momento de imprimir no demora nada.

Gracias..

Hola lunatico;

Como es uqe imprimes?

Si usas el comando printer es mucho más veloz.

Yo he programado impresoras fiscales y con el objeto printer logras controlar totalmente estas impresoras.

Ejemplo:

Printer.CurrentY = 10
Printer.CurrentX = 0.5
Printer.Print "NOMBRE DEL TICKET"

Printer.CurrentY = 20
Printer.CurrentX = 2.2
Printer.Print "CAFE PURO: " & format(importe ,"###,##0.00")

Saludos.

hola..

el problema que tengo es con la impresión de la boleta, ya que a esta se le envían los comandos correspondientes para poder estructurarla.

La comunicación la realizo con el objeto MSCOM32, una ves que abro la conexión le envió los comandos fiscales.

ejemplo.

Public Function OpenPrint(ByVal Puerto As Integer, ByVal Velocidad As String) As Integer
On Error GoTo ex
If conexion.PortOpen = True Then
OpenPrint = 0
Sleep (300)
Else
conexion.CommPort = Puerto
conexion.Settings = Velocidad & ",N,8,1"
conexion.InputMode = MSCommLib.InputModeConstants.comInputModeText
OpenPrint = 0
conexion.PortOpen = True
Sleep (300)
'Respuesta (conexion.Input)
End If
Exit Function
ex:
MsgBox ("Impresora no conectada")
OpenPrint = 1

End Function

Function OpenBoleta()
P.WritePrint ("000")
P.WritePrint ("12")
End Function


Function CloseBoleta(ByVal CortarPapel_S_N)
If CortarPapel_S_N = "S" Then
P.WritePrint ("99")
Else
P.WritePrint ("98")
End If
End Function

Public Function WritePrint(ByVal Comando As Long, Data As String) As String
Dim Instruccion As String, xxx As Long, yyy As String
Instruccion = Chr(255) & Chr(Comando) & "000"
conexion.Output = Instruccion & Chr(215) '& Chr(136)
WritePrint = ReadPrint
End Function

Public Function ReadPrint() As String
Sleep (300) ' esperar respuesta
ReadPrint = conexion.Input
End Function