Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: neoversek en Agosto 10, 2014, 11:44:18 pm
-
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
-
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 (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 (http://www.bixolon.com/html/en/download/download_list.xhtml)
Saludos, desde algún lugar de Lima-Perú
-
gracias Albertomi déjame chequear y probar y te digo a ver que tal me salio el asunto
-
En el transcurso de la noche subiré un código de ejemplo para estas impresoras fiscales de la casa de The Factory...
Saludos...
-
seria interesante ver ese codigo, muchas gracias saludos
-
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.
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ú
-
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
-
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 (https://www.mediafire.com/?4ibu3h27u9wsi5q)
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 (https://www.mediafire.com/?4ibu3h27u9wsi5q)
Edit: Si alguien lo sube a host gratis, favor avisar para yo quitarlos de mi web....
Saludos
-
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
-
EjemploBematech.rar
https://www.mediafire.com/?4ibu3h27u9wsi5q (https://www.mediafire.com/?4ibu3h27u9wsi5q)
TFHKA_VisualBasic6.rar
https://www.mediafire.com/?4ibu3h27u9wsi5q (https://www.mediafire.com/?4ibu3h27u9wsi5q)
-
Alguien tiene algun ejemplo para las impresoras usadas en argentina ( hassar, epson, etc ) ?
gracias
-
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
-
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
-
Pero no hay ejemplos en Vb 6 sobre IMPRESORAS FISCALES. gracias
-
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 (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ú