Imprimir un datagrid

xsara1_9
07 de Agosto del 2004
Hola amigos necesito imprimir todos los datos de un datagrid de la forma más sencilla posible. Muchas gracias

lorenx
07 de Agosto del 2004
esto no imprime un dbgrid, pero te dara una idea de como preparar un "reporte" sin andar con rodeos con el datareport, es simple pero limitado

Private Sub Command1_Click()
Adodc1.RecordSource = Text1.Text 'aqui esta la consulta SQL de select
Adodc1.Refresh ' aqui ejecutas

Printer.ScaleWidth = 2100 'setings de hoja
Printer.ScaleHeight = 2970

'header del reporte
Printer.Print "Nombre" + " " + "Algo"
'aqui se "imprime" en el objeto printer
Do While Not Adodc1.Recordset.EOF
Printer.Print Adodc1.Recordset.Fields(0) + " " + Adodc1.Recordset.Fields(1)
Printer.Print " "
Adodc1.Recordset.MoveNext
Loop
'lo mandas a la impresora
Printer.EndDoc
MsgBox "Impreso"

End Sub

y tantan, eso es lo mas simple, faltan mas cosas
se usa un adodc configurado para usar comando de texto y otras menudencias saludos desde Mexico capital mundial del nopal