关于ActiveReports的打印问题

[wyj581]

在报表中绑定记录集，显示出结果后，点打印机图标后，出现打印机设置项，我在此处设置打印机纸张后不起作用，只能在“设置”下的相应“打印机”属性设置才有效，为什么？有好的解决方法吗？分可以再加

[wyj581]

版本是1.1的英文版，你有更高版本的么？有的话能否给我一个或告诉我哪里下载？谢谢分不够再给

[acev]

http://www.datadynamics.com/downloads.asp
下载pro版:
ActiveReports 2 pro Manual (pdf format) -->手册
AR2 Pro Service Pack 1 (build 1170) -->sp1
AR 2 Professional fully functional evaluation version -->ar 2(评估)

(估计有13MB)

再把以下存成reg，运行之。

REGEDIT4


[HKEY_CLASSES_ROOT\Licenses\0F60458A-9C91-47CD-9DC9-4C6188C3C498]
@="dy3thxiuioqr452fhgdr4tf"

[HKEY_CLASSES_ROOT\Licenses\9FD745D6-4105-4EAF-B01A-E3F3BE4B3A9D]
@="atxthxiufoqr452fbgdr4if"

[wyj581]

已经下载了，但是.pdf类型文件，我怎么打开呀！需要什么工具？在哪里有？thanks!

[acev]

.pdf请到adobe.com.cn下载一个叫acrobat reader 5.05的软件。

[wyj581]

怎么没人回答？

[acev]

可以在ActiveReport的 file -->page setup... -->print settings里设置。

[wyj581]

to acev(睡眠不足) :
设计器里打开该报表里根本没有你说的那些东东呀！

[acev]

to jsl2263(甘霖雨露) 你用的是什么版本的？
1.0的吧？2.0里就有这个功能。
2.0好用多了，功能也强。

[lbsxyk]

没有人关注吗？大家讨论一下

[lbsxyk]

如果采用是在报表中设置数据集，我已经解决。下面是我解决的代码。
Option Explicit
Dim IsRestart As Boolean
Private Sub ActiveReport_ReportStart()
DataControl1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=XUYINKUI"
DataControl1.Source = "select * from orders"
DataControl1.Refresh
If Not IsRestart Then
Me.Toolbar.Tools.Add ("打印设置")
Me.Toolbar.Tools.Add ("转为Excel")
End If
End Sub

Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
Select Case Tool.Caption
Case "打印设置"
If Me.PageSetup() Then
IsRestart = True
Me.Restart
End If
End Select
End Sub

但是如果我是在外部用set DataControl1=mrsTemp ，这时就不能成功。每一次执行Restart时，记录集就已经变为Nothing。不知如何解决，大家讨论一下，我可以另外开贴给分。

[acev]

to lbsxyk(小娃儿) :
使用New ActiveReport;;;;;;;;;;;;;;;;;;;;;;;;;;

Dim rpt As New arVe
'rpt.LoadLayout App.Path & "\vendor.rpx"
rpt.dataControl.Source = "SELECT * FROM product WHERE pcode='" & Trim(List1.Text) & "'"
rpt.documentName = List1.Text & "产品表"
rpt.Caption = List1.Text & "产品表"
rpt.Show