이경철 wrote:

> 안녕하세요!

>

> Quick Report에서 Preview 할때 화면사이즈를 맘대로 할수

> 있는 방법은 있는지요...

>

> 항상 화면을 가득채워 보기두 싫구 해서 다른 방법을

> 찾고 있습니다!

> 꼭 가르쳐 주시기 바랍니다

>

>

미리보기화면을 만드심이 어떠할지요......



폼에 TQRPreview 컴포넌트를 올려놓으시고.....



퀵리포트컴포넌트의 onPreview 이벤트에 아래와같이 코딩을....

폼명.컴포넌트명.QRPrinter := TQRPrinter(Sender);

예) REPORTPREVIEWFORM.QRPreview1.QRPrinter := TQRPrinter(Sender);



스핀에디트컴포넌트를 배치하고.....

qrpreview1.Zoom := spinedit1.Value; <--- 이렇게 코딩을 하면 미리보기 화면의

사이즈를 조절할 수 가 있지요

물론 스핀에디터의 onChange 이벤트에 코딩이 들어가야겠지요





아래코드는 제가 미리보기화면 만들때 사용한 코드...

(참고가 되시길..)

procedure TREPORTPREVIEWFORM.FormCreate(Sender: TObject);

begin

// 미리보기화면크기를 100

spinedit1.Value := 100;

qrpreview1.Zoom := 100;

end;



procedure TREPORTPREVIEWFORM.firstbtnClick(Sender: TObject);

begin

// 화면의 맨 처음으로 이동

qrpreview1.PageNumber := 1;

end;



procedure TREPORTPREVIEWFORM.priorbtnClick(Sender: TObject);

begin

// 이전 화면으로 이동

with qrpreview1 do

begin

if pagenumber > 1 then

pagenumber := pagenumber-1;

end;

end;



procedure TREPORTPREVIEWFORM.lastbtnClick(Sender: TObject);

begin

// 마지막화면으로 이동

with qrpreview1 do

begin

PageNumber := qrprinter.PageCount;

end;

end;



procedure TREPORTPREVIEWFORM.nextbtnClick(Sender: TObject);

begin

// 다음 화면으로 이동

with qrpreview1 do

begin

if PageNumber < qrprinter.PageCount then

PageNumber := PageNumber+1;

end;

end;



procedure TREPORTPREVIEWFORM.SpinEdit1Change(Sender: TObject);

begin

// 미리보기화면의 사이즈 조정

qrpreview1.Zoom := spinedit1.Value;

end;



procedure TREPORTPREVIEWFORM.zoominbtnClick(Sender: TObject);

begin

// 확대

qrpreview1.ZoomToWidth;

end;



procedure TREPORTPREVIEWFORM.zoomoutbtnClick(Sender: TObject);

begin

// 축소

qrpreview1.ZoomToFit;

end;

너무나 감사합니다!

혹시나 하구 올렸는데 성의있는 가르침

너무나 고맙습니다.

배우는 단계라 자주 연락을 올리도록 하겠습니다.

많이 도와주세요!!



귀하의 발전을 기원합니다