QReport

← →
last (2004-01-19 08:41) [0]

Господа! Подскажите, пожалуйста, можно ли в QReport Delphi5 при выполнении
QReport.Preview
увеличить zoom отчета.

← →
vlgrig1961 (2004-01-19 09:06) [1]

В Before устанавливаешь zoom, а After возвращаешь обратно

procedure TfRepPrint.QRep1BeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean);
var i: integer;
begin
QRep1.Width:=round((QRep1.Width*(100+100-MyZoom))/100);
QRep1.Height:=round((QRep1.Height*(100+100-MyZoom))/100);

ScaleBy(MyZoom,100);
end;

procedure TfRepPrint.QRep1AfterPrint(Sender: TObject);
var i: integer;
begin
i:=round((100*100)/MyZoom);
ScaleBy(i,100);
end;

← →
Johnmen © (2004-01-19 10:56) [2]

>vlgrig1961 (19.01.04 09:06)

AfterPrint для TQuickRep означает дословно то, что написано. "После Печати".
А посему, надо AfterPreview.

Вообще говоря, данный способ несколько вульгарен...:)))

last (19.01.04 08:41)
Сделай свой превью.

QReport Найти похожие ветки