Solo imprimir una parte

[lccrhn]

Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
Imports System
Imports System.IO

Public Class ticket

Public LineasDeLatitulo As ArrayList = New ArrayList()
Public LineasDeLaCabeza As ArrayList = New ArrayList()
Public LineasDeLaSubCabeza As ArrayList = New ArrayList()
Public Elementos As ArrayList = New ArrayList()
Public Totales As ArrayList = New ArrayList()
Public LineasDelPie As ArrayList = New ArrayList()

Private headerImagep As Image

Public contador As Integer = 0

Public CaracteresMaximos As Integer = 37
Public CaracteresMaximosDescripcion As Integer = 60

Public imageHeight As Integer = 0

Public MargenIzquierdo As Double = 0
Public MargenSuperior As Double = 0

Public NombreDeLaFuente As String = "Arial"


Public TamanoDeLaFuente As Integer = 9
Public TamanoDeLaFuenteg As Integer = 11

Public FuenteImpresa As Font
Public FuenteImpresa2 As Font


Public ColorDeLaFuente As SolidBrush = New SolidBrush(Color.Black)

Public gfx As Graphics
Public fx

Public CadenaPorEscribirEnLinea As String = ""
Private WithEvents DocumentoAImprimir As New PrintDocument
Private WithEvents PrintPreviewDialog1 As New PrintPreviewDialog

Public Sub Ticket()


End Sub

Public Property HeaderImage() As Image
Get
Return headerImagep
End Get
Set(ByVal value As Image)
'If headerImagep.Width <> value.Width Then

'End If
headerImagep = value
End Set
End Property



Public Property MaximoCaracter() As Integer
Get
Return CaracteresMaximos
End Get
Set(ByVal value As Integer)
If (value <> CaracteresMaximosDescripcion) Then CaracteresMaximosDescripcion = value
End Set
End Property



Public Property MaximoCaracterDescripcion() As Integer
Get
Return CaracteresMaximosDescripcion
End Get
Set(ByVal value As Integer)
If (value <> CaracteresMaximosDescripcion) Then CaracteresMaximosDescripcion = value
End Set
End Property



Public Property TamanoLetra() As Integer
Get
Return TamanoDeLaFuente
End Get
Set(ByVal value As Integer)
If (value <> TamanoDeLaFuente) Then TamanoDeLaFuente = value
End Set
End Property

Public Property TamanoLetrag() As Integer
Get
Return TamanoDeLaFuenteg
End Get
Set(ByVal value As Integer)
If (value <> TamanoDeLaFuente) Then TamanoDeLaFuente = value
End Set
End Property


Public Property NombreLetra() As String
Get
Return NombreDeLaFuente
End Get
Set(ByVal value As String)
If (value <> NombreDeLaFuente) Then NombreDeLaFuente = value
End Set
End Property

Public Sub AnadirLineatitulo(ByVal linea As String)
LineasDeLatitulo.Add(linea)
End Sub
Public Sub AnadirLineaCabeza(ByVal linea As String)
LineasDeLaCabeza.Add(linea)
End Sub

Public Sub AnadirLineaSubcabeza(ByVal linea As String)

LineasDeLaSubCabeza.Add(linea)
End Sub

Public Sub AnadirElemento(ByVal cantidad As String, ByVal elemento As String, ByVal precio As String)

Dim NuevoElemento As OrdenarElementos = New OrdenarElementos()
'''''items.Add(newitem.
Elementos.Add(NuevoElemento.GenerarElemento(cantid ad, elemento, precio))

End Sub

Public Sub AnadirTotal(ByVal Nombre As String, ByVal Precio As String)
Dim NuevoTotal As OrdernarTotal = New OrdernarTotal
' OrderTotal(newtotal)

Totales.Add(NuevoTotal.GenerarTotal(Nombre, Precio))
End Sub

Public Sub AnadeLineaAlPie(ByVal linea As String)
LineasDelPie.Add(linea)
End Sub

Private Function AlineaTextoaLaDerecha(ByVal Izquierda As Integer) As String

Dim espacios As String = ""
Dim spaces As Integer = MaximoCaracter() - Izquierda
Dim x As Integer
For x = 0 To spaces
espacios += " "
Next
Return espacios
End Function

Private Function DottedLine() As String

Dim dotted As String = ""
Dim x As Integer
For x = 0 To MaximoCaracter()
dotted += "="
Next
Return dotted
End Function
Public Function ImpresoraExistente(ByVal impresora As String) As Boolean

For Each strPrinter As String In PrinterSettings.InstalledPrinters

If impresora = strPrinter Then
Return True
End If
Next strPrinter
Return False
End Function

Public Sub ImprimeTicket(ByVal impresora As String)

FuenteImpresa = New Font(NombreLetra, TamanoLetra, FontStyle.Regular)
FuenteImpresa2 = New Font(NombreLetra, TamanoLetrag, FontStyle.Bold)
'Dim pr As New PrintDocument
DocumentoAImprimir.PrinterSettings.PrinterName = impresora
DocumentoAImprimir.DocumentName = "DON TIKI"

'pr.PrinterSettings.printpa()
' pr.PrintPage += New
' PrintPageEventHandler(pr_PrintPage)
DocumentoAImprimir.Print()

End Sub