boton imprimir

Public Class Form1
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        PrintDocument1.Print()
    End Sub
    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

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.