Export to Many files using VB6 and CR8.5

PauloMongo · October 20th, 2003, 07:02 AM

I have a report that is grouped by client, on each GH1 an email address appears, I need to be able to export out of crystal reports to seperate files where a new GH starts and email to each client there specific report.

Does anybody know whether this is possible

imran64 · October 28th, 2003, 04:39 AM

'Option Explicit
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application
Public X As Integer
'Public crxApplication As CRAXDRT. Object
'Public crxReport As Object
Public crxDatabase As CRAXDRT.Database
Public crxDatabaseTables As CRAXDRT.DatabaseTables
Public crxDatabaseTable As CRAXDRT.DatabaseTable
Public crxSections As CRAXDRT.Sections
Public crxSection As CRAXDRT.Section
Public crxSubreport As Object
Public crxSubreportObject As CRAXDRT.SubreportObject
Private Sub CmdClose_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Reporting
End Sub

Private Sub Reporting()
Me.Caption = "Report"
'ReportPath = "E:\worldcall inventory system\Crystal Reports\DailyCorporateRechargeTransfer.rpt"
'Screen.MousePointer = vbHourglass
Set crxReport = crxApplication.OpenReport(ReportPath)
crxReport.DiscardSavedData
CRViewer1.ReportSource = crxReport
CRViewer1.ViewReport
CRViewer1.Zoom 100
CRViewer1.EnableExportButton = True
CRViewer1.DisplayTabs = True
Command1_Click
'CRViewer1.CloseView 30
End Sub

Private Sub Form_Resize()
'crxReport.re
Set crxReport = crxApplication.OpenReport(ReportPath)
crxReport.DiscardSavedData
'CRViewer1.Refresh
With CRViewer1
    .Top = 0
    .Left = 0
    .Width = 11775 'Me.ScaleWidth
    .Height = 7215 'Me.ScaleHeight
End With

End Sub

''''''ACTUAL CODE START FROM THERE IF YOU HAVE TO EXPORT THE FILE>>>>>>>>
Private Sub Command1_Click()

Dim mReportDir, mExportDir, mReportName, mExportType As String
Dim mServerName, mdata, mUserId, mPassword As String

mReportDir = "E:\worldcall inventory system\Crystal Reports\"
mReportName = "FromToCorporateRechargeTransfer.rpt"
mExportDir = "E:\worldcall inventory system\Crystal Reports\"
mExportType = "xls"
mServerName = "dbcon"
mdata = "UserData"
mUserId = "administrator"
mPassword = "s"

   Dim strFile, strTemp, reportFile As String
  Dim count As Integer

  strFile = "FromToCorporateRecharge.rpt" 'Dir(mReportDir)
'-------------------------------------------------------------------

'Do
   reportFile = "oneFromToCorporateRecharge.rpt"
'-------------------------------------------------------------------

   Set crxReport = crxApplication.OpenReport(mReportDir & strFile)
   crxReport.DiscardSavedData

   Set crxDatabase = crxReport.Database

   Set crxDatabaseTables = crxDatabase.Tables

   count = 1
   For Each crxDatabaseTable In crxDatabaseTables
       crxDatabaseTable.SetLogOnInfo mServerName, mdata, mUserId, mPassword
       count = count + 1
   Next crxDatabaseTable

   Set crxSections = crxReport.Sections

   For Each crxSection In crxSections

       For X = 1 To crxSection.ReportObjects.count

  If crxSection.ReportObjects(X).Kind = crSubreportObject Then

   Set crxSubreportObject = crxSection.ReportObjects(X)
  Set crxSubreport = crxSubreportObject.OpenSubreport
  Set crxDatabase = crxSubreport.Database
  Set crxDatabaseTables = crxDatabase.Tables

  count = 0
  For Each crxDatabaseTable In crxDatabaseTables
       crxDatabaseTable.SetLogOnInfo mServerName, mdata, mUserId, mPassword
       count = count + 1
  Next crxDatabaseTable

End If

Next X

Next crxSection

   crxReport.ExportOptions.Reset
'----------------------------------------------------------------
   If (mExportType = "pdf") Or (mExportType = "PDF") Then
   crxReport.ExportOptions.FormatType = crEFTPortableDocFormat
   'crxReport.ExportOptions. = True
   End If

   If (mExportType = "doc") Or (mExportType = "DOC") Then
   crxReport.ExportOptions.FormatType = crEFTWordForWindows
   End If

   If (mExportType = "xls") Or (mExportType = "XLS") Then
   crxReport.ExportOptions.FormatType = crEFTExcel80
   End If

   If (mExportType = "txt") Or (mExportType = "TXT") Then
   crxReport.ExportOptions.FormatType = crEFTText
   End If

   If (mExportType = "csv") Or (mExportType = "CSV") Then
   crxReport.ExportOptions.FormatType = crEFTCommaSeparatedValues
   End If

   If (mExportType = "rtf") Or (mExportType = "RTF") Then
   crxReport.ExportOptions.FormatType = crEFTExactRichText
   End If
'------------------------------------------------------------------
   crxReport.ExportOptions.DestinationType = crEDTDiskFile

   crxReport.ExportOptions.DiskFileName = (mExportDir & reportFile & "." & mExportType)

   crxReport.ExportOptions.UseReportDateFormat = True

    crxReport.ExportOptions.UseReportNumberFormat = True

    crxReport.Export (False)
'-------------------------------------------------------------------
strTemp = strTemp & strFile

'strFile = Dir
'Loop Until strFile = vbNullString

MsgBox "Success: - Export Complete"

End Sub