procedure TppCustomArchiveReader.InitializePrinterSetup; begin
{read the first page in order to set the printersetup default} if not(FPrinterSetupInitialized) or ((FPrinterSetupInitialized) and not(SavePrinterSetup)) then begin
if ReadFirstPage then begin FPrinterSetupInitialized := True;
PrinterSetup := FPage.PrinterSetup; end;
DoOnInitializePrinterSetup; end;
This procedure is called each time in then Print method of TppArchiveReader. And my Archive file has Screen as default printer. It always override my own PrinterSetup parms !
The only way I found to stay with my own PrinterSetup is to set it again in the ArchiveReaderInitializePrinterSetup event, is that normal ?
The printersetup is persistent. It is saved in the report archive file. To change the printer setup for archives you have to use the ArchiveReader.OnInitializePrinterSetup event.
Comments
procedure TppCustomArchiveReader.InitializePrinterSetup;
begin
{read the first page in order to set the printersetup default}
if not(FPrinterSetupInitialized) or
((FPrinterSetupInitialized) and not(SavePrinterSetup)) then
begin
if ReadFirstPage then
begin
FPrinterSetupInitialized := True;
PrinterSetup := FPage.PrinterSetup;
end;
DoOnInitializePrinterSetup;
end;
This procedure is called each time in then Print method of TppArchiveReader.
And my Archive file has Screen as default printer.
It always override my own PrinterSetup parms !
The only way I found to stay with my own PrinterSetup is to set it again in
the ArchiveReaderInitializePrinterSetup event, is that normal ?
Merci
--
Serge Chelli
www.aceinformatique.com
www.cactusvision.com
www.securisave.com
www.e-fastmag.com
www.ipscript.com
"Serge Chelli" a ?crit dans le message de
change the printer setup for archives you have to use the
ArchiveReader.OnInitializePrinterSetup event.
Cheers,
Jim Bennett
Digital Metaphors
http://www.digital-metaphors.com
info@digital-metaphors.com