Excelente código, pero tengo problemas al imprimir el ticket, es en la parte de la Descripción la impresora me imprime la cantidad encima del articulo y si le doy un espacio desaparece el precio, alguien me podría ayudar?
El diseño del tiket lo hice así:
**********COTRAUVIN R.L.**********
******VILLA NUEVA, GUATEMALA******
*****TRANSPORTES DE GUATEMALA*****
Caja # 1 - Ticket # 1
====================================
Le atendió: Willy
====================================
10/04/2011 07:37 p.m.
====================================
CANT DESCRIPCION IMPORTE
1P1r1ueba 15.00
20 Prueba
====================================
SUBTOTAL 29.75
IVA 5.25
TOTAL 35.00
RECIBIDO 50.00
CAMBIO 15.00
USTED AHORRO
EL TRANSPORTE NACIONAL.............
..
VIVE LA EXPERIENCIA EN COTRAUVIN
Mi impresora es una TM-U220PA
Cita:
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.AnadirLineaCabeza("**********COTRAUVIN R.L.**********")
a.AnadirLineaCabeza("******VILLA NUEVA, GUATEMALA******")
a.AnadirLineaCabeza("*****TRANSPORTES DE GUATEMALA*****")
'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ó: Willy")
a.AnadirLineaSubcabeza(DateTime.Now.ToShortDateStr ing() & " " & " " & " " & DateTime.Now.ToShortTimeString())
' a.AnadirLineaSubcabeza(DateTime.Now.ToShortTimeStr ing())
'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("111", "Prueba", "15.00")
a.AnadirElemento("20" & " ", "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 TRANSPORTE NACIONAL...............")
a.AnadeLineaAlPie("VIVE LA EXPERIENCIA EN COTRAUVIN")
End Sub
End Class