Abrir dialogo para imprimir

[MAXIUM]

Basico pero...

¿Como hago para abrir un dialogo, seleccionar impresora e imprimir el documento abierto?

[Neftali [Germán.Estévez]]

Los diálogos de imprimir que hay en la pestaña de diálogos, sólo sirven para seleccionar la impresora y características de impresión, pero no imprimen.

Con ese diálogo tienes el nombre de la impresora a utilizar.

"Imprimir el documento abierto" dependerá de qué documento tengas abierto y los métodos de impresión que tenga. ¿A qué te refieres con documento abierto? ¿Es un report? ¿Es un documento en una aplicación externa, Word, Adobe Reader,...?

[[ElKurgan]]

Si es lo que yo estoy pensando, entonces me viene bien también cualquier respuesta. En mi caso, se trata de pasar una impresora determinada a QuickReport y que lance los informes por ella. La impresora la selecciono desde un formulario, abriendo el PrinterDialog, pero no sé pasar la impresora deseada al informe

Gracias y un saludo

[[ElKurgan]]

¡Joer! ¡Si es que está uno a lo que no está!.

Me respondo a mi mismo:

Ejecuto el diálogo de selección de impresoras en el formulario, y antes de lanzar el QuickReport le paso el índice de la impresora actual:

uses Printers;

ReportForn.QuickRep1.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

Un saludo a todos y mis disculpas.

[MAXIUM]

En Excel

Código Delphi [-]
Dialogo:= xlDialogPrint;
ExcelApplication1.Dialogs.Item[Dialogo].Show(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam
                                                 , EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam
                                                 , EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam
                                                 , EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

En Word

Código Delphi [-]
Dialogo:= wdDialogFilePrint;
WordApplication1.Dialogs.Item(Dialogo).Show(EmptyParam);