クリスタルレポートのエクスポート

しげ 2005-03-10 23:31:26 No: 88789

お世話になります。

開発環境
VB6.0(SP5)
CrystalReport8.5

VBより指定のクリスタルレポートをDHTML形式にて
出力しようと考えております。

いろいろ試したところ、HTML形式にて出力するところまでは
出来たのですが（下記ソース）、HTML4.0(DHTML)形式に出力
するためのFormatTypeが不明で困っております。

Export（True）として、エクスポート画面を表示すると、
TML4.0(DHTML)形式は選択できるのですが・・・

情報をご存知のかた、ご教授願います。

--------------------------------------------------------------------
    Dim crystalApplication As CRPEAuto.Application
    Dim crystalReport       As CRPEAuto.Report
    Dim crystalExportOptions As CRPEAuto.ExportOptions


    Set crystalApplication = CreateObject("Crystal.CRPE.Application")
    Set crystalReport = crystalApplication.OpenReport ("E:\Test.rpt")

Call crystalReport.Export(False)

    Set crystalExportOptions = crystalReport.ExportOptions
    crystalExportOptions.CharFieldDelimiter = ","
    crystalExportOptions.CharStringDelimiter = "'"
    crystalExportOptions.DiskFileName = "e:\TestHTML.htm"
    crystalExportOptions.UseReportDateFormat = True
    crystalExportOptions.HTMLFileName = "e:\TestHTML.htm"
    crystalExportOptions.FormatType = 24    ←ここのDHTMLの値が不明？？
    crystalExportOptions.UseReportNumberFormat = True
    crystalExportOptions.DestinationType = 1

    Call crystalReport.Export(False)