ReadyGo!技术成就梦想 网络搜索 efish 2008-1-17 7:17:27

请问如何将ActiveReport2.0的报表做为邮件(或附件)发送?在线,急!!!(可另加分)

楼主szj820（都市精灵，机会没有，鸡会有的，努力努力）2002-10-22 11:32:46 在 VB / 多媒体 提问

请问如何将ActiveReport2.0的报表做为邮件(或附件)发送?在线,急!!!(可另加分) 问题点数：0、回复次数：5Top

1 楼xwyou（水山）回复于 2002-10-22 11:39:42 得分 0

你发送给对方要求是什么格式的?  
  rpx/word/excel/pdf?  
  Top

2 楼szj820（都市精灵，机会没有，鸡会有的，努力努力）回复于 2002-10-22 11:56:20 得分 0

都可以Top

3 楼xwyou（水山）回复于 2002-10-22 13:45:05 得分 0

ActiveReport2.0   有导出功能啊,我想你可以利用它导出到一个临时文件如:temp.xls   然后当一个普通文件做为附件发送吧.这方面的资料很多的啦.  
   
  Private   Sub   SaveAS()  
          On   Error   GoTo   ErrHandler  
          With   cdSaveAS  
                  .DialogTitle   =   "另存为Excel   文档/或PDF格式文档"  
                  .CancelError   =   True  
                  .Filter   =   "Excel文件   (*.xls)|*.xls|PDF文件   (*.pdf)|*.pdf"  
                  .FileName   =   "未命名"  
                  .ShowSave  
          End   With  
          If   UCase(Right(cdSaveAS.FileName,   3))   =   "XLS"   Then             "//Excel   文档  
                  Dim   OExcel   As   ActiveReportsExcelExport.ARExportExcel  
                  Set   OExcel   =   New   ActiveReportsExcelExport.ARExportExcel  
                  OExcel.FileName   =   cdSaveAS.FileName  
                  OExcel.AutoRowHeight   =   True  
                  OExcel.Export   ARView.Pages  
          Else                 "//PDF文档  
                  Dim   OPDF   As   ActiveReportsPDFExport.ARExportPDF  
                  Set   OPDF   =   New   ActiveReportsPDFExport.ARExportPDF  
                  OPDF.FileName   =   cdSaveAS.FileName  
                  OPDF.AcrobatVersion   =   DDACR40  
                  OPDF.Export   ARView.Pages  
          End   If  
           
          MsgBox   "已经成功保存到文件："   &   cdSaveAS.FileName  
        Exit   SubTop

4 楼xwyou（水山）回复于 2002-10-22 13:52:18 得分 0

贴漏了:  
   
  Private   Sub   SaveAS()  
          On   Error   GoTo   ErrHandler  
          With   cdSaveAS  
                  .DialogTitle   =   "另存为Excel   文档/或PDF格式文档"  
                  .CancelError   =   True  
                  .Filter   =   "Excel文件   (*.xls)|*.xls|PDF文件   (*.pdf)|*.pdf"  
                  .FileName   =   "未命名"  
                  .ShowSave  
          End   With  
          If   UCase(Right(cdSaveAS.FileName,   3))   =   "XLS"   Then             "//Excel   文档  
                  Dim   OExcel   As   ActiveReportsExcelExport.ARExportExcel  
                  Set   OExcel   =   New   ActiveReportsExcelExport.ARExportExcel  
                  OExcel.FileName   =   cdSaveAS.FileName  
                  OExcel.AutoRowHeight   =   True  
                  OExcel.Export   ARView.Pages  
          Else                 "//PDF文档  
                  Dim   OPDF   As   ActiveReportsPDFExport.ARExportPDF  
                  Set   OPDF   =   New   ActiveReportsPDFExport.ARExportPDF  
                  OPDF.FileName   =   cdSaveAS.FileName  
                  OPDF.AcrobatVersion   =   DDACR40  
                  OPDF.Export   ARView.Pages  
          End   If  
           
          MsgBox   "已经成功保存到文件："   &   cdSaveAS.FileName  
        Exit   Sub  
  ErrHandler:  
        "   MsgBox   "选择了取消"  
  End   SubTop

5 楼yo_jo（跳出盒子）回复于 2002-10-25 22:34:28 得分 0

如果对方也有VB的话，你可以将Actrpt.dll   和   文件名.*   一起发送过去嘛Top