boton imprimir

Tu arrastra un componente PrintDocument a tú formulario, y déjale el nombre por defecto, supongo que "PrintDocument1".

Este componente te ayudará a imprimir cualquier cosa. Su funcionamiento es muy sencillo.

Esta parte le está pidiendo al componente que imprima. ¿Pero el qué?

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click



        PrintDocument1.Print()



    End Sub

Pues fácil, en el evento PrintPage tenemos que indicarle lo que queremos que imprima, escribiendo en "e.Graphics".

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



        Dim printFont As New Font("Arial", 12)



        Dim lineHeightSingle As Single = printFont.GetHeight + 2



        Dim horizontalPrintLocationSingle As Single = e.MarginBounds.Left



        Dim verticalPrintLocationSingle As Single = e.MarginBounds.Top



        Dim printLineString As String



        Dim listIndexInteger As Integer



        For listIndexInteger = 0 To Me.ListBox1.Items.Count - 1



            verticalPrintLocationSingle += lineHeightSingle



            printLineString = Me.ListBox1.Items(listIndexInteger).ToString



            e.Graphics.DrawString(printLineString, printFont, Brushes.Black, horizontalPrintLocationSingle, verticalPrintLocationSingle)



        Next listIndexInteger




    End Sub

¿Qué parte del código no entiendes?

---

Colabora con el foro: Si el mensaje te es de utilidad márcalo como respuesta.

Toni Recio

MVP - MCTS Windows Forms

Web: http://www.tonirecio.com

Image may be NSFW.
Clik here to view.