Angela
10 de Septiembre del 2003

Hola!

Estoy realizando una aplicacion en VB 6.0 que se conecta a una BD de SQL Server 7.0,
lo que quiero es que el usuario pueda imprimir los resultados de una consulta que
aparecen en un control datagrid; ya he intentando usando el control
Microsoft Common Dialog para llamar a la caja de dialogo de imprimir cuando se
hace click en un CommandButton, pero no me ha funcionado;
(¡no se como hacer para imprimir todos los registros del datagrid!)
agradezco mucho a quien me pueda ayudar,
este es el código que estoy usando creo que le hacen falta muchas cosas,
para correrlo solo necesitas un control Microsoft Common Dialog y
un CommandButton sobre el formulario:


Private Sub Command1_Click()
Dim i, primerapagina, ultimapagina, numerodecopias
'Generar un error cuando se pulse cancelar
CommonDialog1.CancelError = True
'Visualizar la caja de dialogo
CommonDialog1.ShowPrinter

'Obtener las propiedades de impresión
primerapagina = CommonDialog1.FromPage
ultimapagina = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies

'Imprimir
For i = 1 To numerodecopias
Printer.Print "Esta línea será enviada a la impresora "
Printer.Print 'No se que debe ir aca
Next i
Printer.EndDoc
End Sub

rafa
10 de Septiembre del 2003

Hola Angela. Puedes usar el printform, pero esto solo te mostraria los resultados que se ven. Para poder imprimir todos tendrias que usar un informe de CrystalReport. O ir haciendo un bucle con todas las lineas del datagrid para imprimirlas una a una

angela
10 de Septiembre del 2003

hola Rafa
muchas gracias por contestar a mi mensaje.
Si es posible podrias enviarme el codigo para hacer un informe de cristalreport, me ayudarias muchisimo.