Visual Basic.NET - impresion de ticket en impresora termica

Private Sub MiPrintDocument_PrintPage(ByVal sender As Object, ByVal e As

System.Drawing.Printing.PrintPageEventArgs) Handles MiPrintDocument.PrintPage

  Dim Linea As String

' PointF et RectangleF estan Posicion y Tamaño de la zona del impresión escribidas en Floating point

  Dim Posicion As System.Drawing.PointF

  Dim Rectangle As RectangleF

  Dim Police As Font

  Dim EspesorLinea As Single

  Linea = "Esta la linea a imprimir"	' Una primera linea a imprimir

  Police = New Font("Courier New", 10, FontStyle.Bold)

  Posicion = New PointF(e.MarginBounds.Left, e.MarginBounds.Top)

  EspesorLinea = Police.GetHeight(e.Graphics)

  Rectangle.Location = Posicion

  Rectangle.Width = e.MarginBounds.Width	' Tomar la distancia entre margas  Rectangle.Height = EspesorLinea	' y utilizar la espesor de la linea

  e.Graphics.DrawString(Linea, Police, Brushes.Black, Rectangle)

  Linea = "y este otra …"		' una otra linea …

  Police = New Font("Times New Roman", 16, FontStyle.Bold)

  Posicion = New PointF(e.MarginBounds.Left, e.MarginBounds.Top + EspesorLinea)

  EspesorLinea = Police.GetHeight(e.Graphics)

  Rectangle.Location = Posicion

  Rectangle.Width = e.MarginBounds.Width

  Rectangle.Height = EspesorLinea

  e.Graphics.DrawString(Linea, Police, Brushes.Black, Rectangle)

  '	… hasta no mas linea

  e.HasMorePages = False

End Sub

‘ La variable MiDoc debe ser conocido en todo el Form

        MiPrintDocument.DocumentName = "X:\TXT\MonTexte.Txt" ‘ Nombre y camina del archivo

        MiDoc = New System.IO.StreamReader(MiPrintDocument.DocumentName)

        MiPrintDocument.Print()

        MiDoc.Close()

Private Sub MiPrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage

  Dim Linea As String

' PointF et RectangleF estan Posicion y Tamaño de la zona del impresión escribidas en Floating point

  Dim Posicion As System.Drawing.PointF

  Dim Rectangle As RectangleF

  Dim Police As Font

  Dim EspesorLinea As Single

  Dim CuantidadLineasDeUnaPagina As Integer

  Dim ContadorLinea As Integer = 0 			' Contar las lineas imprimidas

' En este ejemplo exemple, todas líneas tienen mismo “Police” y mismo espesor

  Police = New Font("Courier New", 10, FontStyle.Bold)

  EspesorLinea = Police.GetHeight(e.Graphics)

  Rectangle.Width = e.MarginBounds.Width

  Rectangle.Height = EspesorLinea

  NbrLignesParPage = e.MarginBounds.Height / EspesorLinea

  Do Until MonDoc.Peek = -1	' Leer el archivo linea por line

    Linea = MonDoc.ReadLine()	' y calcular la posicion de la linea para imprimir

    Position = New PointF(e.MarginBounds.Left, e.MarginBounds.Top + (ContadorLinea * EspesorLinea))

    Rectangle.Location = Posicion

    e.Graphics.DrawString(Linea, Police, Brushes.Black, Rectangle)

    ContadorLinea += 1

    If ContadorLinea > NbrLignesParPage Then Exit Do

  Loop

  If MiDoc.Peek <> -1 Then

    e.HasMorePages = True

  Else

    MiDoc.Close()

    MiDoc = New  System.IO.StreamReader(MiPrintDocument.DocumentName)

  End If

End Sub