Hola foreros, saben que utilizo hace tiempo una función para imprimir texto en una impresora que esté conectada al puerto com con MSComm, les copio aquí la función que utilizo
Código:
Public Function ImprimeCom(paramBuffer as string) As Integer
Dim n As Integer
Dim resp As Integer
On Error GoTo errImprimeCom
ImprimeCom = cERR_NODEF
mCancelar = False
mReintentar = False
Do
mReintentar = False
comOut.PortOpen = True
If mCancelar Then
Exit Function
End If
Loop While mReintentar
For n = 1 To Len(paramBuffer) Step 512
Do
mReintentar = False
comOut.Output = Mid(paramBuffer, n, 512)
Retardo
If mCancelar Then
comOut.PortOpen = False
Exit Function
End If
Loop While mReintentar
Next n
comOut.PortOpen = False
ImprimeCom = cERR_OK
Exit Function
y me funciona muy bien, el tema es que tengo que imprimir una imagen! a alguien se le ocurre como agregar una imagen a esta rutina?
desde ya muchas gracias