同上,谢谢!

解决方案 »

  1.   

    var
     pt : TPrintWindows ;
    begin
     pt := TPrintWindows.Create(self);
     pt.PrintWindows ;
     pt.Free ;
    end;
      

  2.   

    可以用TPRINTER对象,把CANVAS里的内容赋给TPRINTER。CANVAS然后再打印出来就行了,
      

  3.   

    引用Printers.pas单元
    Printer为当前的打印机对象
    Printer对象也有Canvas属性
    你可以这么做Printer.BeginDoc;
      Printer.Canvas.CopyRect(DestRect,SourceCanvas,SourceRect);
    Printer.EndDoc;