谁在delphi做过可以做定义纸张大小的报表？
小弟现在遇到这个棘手的问题，没法解决，大家有没有做过这个问题？
能否帮一下忙，说说解决办法？
问题点数：0、回复次数：8Top
1 楼lmj2003（雁不归）回复于 2004-12-01 16:46:07 得分 0
可以用QUICKREPORTTop
2 楼seekmydoom（靠灌水混日子）回复于 2004-12-01 16:49:49 得分 0
可以用QUICKREPORT,选定QUICKREPORT.Page.PaperSize=Custom
Top
3 楼ocean617（海洋）回复于 2004-12-01 17:36:46 得分 0
quickrepert 推荐用,以前也弄过一个,呵呵Top
4 楼zhangl_cn（和尚-修行）回复于 2004-12-01 17:56:12 得分 0
ereport中国式报表也很好用的Top
5 楼dh9450（荡尽尘埃）回复于 2004-12-01 19:57:16 得分 0
QR的话在98下可以实现 在2K/XP下就有点麻烦
需要动态定以好打印服务器上的纸的大小或动态选不同纸张Top
6 楼sosopro（随便写点）回复于 2004-12-01 21:27:32 得分 0
如果是2000则好办，自己加一个报表格式就成Top
7 楼darji（成长中... ...）回复于 2004-12-01 21:32:29 得分 0
如何在 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;
Top
8 楼wklx（菜鸟请教）回复于 2004-12-01 22:44:48 得分 0
不好意思,我没有用过Top
