Ayuda por favor con impresora fiscal boxilon envenezuela

[neoversek]

buenas noches, ya tengo creado un software de venta el cliente trabajaba en impresión con forma libre las facturas esas que son manuales y ya se va a actualizar a imprimir en una impresora fiscal el me pidió que le hiciera esa actualización y eso pues me llevo a esta situación ya tengo la impresora fiscal la cual compre con el fin de poder hacer pruebas aquí en Venezuela el proveedor supuesta mente  te da los códigos para  implementar en tu software pero no es tan fácil como se cree ya que solo me dieron un dll y mas nada e buscado por la Internet pero no doy pie con el asunto si alguien sabe por favor como se utiliza dicha dll o los códigos que me oriente para poder empezar a teclear código me seria de gran ayuda gracias de ante mano

[Albertomi]

Estimado neoversek

Tienes dos formas como realizar la impresión:

• Directa, para ello no requieres de ninguna driver (archivos DLL, SYS) del fabricante. Vasta que conecte la impresora un puerto PARALELO, RS-232 o USB (Emulado como puerto seriales) y te comunicas con la impresora haciendo uso de los comandos ESC/POS. Ten en cuenta que las impresoras Bixolon  pueden emular una impresora Epson. El manejo de la impresión es más complejo (pero no imposible) pero el inicio de la impresión es más rápido. En este link encontraras un listado de los comandos ESC/POS   http://www.sumiquel.com/ftp_todotpv/escpos%20ePSON.pdf
• Por Windows, en este caso si requieres de los driver (archivos DLL, SYS) de la impresora. El manejo de la impresión es más simple pero la velocidad de inicio de la impresión es más lenta que con impresión directa

Las impresoras Bixolon son impresoras Samsung y los driver los puedes bajar de la web de Bixolon, es más hasta hay ejemplos en código VB
http://www.bixolon.com/html/en/download/download_list.xhtml
 
 
Saludos, desde algún lugar de Lima-Perú

[neoversek]

gracias Albertomi déjame chequear y probar y te digo a ver que tal me salio el asunto

[ssccaann43]

En el transcurso de la noche subiré un código de ejemplo para estas impresoras fiscales de la casa de The Factory...

Saludos...

[k_arlytos]

seria interesante ver ese codigo, muchas gracias saludos

[Albertomi]

Estimados Amigos
 
Aquí un ejemplo de código VB6 que hace uso del objeto Printer para imprimir un recibo.
En un formulario agregar un botón y desde el evento clic del botón invoca  al procedimiento ReceiptPrint.

Código: [Seleccionar]

Private Sub ReceiptPrint()
  For Each prnPrinter In Printers
    If prnPrinter.DeviceName = "BIXOLON SRP-350" Then
      Set Printer = prnPrinter
      Exit For
    End If
  Next
 
  Printer.Font.Size = 9.5
  Printer.FontName = "FontControl"
  Printer.Print "x"
 
  Printer.Font.Size = 19
  Printer.FontName = "FontA2x2"
  Printer.Print ""
  Printer.Font.Bold = True
  Printer.Print "BIXOLON's MALL" + vbCrLf
  Printer.Font.Bold = False
 
  Printer.Font.Size = 9.5
  Printer.FontName = "FontA1x1"
  Printer.Print "Buy Online or call" + vbCrLf
 
  Printer.Font.Size = 7
  Printer.FontName = "FontB2x1"
  Printer.Font.Bold = True
  Printer.Print "1-800-915-3355"
  Printer.Font.Bold = False
 
  Printer.Font.Size = 9.5
  Printer.FontName = "FontControl"
  Printer.Print "w"
 
  Printer.Font.Size = 9.5
  Printer.FontName = "FontA1x1"
  Printer.Print "------------------------------------------"  'LF
 
  Printer.Print "BIXOLON SRP-350 Printer               $999"
  Printer.Print "SRP-770 Label Printer                 $749"
  Printer.Print "SRP-370 Thermal Receipt Printer     $1,299"
  Printer.Print "SRP-270 Impact Receipt Printer      $1,299"
  Printer.Print "RIF-BT10                              $949"
  Printer.Print "SMP600                                $349"
  Printer.Print "SRP-500 Inkjet Receipt Printer        $249"
  Printer.Print "------------------------------------------"
  Printer.Font.Bold = True
  Printer.ForeColor = RGB(255, 0, 0)
  Printer.Font.Size = 7
  Printer.FontName = "FontB2x1"
  Printer.Print "Total purchase :      $5,893" + vbCrLf
  Printer.Print "Visa :                $5,893" + vbCrLf
  Printer.Font.Bold = True
  Printer.Print "Change :                  $0"
  Printer.ForeColor = RGB(0, 0, 0)
  Printer.Font.Bold = False
  Printer.Font.Size = 9.5
  Printer.FontName = "FontA1x1"
  Printer.Print "------------------------------------------"
  Printer.Font.Size = 9.5
  Printer.FontName = "FontControl"
  Printer.Print "x"
  Printer.Font.Size = 9.5
  Printer.FontName = "FontControl"
  Printer.Print "r"
  Printer.Font.Size = 20
  Printer.FontName = "Code128"
  Printer.Print "{A{S12235884584645" '+ vbCrLf
 
  Printer.Font.Size = 9.5
  Printer.FontName = "FontA1x1"
  Printer.Print "Date : 11/08/2014     Time : 09:32"
  Printer.Print "No : 00018857302" + vbCrLf + vbCrLf
  Printer.Print "FREE Receip Sample "
  Printer.Print "With Purchase of ANY Dimension Desktop"
  Printer.Print "Ends Today !" + vbCrLf 'LF
 
  'Este código es un ejemplo si quieres imprimir una imagen desde un archivo
  'Picture1.Picture = LoadPicture(App.Path & "\star2.bmp")
  'Picture1.Top = 0
  'Picture1.Left = 0
  'Printer.CurrentX = 10
  'Printer.CurrentY = 5000
  'Printer.PaintPicture Picture1.Picture, Printer.CurrentX, Printer.CurrentY
  '
  'Picture1.Picture = LoadPicture(App.Path & HP)
  'Picture1.Top = 0
  'Picture1.Left = 0
  'Printer.CurrentX = X_Value
  'Printer.CurrentY = Y_Value
  'Printer.PaintPicture Picture1.Picture, Printer.CurrentX, Printer.CurrentY
 
  Printer.Font.Size = 9.5
  Printer.FontName = "FontControl"
  Printer.Print "P"
  Printer.Print "G"
  Printer.Print "P"
 
  Printer.EndDoc
End Sub

 
Saludos, desde algún lugar de Lima-Perú

[neoversek]

me gustaría poder ver el codigo de ejemplo del amigo scann para poder comparar con el del amigo albertomi a ver si le agarro el hilo al asuntillo

[ssccaann43]

Buenas noches...

Dejo el link para las impresoras fiscales de venezuela de la casa The Factory... Aclas, Okidata, Custom Kube, Bixolom, entre otras...

TFHKA_VisualBasic6.rar

Adicionalmente dejo tambien un ejemplo para las bematech, tal como se usa aca en venezuela... Ojo, la devolucion o Nota de Credito no la he podido testear mucho, si alguien lo prueba y lo certifica o lo corrige en caso de que tenga algun error, seria genial...

EjemploBematech.rar

Edit: Si alguien lo sube a host gratis, favor avisar para yo quitarlos de mi web....

Saludos

[neoversek]

ya mismo lo subo a carpeta en mediafire ya les comparto los links
 gracias de ante mano a todos por su ayuda los revisare y ya les comentare gracias amigo ssccaan

[neoversek]

EjemploBematech.rar

https://www.mediafire.com/?4ibu3h27u9wsi5q

TFHKA_VisualBasic6.rar

https://www.mediafire.com/?4ibu3h27u9wsi5q

[gasafonso]

Alguien tiene algun ejemplo para las impresoras usadas en argentina ( hassar, epson, etc ) ?


gracias

[neoversek]

gassa si mal no lee por algún sitio una solución de ejemplo para la argentina déjame lo ubico y lo monto por aquí pero en esa lectura si mal no me acuerdo decían que son muy parecidas a las de aqui en venezuela

[neoversek]

http://www.impresoras-fiscales.com.ar/visual_basic.html aqui hay una aplicaciones para las impresora fiscales de la argentina verifica a ver si te es de utilidad lo que si es muy bueno de esas utilidades es el emulador que ellos tienen alli

[gasafonso]

Pero no hay ejemplos en Vb 6 sobre IMPRESORAS FISCALES. gracias

[Albertomi]

Estimo Gasafonso
 
Claro que sí hay ejemplos para Visual Basic, tienes que instalar el driver. Aquí te copio la ruta de los driver para Argentina:
http://drivers.impresoras-fiscales.com.ar/drivers/ar/epson/tm20driver.exe
 
Luego de instalado en la siguiente ruta encontraras el ejemplo para Visual Basic:
C:\Program Files (x86)\EpsonAR\Ejemplos\VBasic
 
 
Saludos, desde algún lugar de Lima-Perú