Imprimir Ticket con Visual Basic 2005

[slayer_ramsi]

Iniciado por eledgarr

.........................................


Public Class Form1






Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As ticket = New ticket
'a.HeaderImage = "C:\Documents and Settings\Administrador\Mis documentos\COMPU.jpg"

a.AnadirLineaCabeza("STARBUCKS COFFEE TAMAULIPAS"
a.AnadirLineaCabeza("EXPEDIDO EN:"
a.AnadirLineaCabeza("AV. TAMAULIPAS NO. 5 LOC. 101"
a.AnadirLineaCabeza("MEXICO, DISTRITO FEDERAL"
a.AnadirLineaCabeza("RFC: CSI-020226-MV4"

'El metodo AddSubHeaderLine es lo mismo al de AddHeaderLine con la diferencia
'de que al final de cada linea agrega una linea punteada "=========="
a.AnadirLineaSubcabeza("Caja # 1 - Ticket # 1"
a.AnadirLineaSubcabeza("Le atendió: Prueba"
a.AnadirLineaSubcabeza(DateTime.Now.ToShortDateStr ing() + " " + DateTime.Now.ToShortTimeString())

'El metodo AddItem requeire 3 parametros, el primero es cantidad, el segundo es la descripcion
'del producto y el tercero es el precio
a.AnadirElemento("1", "Articulo Prueba", "15.00"
a.AnadirElemento("2", "Articulo Prueba", "25.00"

'El metodo AddTotal requiere 2 parametros, la descripcion del total, y el precio
a.AnadirTotal("SUBTOTAL", "29.75"
a.AnadirTotal("IVA", "5.25"
a.AnadirTotal("TOTAL", "35.00"
a.AnadirTotal("", "" ' //Ponemos un total en blanco que sirve de espacio
a.AnadirTotal("RECIBIDO", "50.00"
a.AnadirTotal("CAMBIO", "15.00"
a.AnadirTotal("", "" '/Ponemos un total en blanco que sirve de espacio
a.AnadirTotal("USTED AHORRO", "0.00"


'//El metodo AddFooterLine funciona igual que la cabecera
a.AnadeLineaAlPie("EL CAFE ES NUESTRA PASION..."
a.AnadeLineaAlPie("VIVE LA EXPERIENCIA EN STARBUCKS"
a.AnadeLineaAlPie("GRACIAS POR TU VISITA"

'//Y por ultimo llamamos al metodo PrintTicket para imprimir el ticket, este metodo necesita un
'//parametro de tipo string que debe de ser el nombre de la impresora.
a.ImprimeTicket("SWF Printer"








End Sub
End Class