Hola lbidi,
Efectivamente tienes razón, Prueba con esto otro, está funciona correctamente
Código Delphi [-]...
var
IDDefault: Integer;
begin
IDDefault := Printer.PrinterIndex;
QuickRep1.PrinterSettings.PrinterIndex := IDDefault;
QuickRep1.PreviewModal;
Printer.PrinterIndex := IDDefault;
end;
Un saludo
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Última edición por olbeup fecha: 26-03-2012 a las 08:51:14.
|