Imprimir Ticket con Visual Basic 2005

[eledgarr]

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

Private Sub DibujaTotales()

Dim ordTot As OrdernarTotal = New OrdernarTotal()

For Each total As String In Totales

CadenaPorEscribirEnLinea = ordTot.ObtenerTotalCantidad(total)
CadenaPorEscribirEnLinea = AlineaTextoaLaDerecha(CadenaPorEscribirEnLinea.Len gth) + CadenaPorEscribirEnLinea

gfx.DrawString(CadenaPorEscribirEnLinea, FuenteImpresa, ColorDeLaFuente, MargenIzquierdo, Renglon(), New StringFormat())
MargenIzquierdo = 10

CadenaPorEscribirEnLinea = " " + ordTot.ObtenerTotalNombre(total)
gfx.DrawString(CadenaPorEscribirEnLinea, FuenteImpresa, ColorDeLaFuente, MargenIzquierdo, Renglon(), New StringFormat())
contador += 1
Next total
MargenIzquierdo = 10
DibujaEspacio()
DibujaEspacio()
End Sub

Private Sub DibujarPieDePagina()

For Each PieDePagina As String In LineasDelPie

If (PieDePagina.Length > MaximoCaracter()) Then

Dim currentChar As Integer = 0
Dim LongitudPieDePagina As Integer = PieDePagina.Length

While (LongitudPieDePagina > MaximoCaracter())

CadenaPorEscribirEnLinea = PieDePagina
gfx.DrawString(CadenaPorEscribirEnLinea.Substring( currentChar, MaximoCaracter), FuenteImpresa, ColorDeLaFuente, MargenIzquierdo, Renglon(), New StringFormat())

contador += 1
currentChar += MaximoCaracter()
LongitudPieDePagina -= MaximoCaracter()
End While
CadenaPorEscribirEnLinea = PieDePagina
gfx.DrawString(CadenaPorEscribirEnLinea.Substring( currentChar, CadenaPorEscribirEnLinea.Length - currentChar), FuenteImpresa, ColorDeLaFuente, MargenIzquierdo, Renglon(), New StringFormat())
contador += 1

Else

CadenaPorEscribirEnLinea = PieDePagina
gfx.DrawString(CadenaPorEscribirEnLinea, FuenteImpresa, ColorDeLaFuente, MargenIzquierdo, Renglon(), New StringFormat())

contador += 1
End If
Next PieDePagina
MargenIzquierdo = 10
DibujaEspacio()
End Sub

Private Sub DibujaEspacio()

CadenaPorEscribirEnLinea = " "

gfx.DrawString(CadenaPorEscribirEnLinea, FuenteImpresa, ColorDeLaFuente, MargenIzquierdo, Renglon(), New StringFormat())

contador += 1

End Sub

Public Sub New()

End Sub


End Class




Public Class OrdenarElementos

Public delimitador() As Char = " "


Public Sub OrdenarElementos(ByVal delimit As Char)
Dim delimitador As Char = delimit
End Sub


Public Function ObtenerCantidadDeElementos(ByVal orderItem As String) As String

Dim delimitado() As String = orderItem.Split(delimitador)
Return delimitado(0)
End Function

Public Function ObtenerNombreElemento(ByVal orderItem As String) As String

Dim delimitado() As String = orderItem.Split(delimitador)
Return delimitado(1)
End Function

Public Function ObtenerPrecioElemento(ByVal orderItem As String) As String

Dim delimitado() As String = orderItem.Split(delimitador)
Return delimitado(2)
End Function

Public Function GenerarElemento(ByVal cantidad As String, ByVal NombreElemento As String, ByVal Precio As String) As String

Return cantidad + delimitador(0) + NombreElemento + delimitador(0) + Precio
End Function
End Class




Public Class OrdernarTotal

Public delimitador() As Char = " "

Public Sub OrdernarTotal(ByVal delimit As Char)

Dim delimitador As Char = delimit
End Sub

Public Function ObtenerTotalNombre(ByVal totalItem As String) As String

Dim delimitado() As String = totalItem.Split(delimitador)
Return delimitado(0)

End Function
Public Function ObtenerTotalCantidad(ByVal totalItem As String) As String

Dim delimitado() As String = totalItem.Split(delimitador)
Return delimitado(1)
End Function

Public Function GenerarTotal(ByVal totalName As String, ByVal price As String) As String

GenerarTotal = totalName + delimitador(0) + price
End Function

End Class