用fastreport的请进,献分100.问题不难.

Question

请问一个问题
fastreport没有自定义纸张大小怎么办? 
我以前好像有的

Answer 1

我是http://www.delphibbs.com/delphibbs/dispq.asp?lid=2559297  
中的方法修改了,为什么连编译都不过呢？？？？？？？？

Answer 2

fastreport报表设计器中，选中page 
在左上角的page1上点击右键，进入Page Options...,可以设置好象是这样的，记不清楚了

Answer 3

PAGESIZE:=256
PAGEWIDTH:2100
PAGEHEIGHTH:970
就可以了。
256代表的是自定义

Answer 4

我是http://www.delphibbs.com/delphibbs/dispq.asp?lid=2559297  
中的方法修改了,为什么连编译都不过呢？
//////////////////////////////////////
确实 有些打印机的驱动里面  自定义纸张的内部编号不是 256 我是修改了 FASTREPORT 的 源码 （FR-PRNTR。PAS）才处理好的 
function TFRPrinterInfo.GetCustomPaperSize: Integer;
Var
   i : Integer ;
   tmp : String ;
begin
  Result := 256;
//  if FPaperSizes.Count > 0 then // 原来的算法默认自定义纸张的类型一定是最后一种 这样是错误的
//    Result := StrToInt(FPaperSizes[FPaperSizes.Count - 1]);
  if FPaperSizes.Count > 0 then // 新算法 按照名称来比较
     For i := 0 to FPaperSizes.Count-1 DO
         Begin
         tmp := UpperCase(FPaperNames[i]);
         IF (POS('CUSTOM',tmp) <> 0)OR(POS('自定义大小',tmp) <> 0) Then  // 打印驱动有中文也有英文哦
            Begin
            Result := StrToInt(FPaperSizes[i]);
            Page_Custom_Index := i ; // 20030310
            Exit ;
            End ;
         End ;
end;

Answer 5

我用的是fastreport2.47+delphi7
加入frReport后
文件\页面设置
在大小选项的最后一项，有自定义选项，然后就可以了在下面自定义高和宽了！否则，可能的原因是没有安装虚拟打印机,或者跟你所使用的打印驱动程序有关！

Answer 6

没人回答自己搞定
用fastreport3.0就有了