procedure TForm1.Button1Click(Sender: TObject);
begin
printer.begindoc;
Tprinter.canvas.font.size:='10'; 또는 printer.canvas.font.size:='10'; 두가지모두
printer.canvas.textour(100,100,'우리집');
Tprinter.canvas.font.size:='20';또는 printer.canvas.font.size:='20'; 둘모두
printer.canvas.textour(100,100,'우리집');
printer.enddoc;
end;
두번째 textout는 100,400,'우리집' 으로 정정
위와같은 소스를 실행하니 에러가 이를 우짜나요..
각라인마다 폰트를 다르게해서 찍을 방법이
있을 텐데 갈켜주세요...
|