Visual Basic Foro

General => General => Mensaje iniciado por: Bazooka en Marzo 08, 2013, 10:58:50 pm

Título: Software para Tiqueteadora
Publicado por: Bazooka en Marzo 08, 2013, 10:58:50 pm

Hola amigos un cliente me pidio que le desarrrolle un softaware para comunicarse con unas impresoras que imprimen tiquet no fiscal.
Es para tener en eventos donde se venden Tiquet de bebidas y eso y se compran en caja que la impresora le imprime el nombre valor y con ese tiquet reita la mercaderia.

Sucede que no conozco ni como son ni como funcionan estas impresoras.
Alguien me echa un dato o algo para comenzar a indagar?

Título: Re:Software para Tiqueteadora
Publicado por: E N T E R en Marzo 09, 2013, 09:48:15 am

Hola Miguel yo lo hago asi: con impresoras conectadas a LPT.

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Open "LPT1:" For Output As #1     'El LPT1: es el puerto en donde esta conectado tu impresora, podes ver en las propiedades de la impresora eso.
   
    Print #1, Tab(1); "COMPROBANTE DE VENTA"
    Print #1, Tab(1); "CANT"; Tab(6); "P R O D U C T O"; Tab(26); "I.V.A"; Tab(34); "SUBTOT"
   
    For i = 1 To 5
        Print #1, Tab(3); "1"; Tab(6); "UNO"; Tab(26); "10%"; Tab(34); "10.00"
    Next i

    Print #1, Tab((40 - Len("GRACIAS POR SU COMPRA!")) \ 2); "GRACIAS POR SU COMPRA!"
   
End Sub

Si tu impresora es con conexion USB es casi la misma cosa. Printer.CurrentX, Printer.CurrentY

Código: (VB) [Seleccionar]

Printer.CurrentX = 31:       Printer.CurrentY = 42:    Printer.Print "COMPROBANTE DE VENTAS"

Saludos...