Magnifico
Román.
He utilizado tu componente y funciona perfecto, simplificando aún más el código.
Nota:
Cuando realizamos la asignación de la impresora como impresora determinada de Windows con la instrucción:
Código Delphi
[-]Printer.PrinterIndex := PrinterIndex;
Debemos del mismo modo asignarla al Quikreport (si es el caso), con la siguiente instrucción
Código Delphi
[-]NombreQuickReport.PrinterSettings.PrinterIndex := PrinterIndex;
Espero esto sirva a tanta gente como neuronas he quemado estos últimos días.