Abrir dialogo para imprimir
 

Basico pero...

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

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,...?

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

¡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.

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);