Imprimir en forma horizontal

[Avellaneda]

Iniciado por rishart

Hola avellaneda, pues en el evento printpage no le puse nada solo en el boton puse el codigo que me proporcionaste y lo que quiero imprimir es todo el contenido del form, que incluye varios text, lineas y grafias, por ello quisiera imprimir todo el form

saludos y gracias de antemano

Bien, mira si te vale este ejemplo:

Código:

#Region "ImprimirForm"

    Dim ElForm As Bitmap

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CopiarPantalla()
        PrintDocument1.DefaultPageSettings.Landscape = True
        PrintDocument1.Print()
    End Sub

    Private Sub CopiarPantalla()
        Dim Grphs As Graphics = Me.CreateGraphics()
        ElForm = New Bitmap(Me.Size.Width, Me.Size.Height, Grphs)
        Dim memoryGraphics As Graphics = Graphics.FromImage(ElForm)
        memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Me.Size)
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(ElForm, 0, 0)
    End Sub
#End Region

saludos