水晶报表的问题（大概很简单的）

[akacheng]

各位大哥请了，我有个问题请教大家，因为我接了另一个同事的工作，而我没用过水晶报表，所以都不大明白。

问题是这样的，在程序里引用了crystl32.ocx，他是在类模块里统一做的打印，做了10个函数，每个的代码都大致一样，如下，可是，有几个是好的，有两个却在运行时报错，提示属性只读，调试时停在cryRep.ReportFileName 这步，单步执行到cryRep.Action = 1 时，提示框出现，说属性只读。可是另一个报表除了用的模板不同之外，代码都一样，却可以正常显示，我真的不明白为什么，请大家帮帮我好么？

开发环境是win2000 pre，VB6中文，水晶8.0
是和版本有关系吗？
而且，把程序拿到我这里根本就一个也出不来了，我的是win 2000 server，中文vb6

以下是报错的一段代码

Dim cryRep As CrystalReport

cryRep.Connect = "Dsn=" & ODBC1Val
cryRep.ReportFileName = App.Path & "\cry06.rpt"

ClearCryParameters cryRep

cryRep.ParameterFields(0) = "Rate;" & GetSysDiscount / 100 & ";true"
cryRep.ParameterFields(1) = "aYear;" & aYear & ";true"
cryRep.ParameterFields(2) = "aMonth;" & aMonth & ";true"

cryRep.Destination = crptToPrinter
cryRep.Action = 1

Set cryRep = Nothing

[akacheng]

我等待，我在线，我哭泣！！

[胡楮智]

那就用.PrintReport代替cryRep.Action = 1试试！！！！

[akacheng]

谢谢，我去看看。
说实话，我真的不喜欢这个东西，用户又不能自己再行修正。
也许还是我不会而又太懒没学的缘故罢！

[akacheng]

可是刚才试的时候，在我的机子上倒是不报错了，可是却什么也没出来。
二去同事的那个机子，却连系统也进不去了，是水晶的控件报错了，我换，注册，打开记事本换新的，都没用了，我真被它搞倒了！

[akacheng]

现在是在cryRep.ReportFileName = App.Path & "\cry06.rpt" 是提示此方法失败，再又是action方法失败，欢乐还是没有用。
救命啊！

[胡楮智]

现在是在cryRep.ReportFileName = App.Path & "\cry06.rpt" 是提示此方法失败
不会把，这是属性赋值，跟方法何干？？？

找找别的原因！！！千万别急！！！