Сохранение установок при просмотре
Сохранение установок сделанных пользователем при просмотре отчета, а именно: принтер, отступы, ориентация, размер бумаги, кол-во копий... все доступные, одним словом. А потом установка их при следующем просмотре...
Интересно где эти все (т.е. не только те что на TfrPrintForm) данные взять и как их потом перед просмотром установить.
(Использую fr2)
Интересно где эти все (т.е. не только те что на TfrPrintForm) данные взять и как их потом перед просмотром установить.
(Использую fr2)
Комментарии
Var
_Or: TPrinterOrientation;
FIFPSSize, FIFPSWidth, FIFPSHeight, FIFPSBin: Integer;
cFIFpgMarginsBottom, cFIFpgMarginsLeft, cFIFpgMarginsRight, cFIFpgMarginsTop: Integer;
cFIFPrinterIndex: Integer;
cFIFUseMargins: boolean;
begin
for i:=0 to _frReport.Pages.count-1 do
with _frReport.Pages do begin
ChangePaper(FIFPSSize, FIFPSWidth, FIFPSHeight, FIFPSBin, _Or);
pgMargins.Bottom := cFIFpgMarginsBottom;
pgMargins.Left := cFIFpgMarginsLeft;
pgMargins.Right := cFIFpgMarginsRight;
pgMargins.Top := cFIFpgMarginsTop;
UseMargins := cFIFUseMargins;
_frReport.ChangePrinter(printer.PrinterIndex, cFIFPrinterIndex);
end;
end;
Посмотрим как понравится тестеру или где...