谁在delphi做过可以做定义纸张大小的报表？

Question

小弟现在遇到这个棘手的问题，没法解决，大家有没有做过这个问题？
能否帮一下忙，说说解决办法？

Answer 1

可以用QUICKREPORT,选定QUICKREPORT.Page.PaperSize=Custom

Answer 2

quickrepert 推荐用,以前也弄过一个,呵呵

Answer 3

QR的话在98下可以实现 在2K/XP下就有点麻烦 
需要动态定以好打印服务器上的纸的大小或动态选不同纸张

Answer 4

如何在 Windows NT 和 Windows 2000 中使用自定义页面大小打印:uses WinSpool, Printers, Windows; function CustomAddForm (const Name:String; const Width, Height:Double; const PrinterName:String):Boolean; 
var 
  FormInfo1: TFormInfo1; 
  pFormInfo: PFormInfo1; 
  hPrinter : THandle; 
begin 
  Result := False; 
  if OpenPrinter(PChar(PrinterName),hPrinter,NIL) then 
    begin 
    with FormInfo1 do 
      begin 
      Flags := 0; 
      pName := PAnsiChar(Name); 
      Size.cx := Trunc(Width*1000); 
      Size.cy := Trunc(Height*1000); 
      ImageableArea.Left := 0; 
      ImageableArea.Top := 0; 
      ImageableArea.Bottom := Size.cy; 
      ImageableArea.Right := Size.cx; 
      end; 
    pFormInfo := @FormInfo1; 
    Result := AddForm(hPrinter,1,pFormInfo); 
    ClosePrinter(hPrinter); 
    end; 
end;