1188
社区成员
關於ActiveReport2.0
1、在ActiveReport2.0中怎樣生成*.rpx報表模板文件，它好象沒有水晶報表哀9.0那樣的設計器是嗎，那怎樣生成*.rpx文件？
2、在VB中怎樣調用*.rpx的模板文件，謝謝！
大俠有空請寄一例到newparadise@sina.com，謝謝！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
axer 2004-09-26
3、至于rpx文件，你可以用记事本新建一个空的文本文件，改名，存为fmt01.rpx，放到你刚保存的vb工程目录下面，粘如下代码：
<?xml version="1.0" encoding="UTF-8" ?>
<ActiveReportsLayout
GUIDLIB="{00000000-0000-0000-0000-000000000000}" GUIDREP="{00000000-0000-0000-0000-000000000000}"
LICENSE="10000000"
PrintWidth="9780"
DocumentName="ActiveReports Document"
ScriptLang="VBScript"
>
<Watermark
>
</Watermark>
<PageSettings>
</PageSettings>
<StyleSheet>
<Style Name="Normal"
Value="font-family: 'Arial'; font-style: normal; font-variant: inherit; font-weight: normal; font-size: 10pt; font-size-adjust: inherit; font-stretch: inherit; color: rgb(0,0,0); background-color: rgb(255,255,255); background-image: inherit; background-repeat: inherit; background-attachment: inherit; background-x-position: inherit; background-y-position: inherit; opacity: inherit; word-spacing: inherit; letter-spacing: inherit; text-decoration: none; vertical-align: inherit; text-transform: inherit; text-align: inherit; text-indent: inherit; unicode-bidi: inherit; line-height: inherit; white-space: inherit; ddo-can-grow: inherit; ddo-can-shrink: inherit; ddo-char-set: 0; "
/>
<Style Name="Heading1"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 16pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading2"
Value="font-family: 'Times New Roman'; font-style: italic; font-variant: inherit; font-weight: bold; font-size: 14pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading3"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 13pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading4"
/>
</StyleSheet>
<Sections>
<Section Type="PageHeader" Name="标题"
Height="0"
>
</Section>
<Section Type="Detail" Name="内容"
Height="2280"
>
<Control
Type="AR.Label"
Name="tsuser"
Left="850"
Top="709"
Width="1134"
Height="283"
Caption="label1111"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 14pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="tstel"
Left="850"
Top="1276"
Width="2552"
Height="283"
Caption="test2"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 14pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="truser"
Left="3827"
Top="709"
Width="2126"
Height="283"
Caption="label 2"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 14pt; color: rgb(0,0,255); text-align: left; "
>
</Control>
<Control
Type="AR.Label"
Name="trtel"
Left="3969"
Top="1417"
Width="1842"
Height="284"
Caption="df北京gfgd"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
</Section>
<Section Type="PageFooter" Name="尾注"
Height="0"
>
</Section>
</Sections>
</ActiveReportsLayout>
fmt02.rpx 同样，粘如下代码：
<?xml version="1.0" encoding="UTF-8" ?>
<ActiveReportsLayout
GUIDLIB="{00000000-0000-0000-0000-000000000000}" GUIDREP="{00000000-0000-0000-0000-000000000000}"
LICENSE="10000000"
PrintWidth="9780"
DocumentName="ActiveReports Document"
ScriptLang="VBScript"
>
<Watermark
>
</Watermark>
<PageSettings>
</PageSettings>
<StyleSheet>
<Style Name="Normal"
Value="font-family: 'Arial'; font-style: normal; font-variant: inherit; font-weight: normal; font-size: 10pt; font-size-adjust: inherit; font-stretch: inherit; color: rgb(0,0,0); background-color: rgb(255,255,255); background-image: inherit; background-repeat: inherit; background-attachment: inherit; background-x-position: inherit; background-y-position: inherit; opacity: inherit; word-spacing: inherit; letter-spacing: inherit; text-decoration: none; vertical-align: inherit; text-transform: inherit; text-align: inherit; text-indent: inherit; unicode-bidi: inherit; line-height: inherit; white-space: inherit; ddo-can-grow: inherit; ddo-can-shrink: inherit; ddo-char-set: 0; "
/>
<Style Name="Heading1"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 16pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading2"
Value="font-family: 'Times New Roman'; font-style: italic; font-variant: inherit; font-weight: bold; font-size: 14pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading3"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 13pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading4"
/>
</StyleSheet>
<Sections>
<Section Type="PageHeader" Name="标题"
Height="0"
>
</Section>
<Section Type="Detail" Name="内容"
Height="2280"
>
<Control
Type="AR.Label"
Name="tsuser"
Left="850"
Top="709"
Width="1134"
Height="283"
Caption="label1"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="tstel"
Left="850"
Top="1276"
Width="2552"
Height="283"
Caption="wd2352wrwf"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="truser"
Left="3827"
Top="709"
Width="2126"
Height="283"
Caption="label 2"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); text-align: left; "
>
</Control>
<Control
Type="AR.Label"
Name="trtel"
Left="3969"
Top="1417"
Width="1842"
Height="284"
Caption="dffgdgdgfgd"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
</Section>
<Section Type="PageFooter" Name="尾注"
Height="0"
>
</Section>
</Sections>
</ActiveReportsLayout>
就可以了。
<?xml version="1.0" encoding="UTF-8" ?>
<ActiveReportsLayout
GUIDLIB="{00000000-0000-0000-0000-000000000000}" GUIDREP="{00000000-0000-0000-0000-000000000000}"
LICENSE="10000000"
PrintWidth="9780"
DocumentName="ActiveReports Document"
ScriptLang="VBScript"
>
<Watermark
>
</Watermark>
<PageSettings>
</PageSettings>
<StyleSheet>
<Style Name="Normal"
Value="font-family: 'Arial'; font-style: normal; font-variant: inherit; font-weight: normal; font-size: 10pt; font-size-adjust: inherit; font-stretch: inherit; color: rgb(0,0,0); background-color: rgb(255,255,255); background-image: inherit; background-repeat: inherit; background-attachment: inherit; background-x-position: inherit; background-y-position: inherit; opacity: inherit; word-spacing: inherit; letter-spacing: inherit; text-decoration: none; vertical-align: inherit; text-transform: inherit; text-align: inherit; text-indent: inherit; unicode-bidi: inherit; line-height: inherit; white-space: inherit; ddo-can-grow: inherit; ddo-can-shrink: inherit; ddo-char-set: 0; "
/>
<Style Name="Heading1"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 16pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading2"
Value="font-family: 'Times New Roman'; font-style: italic; font-variant: inherit; font-weight: bold; font-size: 14pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading3"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 13pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading4"
/>
</StyleSheet>
<Sections>
<Section Type="PageHeader" Name="标题"
Height="0"
>
</Section>
<Section Type="Detail" Name="内容"
Height="2280"
>
<Control
Type="AR.Label"
Name="tsuser"
Left="850"
Top="709"
Width="1134"
Height="283"
Caption="label1111"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 14pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="tstel"
Left="850"
Top="1276"
Width="2552"
Height="283"
Caption="test2"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 14pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="truser"
Left="3827"
Top="709"
Width="2126"
Height="283"
Caption="label 2"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 14pt; color: rgb(0,0,255); text-align: left; "
>
</Control>
<Control
Type="AR.Label"
Name="trtel"
Left="3969"
Top="1417"
Width="1842"
Height="284"
Caption="df北京gfgd"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
</Section>
<Section Type="PageFooter" Name="尾注"
Height="0"
>
</Section>
</Sections>
</ActiveReportsLayout>
fmt02.rpx 同样，粘如下代码：
<?xml version="1.0" encoding="UTF-8" ?>
<ActiveReportsLayout
GUIDLIB="{00000000-0000-0000-0000-000000000000}" GUIDREP="{00000000-0000-0000-0000-000000000000}"
LICENSE="10000000"
PrintWidth="9780"
DocumentName="ActiveReports Document"
ScriptLang="VBScript"
>
<Watermark
>
</Watermark>
<PageSettings>
</PageSettings>
<StyleSheet>
<Style Name="Normal"
Value="font-family: 'Arial'; font-style: normal; font-variant: inherit; font-weight: normal; font-size: 10pt; font-size-adjust: inherit; font-stretch: inherit; color: rgb(0,0,0); background-color: rgb(255,255,255); background-image: inherit; background-repeat: inherit; background-attachment: inherit; background-x-position: inherit; background-y-position: inherit; opacity: inherit; word-spacing: inherit; letter-spacing: inherit; text-decoration: none; vertical-align: inherit; text-transform: inherit; text-align: inherit; text-indent: inherit; unicode-bidi: inherit; line-height: inherit; white-space: inherit; ddo-can-grow: inherit; ddo-can-shrink: inherit; ddo-char-set: 0; "
/>
<Style Name="Heading1"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 16pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading2"
Value="font-family: 'Times New Roman'; font-style: italic; font-variant: inherit; font-weight: bold; font-size: 14pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading3"
Value="font-family: 'inherit'; font-style: inherit; font-variant: inherit; font-weight: bold; font-size: 13pt; font-size-adjust: inherit; font-stretch: inherit; "
/>
<Style Name="Heading4"
/>
</StyleSheet>
<Sections>
<Section Type="PageHeader" Name="标题"
Height="0"
>
</Section>
<Section Type="Detail" Name="内容"
Height="2280"
>
<Control
Type="AR.Label"
Name="tsuser"
Left="850"
Top="709"
Width="1134"
Height="283"
Caption="label1"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="tstel"
Left="850"
Top="1276"
Width="2552"
Height="283"
Caption="wd2352wrwf"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
<Control
Type="AR.Label"
Name="truser"
Left="3827"
Top="709"
Width="2126"
Height="283"
Caption="label 2"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); text-align: left; "
>
</Control>
<Control
Type="AR.Label"
Name="trtel"
Left="3969"
Top="1417"
Width="1842"
Height="284"
Caption="dffgdgdgfgd"
ClassName="Normal"
Style="font-family: '宋体'; font-size: 12pt; color: rgb(0,0,255); "
>
</Control>
</Section>
<Section Type="PageFooter" Name="尾注"
Height="0"
>
</Section>
</Sections>
</ActiveReportsLayout>
就可以了。
axer 2004-09-26
很简单的，步骤如下：
1、新建vb工程，部件里选取arp的那个runtime designer，保存工程；不要更改form1的默认名称；
2、在form1上放3个command button，也不要改默认名字；
、用记事本打开form1.frm，把下面代码粘进去：
VERSION 5.00
Object = "{E281C260-6F27-11D1-8AF0-00A0C98CD92B}#2.0#0"; "ardespro2.dll"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 7065
ClientLeft = 60
ClientTop = 345
ClientWidth = 9180
LinkTopic = "Form1"
ScaleHeight = 7065
ScaleWidth = 9180
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
Caption = "Close"
Height = 375
Left = 2640
TabIndex = 2
Top = 120
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "Load Rpx2"
Height = 375
Left = 1320
TabIndex = 1
Top = 120
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Load Rpx1"
Height = 375
Left = 0
TabIndex = 0
Top = 120
Width = 1335
End
Begin DDActiveReportsDesignerCtl.ARDesigner ARD
Height = 8415
Left = 0
TabIndex = 3
Top = 600
Width = 8655
_ExtentX = 15266
_ExtentY = 14843
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
rpt.LoadLayout (App.Path & "\fmt01.rpx")
ARD.LoadFromObject rpt
End Sub
Private Sub Command2_Click()
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
rpt.LoadLayout (App.Path & "\fmt02.rpx")
ARD.LoadFromObject rpt
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
ARD.LoadFromObject rpt
End Sub
1、新建vb工程，部件里选取arp的那个runtime designer，保存工程；不要更改form1的默认名称；
2、在form1上放3个command button，也不要改默认名字；
、用记事本打开form1.frm，把下面代码粘进去：
VERSION 5.00
Object = "{E281C260-6F27-11D1-8AF0-00A0C98CD92B}#2.0#0"; "ardespro2.dll"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 7065
ClientLeft = 60
ClientTop = 345
ClientWidth = 9180
LinkTopic = "Form1"
ScaleHeight = 7065
ScaleWidth = 9180
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
Caption = "Close"
Height = 375
Left = 2640
TabIndex = 2
Top = 120
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "Load Rpx2"
Height = 375
Left = 1320
TabIndex = 1
Top = 120
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Load Rpx1"
Height = 375
Left = 0
TabIndex = 0
Top = 120
Width = 1335
End
Begin DDActiveReportsDesignerCtl.ARDesigner ARD
Height = 8415
Left = 0
TabIndex = 3
Top = 600
Width = 8655
_ExtentX = 15266
_ExtentY = 14843
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
rpt.LoadLayout (App.Path & "\fmt01.rpx")
ARD.LoadFromObject rpt
End Sub
Private Sub Command2_Click()
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
rpt.LoadLayout (App.Path & "\fmt02.rpx")
ARD.LoadFromObject rpt
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
ARD.LoadFromObject rpt
End Sub
axer 2004-09-24
'工具栏事件
Private Sub ABar_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
'显示字体等工具
ARD.ToolbarsVisible = ddTBPropertyToolbox
ARD.ToolbarsAccessible = ddTBPropertyToolbox
Select Case Tool.Name
Case "named": '重命名
rename.Show 1
Case "reload": '
rpt.LoadLayout (App.Path & "\exfmt\fmt00.rpx")
ARD.LoadFromObject rpt
Case "options" '选项设置
F_DSG.Show 1
Case "save": '保存格式
If Len(Trim(fmtlist.Cell(flexcpText, fmtlist.RowSel, 1))) = 0 Then '如果别名为空，不保存
MsgBox Prompt:="尚未指定格式名称，无法保存！", Buttons:=vbOKOnly + vbExclamation, Title:="系统提示"
Else
ARD.SaveToObject rpt
rpt.SaveLayout App.Path & "\exfmt\" & fmtlist.Cell(flexcpText, fmtlist.RowSel, 2), ddSOFile
End If
Case "print": '
rpt.LoadLayout (App.Path & "\exfmt\" & fmtlist.Cell(flexcpText, fmtlist.RowSel, 2))
ARD.LoadFromObject rpt
ARD.Report.PrintReport True
Case "quit": '
Unload Me
End Select
End Sub
以前一个项目的,保存,载入都有了.
Private Sub ABar_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
Dim rpt As DDActiveReports2.ActiveReport
Set rpt = New ActiveReport
'显示字体等工具
ARD.ToolbarsVisible = ddTBPropertyToolbox
ARD.ToolbarsAccessible = ddTBPropertyToolbox
Select Case Tool.Name
Case "named": '重命名
rename.Show 1
Case "reload": '
rpt.LoadLayout (App.Path & "\exfmt\fmt00.rpx")
ARD.LoadFromObject rpt
Case "options" '选项设置
F_DSG.Show 1
Case "save": '保存格式
If Len(Trim(fmtlist.Cell(flexcpText, fmtlist.RowSel, 1))) = 0 Then '如果别名为空，不保存
MsgBox Prompt:="尚未指定格式名称，无法保存！", Buttons:=vbOKOnly + vbExclamation, Title:="系统提示"
Else
ARD.SaveToObject rpt
rpt.SaveLayout App.Path & "\exfmt\" & fmtlist.Cell(flexcpText, fmtlist.RowSel, 2), ddSOFile
End If
Case "print": '
rpt.LoadLayout (App.Path & "\exfmt\" & fmtlist.Cell(flexcpText, fmtlist.RowSel, 2))
ARD.LoadFromObject rpt
ARD.Report.PrintReport True
Case "quit": '
Unload Me
End Select
End Sub
以前一个项目的,保存,载入都有了.
paradise885 2004-09-22
up
paradise885 2004-09-22
who can tell me?
paradise885 2004-09-21
我已經知道怎樣生成*.rpx的文件，但是不知道在vb中怎樣調用*.rpx,
請大俠指點！
請大俠指點！
2910495aaa 2004-09-21
各位不好意思，我是新来的，楼下的能不能告诉我怎摸发问？小类社区在那？
wumylove1234 2004-09-21
我也感觉 不清楚.Rpx只有控件,没有代码.
不知如何搞.
不知如何搞.
axer 2004-09-21
arp2.0也有几个版本，设计器在专业版里面有，标准版里是没有的。安装完专业版在vb里面会有一个runtimedisigner，他的save和load就是rpx文件。rpx文件实际上就是一个xml文件，你用记事本可以打开，如果不用arp的设计器的话，理论上可以用些文本的方式按照他的格式自己生成一个，存成rpx扩展名，应该也可以使用的。
关于ActiveReport报表 -- 页面设置 文档大小 以前一直在VB中使用此控件ActiveReport(简称：AR),当然还没有现在的版本.后来改用C#,又接触了一上这个控件.网上也有人把现在流得的一些打印件做了一些比较,可以去搜搜看. 当然如果要做一些太专业的报表,它可能不是...
ActiveReport系列报表开发随笔收集 使用ActiveReport for .net 进行报表开发（一）--开始 ActiveReport是.net下的一个出色的报表开发程序，虽然和水晶报表相比，名气不那么大，甚至有很多人不知道它的存在，但是并不妨碍它在.net...
ActiveReport for .net 2.0的一点问题 本来做报表最初打算使用CrystalRports的，...经过选择，选用了ActiveReport for .net 2.0，它多了两个吸引人的功能，CacheToDisk和支持IList接口的数据，尽管它功能不够强大，还是选用了它。 后来还是发现其两个特别
折腾报表那些事儿（2）ActiveReport 上一篇说了我用RDLC中遇到的一些问题，在我...其中需要将以前用的ActiveReport也改成网上打印，而且是套打。 于是新的问题又来了 1 什么是ActiveReport？ 2什么是套打，如何实现？ 3如何用在WEB上面，是否又和RDL...
使用ActiveReport for .net 进行报表开发
使用ActiveReport for .net 进行报表开发（一）--开始
ActiveReport 是.net下的一个出色的报表开发程序，虽然和水晶报表相比，名气不那么大，甚至有很多人不知道它的存在，但是并不妨碍它在.net报表开发...
ActiveReports 2.0 for .net With Crack (vs 2003) 破解声明：我的破解仅用于研究，请勿用于商业用途，需要使用请购买正版软件。 一款很棒的控件. sunsg2008 2011.3.26
ActiveReport3.0通用报表浏览器 通用的报表浏览器，就是在报表浏览器窗体中提供几个...如： public static void PreviewReport(DataDynamics.ActiveReports.ActiveReport3 report) { report.Run(); FrmActiveReportViewer form = new FrmActiveR
ActiveReports v2.0--成熟的报表控件，性能稳定，功能细致 摘要 ActiveReports 融合了Micorsoft Visual Basic的功能和灵活性，以及高级ActiveX Designer Component 技术，为Visual Basic开发员提供终端报表设计器。 组件列表 易于使用，类似于Office的设计器环境。...
activereport .rpx .ActiveReport（需要勾选文件是否存在，其他两个不要） .ArCacheItem 路径为C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll 2.发布后需要自己在bin下添加引用的dll。 转载于:...
