none
¿Es posible imprimir el contenido de un control de panel? RRS feed

Respuestas

  • depende de lo que tengas en el panel, el código podria cambiar. Para imprimirlo, debremos introducir ncada elemento en el printdocument. Por ejemplo si tenemos un label y un picturebox:

    entonces en el printdocument usaríamos este código:

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
            Try
              e.Graphics.DrawImage(PictureBox1.Image, 50, 50, PictureBox1.Width, PictureBox1.Height) 'se dibujara el picturebox con su imagen
    
              e.Graphics.DrawString(Label1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), 50, 50 + PictureBox1.Height + 10)'se dibujaría un texto con las propiedades del label
            Catch ex As Exception 'por si hay un error
                MsgBox(ex.Message)
            End Try
        End Sub
    
    


    Si tiene algun otro elemento que no sepa imprimir y sea necesario, dinoslo


    • Editado Gerry Soft domingo, 20 de marzo de 2016 11:12 errores en el codigo con los comentarios
    • Marcado como respuesta James-2016 martes, 22 de marzo de 2016 8:53
    domingo, 20 de marzo de 2016 11:11

Todas las respuestas

  • depende de lo que tengas en el panel, el código podria cambiar. Para imprimirlo, debremos introducir ncada elemento en el printdocument. Por ejemplo si tenemos un label y un picturebox:

    entonces en el printdocument usaríamos este código:

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
            Try
              e.Graphics.DrawImage(PictureBox1.Image, 50, 50, PictureBox1.Width, PictureBox1.Height) 'se dibujara el picturebox con su imagen
    
              e.Graphics.DrawString(Label1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), 50, 50 + PictureBox1.Height + 10)'se dibujaría un texto con las propiedades del label
            Catch ex As Exception 'por si hay un error
                MsgBox(ex.Message)
            End Try
        End Sub
    
    


    Si tiene algun otro elemento que no sepa imprimir y sea necesario, dinoslo


    • Editado Gerry Soft domingo, 20 de marzo de 2016 11:12 errores en el codigo con los comentarios
    • Marcado como respuesta James-2016 martes, 22 de marzo de 2016 8:53
    domingo, 20 de marzo de 2016 11:11
  • Gracias.
    martes, 22 de marzo de 2016 8:54
  • Denada
    miércoles, 23 de marzo de 2016 15:35