안녕하세요..

두개의 레포트를 composite을 하려고 하는데요...

미리보기를 하면 제대로 출력이 되는데요...

프린터로 출력을 하게되면, 출력이 제대로 안돼고 크기가 작게 출력이 되는데요...

이유를 모르겠어요.

이유를 아시면, 대답을 해주십시오.

빠를수록 좋습니다.

그럼, 행복하세요.

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



음냐...아래의 내용을 참고하세요...쩝

대충 비슷하긴 한데....

근데 이런 코드 어디 쓰이는 건지...요 알려 주세요 궁금.......^^;



procedure TForm1.Button2Click(Sender: TObject);

begin

btn_click := True;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

i,j : integer;



begin

j := 0;

for i := 0 to 5 do begin

try

inc(j);

showmessage('^^1');

finally

While not btn_click do

Application.ProcessMessages;

end;

showmessage('^^2');

btn_click := False;

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

btn_click := False;

end;

김성희 께서 말씀하시기를...

> 안녕하세요..

> 두개의 레포트를 composite을 하려고 하는데요...

> 미리보기를 하면 제대로 출력이 되는데요...

> 프린터로 출력을 하게되면, 출력이 제대로 안돼고 크기가 작게 출력이 되는데요...

> 이유를 모르겠어요.

> 이유를 아시면, 대답을 해주십시오.

> 빠를수록 좋습니다.

> 그럼, 행복하세요.



김성희님 안녕하세요?

아래는 예전에 보았던 권용길님의 글입니다.

보시고 도움되셨으면 좋겠네요.



퀵리포트에서 여러 폼을 차례로 출력하기(합치기)

여러 Report들을 하나로 합치기 위해서는 QRCompositeReport

컴포넌트를 사용하시면 되지요.

사용방법은 QRCompositeReport의 OnAddReports이벤트에 합치기를 원하는 다른

Report들을 Add하시면 됩니다.

아래는 그 예입니다.





with QRCompositeReport1 do

begin

Reports.Add(Form2.QuickRep1);

Reports.Add(Form3.QuickRep1);

end;





그리고 두번째 Report의 내용이 시작될 때, 새로운 Page에 출력

되게 하려면 첫번째 Report Detail Band의 AfterPrint이벤트에

다음과 같이 작성하셔야 합니다.





Table1.Next;

if Table1.Eof then

QuickRep1.NewPage

else

Table1.Prior;

구창민님 답변 감사합니다.

음..

하지만...

composite을 사용을 하고 나서 프린터로 프린트했을경우 제대로 출력이 되지 않는다는것이 문제가 되는것입니다.

음..또 하지만...

composite을 사용한 분의 이름을 가르쳐주셔서 직접 물어볼수 있게되어 감사드립니다.

그럼.. 행복하세요.

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



참고로 루프내에서는 프로세서를 독차지 하지 않도록...



Application.ProcessMessage 라는 구문을 넣어주어야 전체적으로 매끄러워 집니다.

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



안녕하세요.



그런식으로 하시지 말고요. 음..예를 들면 전역적으로 몇번이나 버턴을 눌렀는가를 저장하는 변수를 만들어 해결하시는게 더 좋지 않을까요.