왕초보입니다.
프린트가 안돼서리...
프린트 test를 하려고 지극히 단순하게 시도를
하는데 도무지 프린트가 되질 않는군요.
참고로 프린터기는 삼보 LQ-1270H DOT PRINTER입니다.
다음과 같이 코딩을 했습니다.
unit report1;
...
uses ...... Printers;
...
type
...
procedure BtnPrintClick(Sender: TObject);
procedure data_print;
...
procedure TF_REPORT1.BtnPrintClick(Sender: Tobject);
begin
data_print;
end;
procedure data_print;
begin
printer.begindoc;
printer.canvas.textout(20,20,'PRINT TEST PAGE 1');
printer.newpage;
printer.canvas.textout(20,20,'PRINT TEST PAGE 2');
printer.enddoc;
end;
end.
실행을 시키면 프린터헤드만 한번움직이고 영 프린트할 생각을
않는군요.
무엇이 마땅치 않은지 아시는분께 조언을 바랍니다.
|