怎样在程序中直接用Tprinter类实现打印？

Question

我在做一打印发票的模块，想直接用Tprinter类实现；象在VB中用printer.print 一样，请高手指点，最好有段例子代码！

Answer 1

procedure TForm1.Button1Click(Sender:TObject);var
  I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
if PrintDialog1.Execute then
  begin
    { determine the range the user wants to print }
    with PrintDialog1 do 
    begin
      if PrintRange = prAllPages then        begin
        Start := MinPage - 1;
        Stop := MaxPage - 1;
      end
      else if PrintRange = prSelection then
      begin
        Start := PageControl1.ActivePage.PageIndex;
        Stop := Start;
        end
      else  { PrintRange = prPageNums }
      begin
        Start := FromPage - 1;
        Stop := ToPage - 1;
      end;
    end;
    { now, print the pages }    with Printer do
    begin
      BeginDoc;
      for I := Start to Stop do
      begin
        PageControl1.Pages[I].PaintTo(Handle, 10, 10);
        if I <> Stop then
          NewPage;
      end;
      EndDoc;
    end;
  end;end;

Answer 2

打印窗体，或者用StretchDraw画也可以。
printer.canvas.CopyRect(printer.cliprect,form1.canvas,form1.canvas.cliprect);

Answer 3

我在窗体上添加PrintDialog控件后，在代码中控件的属性怎么显示不出来呢：
PrintDialog1.后不显示属性?