안녕하세요..

더운 여름에 이글을 읽으시고 계시다면 조금이나마 시원하시라고 이부분의 글을 적어봅이다.

본론으로 들어가서 .....

제가 winNT서버에서 공부하면서 만든 퀵레포트의 preview가 잘되는데///

집의 win98환경에서는 처음페이지에서는 헤더부분이 안나오고 조회된 값들만 나오고 그 다음 장부터 헤더부분이 보입니다.....

버그인가요???

알려주시면 고맙겠습니다....

참고로 제가 코딩부분을 적어보겠습니다...



procedure TForm1.bbt_printClick(Sender: TObject);

begin

if g_flag = '' then

begin

lb_bottom_message.Caption := '';

Application.MessageBox('인쇄할 자료가 없습니다.조회후 인쇄하십시오.','확인',MB_IconInformation);

Exit;

end;

qre1.Preview;

end;



procedure TForm1.qre1NeedData(Sender: TObject; var MoreData: Boolean);

begin

IF g_CurrentCount < stg_print.RowCount THEN //스트링그리드에서.....

BEGIN

lb_p_no.Caption := stg_print.Cells[0,g_CurrentCount];

lb_p_date.Caption := FormatMaskText('9999-99-99;0',stg_print.Cells[1,g_CurrentCount]);

lb_p_name.Caption := stg_print.Cells[2,g_CurrentCount];

lb_p_author.Caption := stg_print.Cells[3,g_CurrentCount];

lb_p_copy.Caption := stg_print.Cells[4,g_CurrentCount];

lb_p_scrip.Caption := stg_print.Cells[5,g_CurrentCount];

END;

inc(g_CurrentCount);

MoreData := g_CurrentCount <= stg_print.RowCount;

end;



procedure TForm1.qre1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);

var cnt : integer;

begin

Proc_Print_Clear;

Proc_Query;

cnt := Query1.RecordCount;

if Query1.RecordCount > 0 then

begin

while not Query1.EOF do

begin

stg_print.Cells[0, stg_print.RowCount -1] := Query1.Fields[0].AsString;

stg_print.Cells[1, stg_print.RowCount -1] := Query1.Fields[1].AsString;

stg_print.Cells[2, stg_print.RowCount -1] := Query1.Fields[2].AsString;

stg_print.Cells[3, stg_print.RowCount -1] := Query1.Fields[3].AsString;

stg_print.Cells[4, stg_print.RowCount -1] := Query1.Fields[4].AsString;

stg_print.Cells[5, stg_print.RowCount -1] := Query1.Fields[5].AsString;

stg_print.RowCount := stg_print.RowCount + 1;

Query1.Next;

end;

if stg_print.RowCount > 2 then

stg_print.RowCount := stg_print.RowCount - 1;



g_CurrentCount := 1;

PrintReport := cnt > 0;

end;

end;



이상입니다...

고수님들의 고견을 빨리 듣기를 희망합니다.....꾸벅....