FastReport 在Windows2000和XP下不支持自定义纸张。(100分)

  • 主题发起人 主题发起人 jinggangplm
  • 开始时间 开始时间
J

jinggangplm

Unregistered / Unconfirmed
GUEST, unregistred user!
FastReport 在Windows2000和XP下不支持自定义纸张。
怎样才能在让FastReport 2.5 在Win2000和XP下支持自定义纸张.
我过去一直用 QuickReport 3.62 就支持,
我在用过修改过的,但只是表面上可以设置了,可实际上还是无法使用.
请问大虾们有没有最新的版本,或有什么方法可以解决.
 
可以呀.
我的win2k,能將紙張設成任意大小.
 
只是在一部分打印机行,如从ESPON 1600K 改为其它打印机,就不行了。
 
有這事?
我用噴墨的是行的.
關注
 
可以的,你看你的设置或值系统是否有问题
 
你用的什么型号的打印机,我的HP的就不行。
我用没修改过的FR2.5连自定义功能就打不开,用了修改的才可以打开,但是不起作用啊,
设好了一改变打印机,又回去了。
2.51的我也试过,也不行。是不是FR的打印模块有问题,ACReport及Report Machine 3.0都有这个问题。
但为何QuickReport和Report Bulider Enterprise 7.03就没问题?
 
确实 有些打印机的驱动里面 自定义纸张的内部编号不是 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-1do
begin
tmp := UpperCase(FPaperNames);
IF (POS('CUSTOM',tmp) <> 0)OR(POS('自定义大小',tmp) <> 0) then
// 打印驱动有中文也有英文哦
begin
Result := StrToInt(FPaperSizes);
Page_Custom_Index := i ;
// 20030310
Exit ;
End ;
End ;
end;
 
mstar, : 牛人啊,以前怎么不知道啊!!!
也有可能是打印机的驱动没有装正确,以前我碰到N次,EPSON1600的最好用
 
历害啊,老大给你加分!!![:)][:)]
 
mstar:可不可以把你改好了的FR-PRNTR.PAS给我一份啊,我改了还是不对![8D]
 
后退
顶部