我用的是active report1。08,但是如果导出RTP没有表格线 用的是active report Help Private Sub miFRTFExport_Click() Dim rtf As New ActiveReportsRTFExport.ARExportRTF cmndlg.Filter = "Rich Text Format (*.rtf)|*.rtf" cmndlg.DefaultExt = ".rtf" cmndlg.ShowSave If cmndlg.filename <> "" Then rtf.filename = cmndlg.filename
If Not arv.ReportSource Is Nothing Then rtf.Export arv.ReportSource.Pages Else rtf.Export arv.Pages End If End If End Sub
关注!
你能导出RTF有中文, 先享用着20分,并请告知方法,分数随后又送上. 并先致谢!
然后到active report的那个站点download 一个最新补丁解决汉字在分行时的错误
"汉字在分行时的错误" 是什么意思?
用的是active report Help
Private Sub miFRTFExport_Click()
Dim rtf As New ActiveReportsRTFExport.ARExportRTF cmndlg.Filter = "Rich Text Format (*.rtf)|*.rtf"
cmndlg.DefaultExt = ".rtf" cmndlg.ShowSave If cmndlg.filename <> "" Then rtf.filename = cmndlg.filename
If Not arv.ReportSource Is Nothing Then
rtf.Export arv.ReportSource.Pages
Else
rtf.Export arv.Pages
End If
End If
End Sub