Muchos de los que nos acostumbramos al uso de ‘Printer.Print’ en visual Basic 6, padecemos de ciertas dificultades para adaptarnos al nuevo uso de ‘PrintDocument’.

Con la intención de responder a numerosas preguntas sobre el tema y facilitar esas transiciones que finalmente nos aportan un montón de beneficios, me complace compartir con vosotros este pequeño ejemplo de cómo generar un listado usando el ‘moderno’ PrintDocument, dandole un estilo muy chapado a la antigua J.

Espero que os sea útil!

©Pep Lluis

‘Este ejemplo se ha compilado con la versión Beta 1 del compilador FW 4.0, aunque no tendréis dificultad alguna en adaptar el concepto a cualquier versión anterior del framework.

Imports System.Drawing.Printing

Public Class Form1
    ‘Crear el PrintDocument
    Private ListadoDeArticulos As New PrintDocument
    ‘Simulación tabla de Artículos
    Private Articulos As New DataTable(«Articulos»)

    Private Sub Form1_Load() Handles MyBase.Load

        ‘Función de imprimir paginas
        AddHandler ListadoDeArticulos.PrintPage, AddressOf Me.ImprimirListado

        ‘
        ‘ Simular tabla Artículos
        ‘
        Articulos.Columns.Add(«Codigo»)
        Articulos.Columns.Add(«Descripcion»)
        Articulos.Columns.Add(«Precio»)
        Articulos.Rows.Add(«001», «Resistencia 100ohms», «0,15»)
        Articulos.Rows.Add(«002», «Transistor 2n2234», «1,00»)
        Articulos.Rows.Add(«003», «Microprocesador Z80», «5,40»)
        Articulos.Rows.Add(«004», «UART 16C450», «3,45»)
        Articulos.Rows.Add(«005», «Resistencia 200ohms», «0,12»)
        Articulos.Rows.Add(«006», «Transistor 2n2222», «1,22»)
        

       ‘ Lanzar la ejecución del listado
        ListadoDeArticulos.Print()

    End Sub

 

    ‘Seleccionar la fuente para el listado
    Dim Fuente_Pagina As New Font(«Lucida Console», 10)
    ‘Fijar los márgenes Derecho / Izquierdo
    Dim Margen_Izquierdo As Single = 0
    Dim Margen_Superior As Single = 0
    ‘Controlar la posición Vertical/NºPagina
    Dim PosicionLinea As Single = 0
    Dim ContadorLinea As Single = 0
    Dim Numero_Pagina As Single = 1
    ‘Memorizar la posición en curso dentro del Dataset
    Dim Puntero As Single = 0

    ‘
    ‘ Imprimir el Listado de Artículos
    ‘
    Sub ImprimirListado(ByVal sender As Object, ByVal Pagina As PrintPageEventArgs)

        ‘Ajustes para el Control de Pagina
        Dim Lineas_Pagina As Single = Pagina.MarginBounds.Height / Fuente_Pagina.GetHeight(Pagina.Graphics)
        ContadorLinea = 0
        Margen_Izquierdo = Pagina.MarginBounds.Left
        Margen_Superior = Pagina.MarginBounds.Top

        ‘Cabecera del Listado
        ImprimirUnaLinea(Pagina, «Electronica NAVI»)
        ImprimirUnaLinea(Pagina, «Listado de Artículos sin ningún orden ni concierto»)
        ImprimirUnaLinea(Pagina, «Vic (Barcelona) a fecha : « + DateTime.Now + » ,Pagina : « + Numero_Pagina.ToString)
        ImprimirUnaLinea(Pagina, «»)
        ImprimirUnaLinea(Pagina, «Código Descripción                                               Precio»)
        ImprimirUnaLinea(Pagina, «—— ——————————————————— ——–«)
        Dim Articulo As DataRow
        Dim Linea As String = Space(80)
        ‘
        ‘Recorrer la tabla de artículos / imprimir una línea por fila
        For Indice As Single = Puntero To Articulos.Rows.Count – 1
            Articulo = Articulos.Rows(Indice)
            If ContadorLinea < Lineas_Pagina Then
                ‘posicionar la columna según item/articulo
                Mid(Linea, 2) = Articulo.Item(«Codigo»)
                Mid(Linea, 8) = Articulo.Item(«Descripcion»)
                Mid(Linea, 66) = Articulo.Item(«Precio»)
                ‘imprimir la linea
                ImprimirUnaLinea(Pagina, Linea)
            Else
                Exit For
            End If
        Next
        ‘Memorizar la posicion del primer artículo/siguiente Pagina
        Puntero = Articulos.Rows.IndexOf(Articulo)
        ‘
        ‘Comprobar si existen artículos para listar
        If Puntero < Articulos.Rows.Count – 1 Then
            Numero_Pagina += 1          ‘Incrementar numero de página
            Pagina.HasMorePages = True  ‘SI tengo más paginas a imprimir
        Else
            ImprimirUnaLinea(Pagina, «—— ——————————————————— ——–«)
            Numero_Pagina = 1           ‘Numero de pagina a 1 (Para el proximo listado)
            Pagina.HasMorePages = False ‘No Tengo mas paginas para imprimir
        End If
    End Sub
    ‘
    ‘ Imprimir una linea
    ‘

   ‘Lambda para con el cálculo de la posición de la línea
    Dim Pos = Function() As Single
                Return Margen_Superior + ContadorLinea * Fuente_Pagina.GetHeight(Pagina.Graphics)
              End Function

    Sub ImprimirUnaLinea(ByVal Pagina As PrintPageEventArgs, ByVal Linea As String)
        ‘Imprimir la línea con la fuente seleccionada y en Negro
        Pagina.Graphics.DrawString(Linea, Fuente_Pagina, Brushes.Black, Margen_Izquierdo, Pos())
        ‘Incrementar el contador de líneas
        ContadorLinea += 1
    End Sub

End Class

PD. Me gustara recibir vuestros comentarios, opiniones y aportaciones.