Imprimir en forma horizontal

[rishart]

Iniciado por Avellaneda

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

excelente avellaneda muchisimas gracias funciono a la perfeccion. solo una pregunta mas y disculpa la molestias ocacionadas, se puede ocultar 3 botones es decir que no aparescan en la impresion, yo lo trate de hacer poniendo al boton como invisible pero aun asi me aparece. si no es mucha molestia podrias comentarme como hacerle... de antemano te agradezco y te envio un cordial saludo.