QRCompositeReport를 이용하는데 겹쳐져서 나오는데.. 각 각 다른 page로 나오는 방법 알려주세요
procedure TSendMailFrm7.SpeedButton1Click(Sender: TObject);
var
TmpNalJa : string;
begin
QRepFrm := TQRepFrm.Create(Self);
try
with QRepFrm do begin
QuickRep1.Page.LeftMargin := 10; //단위 : mm
QuickRep1.Page.RightMargin := 10; //단위 : mm
QuickRep1.Page.TopMargin := 7; //단위 : mm
QuickRep1.Page.BottomMargin := 5; //단위 : mm
QRLabel151.Caption := AdvStringGrid1.Cells[4,XRow];
QRLabel152.Caption := AdvStringGrid1.Cells[3,XRow];
QRLabel153.Caption := Copy(AdvStringGrid1.Cells[6,XRow],1,3) + '-' + Copy(AdvStringGrid1.Cells[6,XRow],4,2)+ '-' + Copy(AdvStringGrid1.Cells[6,XRow],6,5); // 사업자등록
QRLabel154.Caption := Copy(AdvStringGrid1.Cells[5,XRow],1,6) + '-' + Copy(AdvStringGrid1.Cells[5,XRow],7,7); // 법인등록번호
QRLabel155.Caption := AdvStringGrid1.Cells[7,XRow]; // 소재지
QRLabel156.Caption := AdvStringGrid1.Cells[8,XRow]; // 소득자 성명
------------------- 중 략 ----------------------
QRLabel324.Caption := AdvStringGrid1.Cells[170,XRow]; //
end;
QrepFrm.QRCompositeReport1.Preview;
finally
QRepFrm.Free;
end;
end;
위와 같이 사용해서 했지만 1page에 겹쳐서 나옵니다..
첨부내용을 보니 알겠습니다.
QuickReport를 처음 생성시킬때 File - New - Report폼을 생성하셨죠?
그렇게 하지 마시고 일반 폼을 생성시키십시요.
그 일반폼에 상단 QReport탭에서 QuickRep1, QuickRep2를 생성됨 폼에
떨구고서 서식을 그려 넣으십시요.
다음에 QRCompositeReport 컴포넌트를 떨구고 권오근님께서 하시던 방법중
SpeedButton1Click 이벤트에서 아래와 같이 바꾸십시요,
procedure TSendMailFrm7.SpeedButton1Click(Sender: TObject);
begin
try
if frmPrint = Nil then //QuickRep폼이 아닌 일반 회색폼입니다.
frmPrint := TfrmPrint.Create(Self);
------------- 중략(데이타 코딩하십시요) --------------------
frmPrint.QRCompositeReport1.Preview;
finally
frmPrint := Nil;
frmPrint.Free;
end;
end;
QrepFrm부분
procedure TfrmPrint.QRCompositeReport1AddReports(Sender: TObject);
begin
with QRCompositeReport1 do
begin
Reports.add(QuickRep1);
Reports.add(QuickRep2);
end;
end;
한번 해보세요
잘되길 바랍니다.
동일한 내용을 멜 보내드렸습니다.
Marek..