A4 크기의 거래명세표 양식 종이를 도트 프린터에 걸어 인쇄를 하고 있습니다.
이미 거래 명세표 양식이 있기에 데이터만 디테일 밴드로 인쇄하는데
자료가 있는 레코드는 인쇄가 되지만 빈 데이터 부분은 그냥 놔두기가 뭐해서
'이하 여백 '이라는 글자를 인쇄하려고 합니다. 그런데 문제는 맨 처음 공란에만
'===이하 여백===' 글자를 인쇄하고 싶은데, 모든 빈 레코드에 인쇄된다는 것입니다
해결방법은 어떻게 해야 하나요 ?
예제와 소스를 올립니다
제품 번호 제품 이름 수량 단가
100-101 가나다 10 100
100-102 다라마 20 200
=== 이하 여백 ===
이렇게 나와야 하는데, 지금은 요렇게 나오고 있습니다.
제품 번호 제품 이름 수량 단가
100-101 가나다 10 100
100-102 다라마 20 200
=== 이하 여백 ===
=== 이하 여백 ===
=== 이하 여백 ===
procedure TPrtTax.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
with GetPrtTax.Query do
begin
label1.caption := fieldByname('jepum').AsString;
label2.caption := fieldByname('name').AsString;
label3.caption := Formatfloat('#,##',fieldByname('suryang').AsInteger);
label4.caption := Formatfloat('#,##',fieldByname('danga').AsInteger);
end;
with GetPrtTax.Query do
begin
if fieldByName('name').AsString =''
then begin
label2.caption := ' ===이하 여백===';
end;
end;
end;
저의 경우에는 거래명세표 출력시
디테일밴드 아래에 섬머리밴드를 하나 추가하고 섬머리 밴드 안에 레이블을
하나 올리죠 레이블의 캡션은 물론 이하여백이구요..
그런다음 출력시에는
디테일에 출력될 레코드 수와 양식의 행수를 비교하여서 양식의 행수가 많을시에는
섬머리 밴드의 인에이블 속성을 트루로 해주고 아니면 폴스로 하면 디테일밴드의
마지막에 이하여백 이라는 글이 쓰이게 되죠...
많은 도움이 되셨기를...
고수님들의 조언을 기다립니다.
술친구였슴돠...