흠...질문하러 왔다 같은 경험을 해본 아자~ 임니다...^^;



저두 전에 이런 프린팅 플그램을 짜본적이 있지요.....



코딩으룬 자신이 없어서리 퀵레포트루 했지만여....헤헤...



저같으면 > while not eof do 이 부분을 걍



for i:= 0 to pt_qry.RecordCount - 1 do

begin....

....

if i > 7 then

begin

pr2

....



이런식으루 했지여... 참고 하세여~



흠...제가 문제를 잘못 이해 한건 아니겠지여? ^^a





사발우성 wrote:

> 안뇽하신가여 고수님들....

> 프린트에 관해서 질문을 할라구 글올림당..

> 지가여 코딩으로 지금 양식을 맹글었는디.문제가 발생해부럽내여...ㅠㅠ

> 아래의 쿼리를 돌리다가 래코드카운트 이넘이 7 보다 크면

> 다른 양식의 인쇄물에 출력을 해야함당.... 그러니까 갑지,을지 이렇게 두가지로 나누어서 출력하겠다는 말되겠슴당...근디 문제가 발생했음당. ㅠㅠ 어떻게해야 래코드카운트 > 7 이런일이 발생하면 을지출력을 해야하는디.. 어떻게 해야할쥐 감도 안옴당 ㅠㅠ

> 헐 지가 설명을 해놓고두 먼소린쥐 몰겠네여...아튼 다시 정리해서 올리겟음당...

> 일단 이것만 보시고두 답글올려주실 고수님들께 미리 감솨감솨^^;;아래의 소스는 출력물의 일부임당....ㅠㅠ

> ..................................................................................

>

> 청구부서용과 구매부서용은 갑지가 되겠습니당..^^

> page가 1일땐 청구부서용 용지를 찍고 2일땐 구매부서용용지 찍어냄니당..^^;; 지가 원하는건 이넘들이 찍고 그후에 래코드카운트가 7을 넘어서면 을지를 찍는 것임당.. 어떻게 해야할쥐 감이 안오네여 ^^ 지금 을지용지의 출력약식은 procedure pr2(canvas:Tcanvas); 이렇게 프로시져루 맹글어 놨음당....어떻게 하면 이넘을 돌릴수가 있을 까여...ㅠㅠ 어떻게 해야할쥐 감두 안옴당..ㅠㅠ 안튼 말두 안돼는 저의 글 읽어 주셔서 감솨함당...ㅠㅠ

> 구람 이만 휙~~~

>

>

> for page:=1 to 2 do

> begin

> .

> .

> .

> with pr_qry do

> begin

> close;

> sql.Clear;

> close;

> sql.Clear;

> sql.add('select distinct b.품명,b.단위,a.구매량,a.사용예정일,');

> sql.add('c.class,a.계정코드,a.구입사유');

> sql.add('from (gmmaster a inner join 구매품명 b on a.부품번호 = b.item),구매예산 c');

> sql.add('where a.사번 = '''+sa+''' and a.작성일=:now1 and 청구번호='''+edit1.text+''' and a.계정코드=c.계정코드');

> parambyname('now1').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',datetimepicker1.Date));

> prepare;

> open;

>

> x:=0;

> while not eof do

> begin

> x:=x+1;

> textout(450,-488-126*x,fields[0].AsString);

> textout(1225,-488-126*x,fields[1].AsString);

> textout(1380,-488-126*x,fields[2].AsString);

> textout(1462,-488-126*x,fields[3].AsString);

> textout(1670,-448-126*x,fields[4].AsString);

> textout(1670,-510-126*x,copy(fields[5].AsString,1,1));

> textout(1670+50,-510-126*x,copy(fields[5].AsString,2,1));

> textout(1670+100,-510-126*x,copy(fields[5].AsString,3,1));

> textout(1670+150,-510-126*x,copy(fields[5].AsString,4,1));

> textout(1670+200,-510-126*x,copy(fields[5].AsString,5,1));

> if page=1 then

> textout(2050,-488-126*x,fields[6].AsString)

> else

> textout(2005,-488-126*x,fields[6].AsString);

> next;

> end;

> end;

> if page=1 then

> printer.newpage;

> end;

>