高分求解!!!(关于Delphi报表)分数可以再加???

Question

你的要求就不能用QUICKREPORT
用TPRINTER 吧，一般打发票之类的都不错。
如果需要源码，请来信[email protected]

Answer 1

用TPrinter类型的对象，但是记住，不要自己创建这种类型的对象，应当使用全局变量Printer，这个变量代表一个TPrinter类型的对象，不这么做，你用TPrinterDialog之类的对话框设置的打印机属性都无法变得有效。此外请注意打印机的分辨率，这会影响你打印的文稿的实际大小，取得这个分辨率，可以这么做，首先，Printer.BeginDoc，然后获取Printer.Canvas的分辨率,随便你用WinAPI还是Canvas的属性，好像是PixelPerInch，计算后在确定要输出的文稿大小，（文稿大小是用点来度量的）。猪你好运，我花了很长时间才实现了所见即所得。

Answer 2

BlueTrees(蜗牛)老兄能否给我源码？？？？　 

Answer 3

注意要USE Printers单元
以下是一个很简单的例子，希望对你有帮助
给分，给分，给分procedure TfrmFP.PrintPage;
var
  i:Integer;
  PC: TCanvas;
begin
  Printer.BeginDoc;
  PC:=Printer.Canvas;
  PC.Font.Name:='宋体';
  PC.Pen.Width:=1;
  PC.Pen.Style:=psSolid;
  PC.Pen.Color:=clBlack;
  ......
  PC.TextOut(60,120,'合计:'+EDHJ.Caption);
  PC.TextOut(100,160 ,EDSUO.Caption);
  Printer.EndDoc;
end;