topsman wrote:

> 퀵리포트에서 StringGrid를 직접 출력하는 방법이 있나요...?

>

> 데이타 양이 많지 않아서...그냥...그 Table 그대로 출력하고 싶은데요...

>

> StringGrid를 출력하는 방법이 있는지...혹은...

>

> 그 데이타를 표 형식으로 출력할 수 있는 다른 방법이 있는지...알고싶네여...

>

> 델파이 쓴지 얼마 안대서...막히는게 많네여...@_@

>

> 답변 좀...^^;;;

>

>

>

>



beforeprint 이벤트에 전역변수를 초기화하시구요

onNeedDate 이벤트에서 스트링그리드를 돌려서 출력하시면 될겁니다..

제가 진행중인 소스 일부분입니다..

당연히 디테일밴드를 만드시구요..

리얼그리드를 사용중이라 일반스트링그리드에서 테스트를 해보지않았지만

잘 될겁니다.. 근데 디비그리드를 말씀하신건 아니죠?



그럼 좋은하루되세요..





procedure TfrmPrint1.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

nRowNo := 0;

end;



procedure TfrmPrint1.QuickRep1NeedData(Sender: TObject;

var MoreData: Boolean);

begin

// 조회폼의 그리드에서 바로 읽어옴

with frmAC308.grdMain do

begin

if nRowNo >= RowCount then

begin

MoreData := False;

end

else

begin

lblAccDate.Caption := Cells[ 0,nRowNo];

lblAccAdmin.Caption := Cells[ 1,nRowNo];

lblJukYo.Caption := Cells[ 2,nRowNo];

lblAmt1.Caption := Cells[ 3,nRowNo];

lblAmt2.Caption := Cells[ 4,nRowNo];

lblAmt3.Caption := Cells[ 5,nRowNo];

lblAccCompany.Caption := Cells[ 7,nRowNo];

end;

if nRowNo < RowCount then

MoreData := True

else

begin

MoreData := False;

end;

Inc(nRowNo);

end;



end;

그런 기능은 없구요.. 그냥

파일 - New를 해보시면 New Item이라는 박스가 뜰겁니다. 거기서



business 텝의 QReport Wizard 라는걸 선택하세요...

이게 리포트를 자동으로 만들어 주는 거거든요???



그런데.. 원하시는 기능은 아마 더 힘들 겁니다.

수고 하세요..

- 하얀까마귀 -