이 소스는 프린트 하는 것인디 어떻게 프린트를 하는쥐 설명좀 해주시와여...



지가 보기엔 아쥑 넘넘 어려워서리 ㅠㅠ 지는 아쥑 퀵리포트로 밖에 인쇄를 못해봤는디



이건 넘넘 어렵네여 ㅠㅠ 설명좀 주심 감솨 감솨 하겠습니다....



그럼 이만 휙~







procedure TNbpi025Frm.BitBtn2Click(Sender: TObject);

begin

if (not lcds1.active) or (lcds1.recordcount < 1) then

begin

messagedlg('인쇄불가! 인쇄할 내용이 없습니다.',mterror,[mbok],0);

exit;

end;

if edit1.text = '' then

begin

messagedlg('인쇄불가! 인쇄할 문서를 선택하십시요',mterror,[mbok],0);

exit;

end;

screen.cursor := crHourGlass;

printer.orientation := poLandscape;

printer.title := self.caption + ' ' + lcds1.fieldbyname('문서번호').asstring;

printer.BeginDoc;

case radiogroup1.itemindex of

0:

prEcoDoc1;

1:

prEcoDoc2;

2:

begin

prEcoDoc1;

printer.NewPage;

prEcoDoc2;

end;

end;

Printer.EndDoc;

screen.cursor := crDefault;

messagedlg('ECO 문서 인쇄 완료!',mtinformation,[mbok],0);

dbgrid1.setfocus;

end;