버튼을 눌렀을때....
procedure TForm1.Button2Click(Sender: TObject);
begin
printer.PrinterIndex := cb1.ItemIndex;
printer.BeginDoc;
with printer.Canvas do begin
pen.mode := pmblack; //흑백으로 출력하고 싶은데 되는지 테스트를 못했습니다.
form1.Print;
end;
printer.EndDoc;
end;
이케 하면 "printing in progress" 라는 메뉴가 뜹니다..
if printer.printing then
//멀해야 할지...
else
form1.print;
그리고 프린트시 폼 크기에 관계없이 A4용지에 크기를 맞출려고 합니다...
아! 가로로 출력해야 하구요..퀵레포트를 쓰면 좋기는 하지만 그럴 상황이 아니어서요..