• Lunes 23 de Diciembre de 2024, 13:32

Autor Tema:  Imprimir Datos De Un Datagrid  (Leído 2163 veces)

Khuzu dum

  • Nuevo Miembro
  • *
  • Mensajes: 19
    • Ver Perfil
Imprimir Datos De Un Datagrid
« en: Martes 17 de Mayo de 2005, 11:02 »
0
Hola de nuevo a todos, escribo este mensaje por que estoy haciendo un programa en el que se pueden realizar una serie de consultas de tablas de access 2000 que se cargan en un datagrid, y lo unico que me falta para terminar el programa es el boton imprimir, es decir, que cuando se pulse el botón se impriman los datos que hay cargados en el datagrid, y no tengo ni idea de como hacerlo, he intentado hacerlo desde el crystal report que viene de base con el visual basic.net pero esta en inglés y no lo comprendo a pesar de haberme bajado manuales en español, no se si la version del manual es anterior o posterior o , lo más probable, es que soy más torpe que un guarro gordo, :P  pero en fin, la pregunta es si hay alguna forma de imprimir los datos del datagrid sin necesidad de utilizar el crystal y si es asi ¿como?
Gracias a todos por perder vuestro tiempo leyendo este post.

khuzu dum

Khuzu dum

  • Nuevo Miembro
  • *
  • Mensajes: 19
    • Ver Perfil
Re: Imprimir Datos De Un Datagrid
« Respuesta #1 en: Miércoles 18 de Mayo de 2005, 13:57 »
0
Hola de nuevo a tod@s:

  Al final, después de mucho buscar encontré una forma de hacerlo, pero sólo me imprime la parte visible del datagrid, es decir, si hay datos que para verlos tengo que mover la barra de desplazamiento esos no se imprimen, os paso el código por si alguien me puede orientar donde buscar más información al respecto le estaria eternamente agradecido, sino solamente estaré agradecido :P , es broma, gracias a tod@s por el tiempo gastado. Este es el código:

  Private Sub PrintGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintGrid.Click
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New Point(0, 0), Me.Size))
        Me.InvokePaint(DataGrid1, myPaintArgs)
    End Sub