안녕하세요?
질문 한가지 하겠습니다.
Printer.Begindoc;
Printer.canvas.font.name := '3 of 9 Barcode';
Printer.canvas.font.size := 18;
Printer.canvas.textout(10,10, '*200307031010045*');
Printer.Enddoc;
요렇게 출력을 할려고 합니다.
간단하게 숫자들을 바코드화해서 인쇄할려고요....
그런데 문제가 출력시 프린터에 셋팅되어있는 용지만큼 skip되어
버리는 군요.
예를들어 1줄을 찍어도,나머지는 빈란으로 설정되어있는종이만큼
skip되어 버리고요....
1줄찍고 멈추고, 5줄찍고 멈추고 요렇게 할수 있을까요?
답변좀 해주세요
감사합니다.
printer object를 사용하여 출력을하면 Enddoc에서 말씀하신대로
page skip이 됩니다..
Dot 프린터나 Dot 프린터처럼 연속 용지를 사용하는 프린터에서는
과거에 몇줄만 찍고 멈춘 기억이 있는데....
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
begin
assignFile(F, 'prn');
rewrite(F);
writeln(F, '1111');
closefile(F);
end;
위와 비슷하게 한것 같습니다...
저도 프린터가 없어서 실험을 해볼수는 없군요...
성공하시길...