한페이지에 12개씩 입력하느라고 다음과 같이 코딩했는데......이상하게 안되네여..
모니터와 프린터에서 값이 다르게 나와여...
모니터에서는 1번부터 순서대로 나오는데....(예를들어 모니터에서는 첫장에 "김동수:1번" 이렇게 나오는데 프린트하면 "김동수:7번" 이런식으로 다르게 나옵니다.
idx는 폼크리에이트할때 선언하고 1을 대입해 주었습니다.
procedure Tfrm_hjbs021r.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel34.Caption := IntToStr(idx);
if QRLabel34.Caption='1' then
begin
quickrep1.NewPage;
end;
inc(idx);
if idx=13 then idx:=1;
end;
quickreport의 beforePrint 함수안에다가
idx := 0;
을 넣어주세요.
김동수 wrote:
> 한페이지에 12개씩 입력하느라고 다음과 같이 코딩했는데......이상하게 안되네여..
> 모니터와 프린터에서 값이 다르게 나와여...
> 모니터에서는 1번부터 순서대로 나오는데....(예를들어 모니터에서는 첫장에 "김동수:1번" 이렇게 나오는데 프린트하면 "김동수:7번" 이런식으로 다르게 나옵니다.
> idx는 폼크리에이트할때 선언하고 1을 대입해 주었습니다.
> procedure Tfrm_hjbs021r.DetailBand1BeforePrint(Sender: TQRCustomBand;
> var PrintBand: Boolean);
> begin
> QRLabel34.Caption := IntToStr(idx);
> if QRLabel34.Caption='1' then
> begin
> quickrep1.NewPage;
> end;
> inc(idx);
> if idx=13 then idx:=1;
> end;