PrintDocument no coge el documento para imprimir (.Net 2003)

[Evitxu]

Hola, estoy intentando imprimir un informe en CR XI a través del objeto
PrintDialog, pero algo no debo estar haciendo bien, porque no coge el
documento, siempre saca el cuadro de diálogo en blanco. Os adjunto el código
que he ido recopilando por la web, pero a mí no me funciona, algo estoy
haciendo mal y no lo veo:

Dim lector As StreamReader

Dim printDialog As New PrintDialog

Dim pageSetupDialog As New PageSetupDialog

Dim printDocument As New PrintDocument

pageSetupDialog.PageSettings = New Printing.PageSettings

pageSetupDialog.PrinterSettings = New Printing.PrinterSettings

printDialog.PrinterSettings = New PrinterSettings

printDocument.DocumentName = cr.rutaRpt & strNombreInforme

lector = New StreamReader(printDocument.DocumentName)

printDialog.AllowSomePages = True

AddHandler printDocument.PrintPage, AddressOf printDocument_PrintPage

If printDialog.ShowDialog() = DialogResult.OK Then

printDialog.Document = printDocument

printDocument.PrinterSettings = pageSetupDialog.PrinterSettings
'Impresora escogida

printDocument.Print()

End If

lector.Close()

Private Sub printDocument_PrintPage(ByVal sender As Object, ByVal ev As
PrintPageEventArgs)

End Sub

Espero podáis ayudarme, un saludo

*-* Evitxu *-*

[Evitxu]

Creo saber porqué no me carga nada, mi idea es que cuando se pulse en un
botón llamado "Seleccionar Impresora", se cargue un informe, pero no se
muestra por pantalla, y aparezca el menú de impresión con este documento
para imprimir, pero no me sale ninguno :o(.

¿Alguna idea?

"Evitxu" <evam.do...@gmail.com> escribió en el mensaje
news:euaKnBds...@TK2MSFTNGP02.phx.gbl...

[Evitxu]

Pensaba que podía ser porque el formulario estaba oculto, pero nada, ni aún
visible.

¿Alguna idea? Cualquier ayuda es buena...

Un saludo,

*-* Evitxu *-*

"Evitxu" <evam.do...@gmail.com> escribió en el mensaje
news:euaKnBds...@TK2MSFTNGP02.phx.gbl...

[Alberto Poblacion]

Hola,
No tengo respuesta en cuanto a cómo enviar directamente a impresora un
informe de Crystal Reports sin que pase por pantalla, pero en cambio sí que
puedo explicarte por qué no funciona lo que estás haciendo:

Básicamente, el objeto PrintDocument NO IMPRIME NADA. Lo único que hace es
disparar repetidamente el evento PrintPage después de haber preparado un
objeto Graphics que le llega como argumento al PrintPage. Sobre dicho objeto
Graphics, tienes que ir ejecutando una por una todas las llamadas al GDI+
que dibujan linea por linea el documento que quieres imprimir. Dado que tu
evento Printage está vacío, no es de extrañar que te imprima una página en
blanco.

En tu código veo que intentas asignar el Report a la propiedad DocumentName
del PrintDocument. Esto no sirve para imprimir el Report; la propiedad
DocumentName solo es informativa, y es el texto que sale en el spooler de la
impresora cuando listas los documentos pendientes de imprimir.

"Evitxu" <evam.do...@gmail.com> wrote in message
news:euaKnBds...@TK2MSFTNGP02.phx.gbl...

[Evitxu]

Gracias Alberto por tu aclaración, me has ayudado mucho. Por fin he
conseguido imprimir un documento de texto, pero con el crystalreports nada
de nada, voy a poner otro post a ver si alguien tiene alguna idea.

De nuevo, muchas gracias.

*-* Evitxu *-*

"Alberto Poblacion" <earthling-quitae...@poblacion.org>
escribió en el mensaje news:%23akgPTf...@TK2MSFTNGP02.phx.gbl...