Q&A

  • Printer 를 이용해 프린트를 하고 싶은데 어떻게해야 하나요?
버튼을 눌렀을때....
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용지에 크기를 맞출려고 합니다...
아! 가로로 출력해야 하구요..퀵레포트를 쓰면 좋기는 하지만 그럴 상황이 아니어서요..
0  COMMENTS