estou tentando fazer mais esta dificil........... alguem pode me dar uma ajuda!!

 

            FORMULA = "{TB_CONT_PAG.PAG_DTVENC} >= DATE(" & Format(D1, "yyyy,mm,dd") & ") AND " & _
                    "{TB_CONT_PAG.PAG_DTVENC} <= DATE(" & Format(D2, "yyyy,mm,dd") & ") "

 

Set Report = Aplicacao.OpenReport(App.Path & "RPT_CP_Pag.rpt")
            With Report
                .RecordSelectionFormula = FORMULA

                .ExportOptions.DestinationType = crEDTDiskFile
                .ExportOptions.FormatType = crEFTHTML40
                .ExportOptions.DiskFileName = "C:     este.htlm"
                .Export FALSE
            End With
           
            With frmLayout
                  .CRViewer91.ReportSource = Report
                  .CRViewer91.ViewReport
                  .CRViewer91.Refresh
                  .Show
            End With
           

gostaria que o relatório fosse exportado automaticamente para o formato HTML.... ALGUEM PODERIA VER O QUE ESTA ERRADO ACIMA????

Vc recebe alguma mensagem de erro?

o que esta complicado é isso

 

            With Report
                .RecordSelectionFormula = FORMULA
                .ExportOptions.DestinationType = crEDTDiskFile
                .ExportOptions.FormatType = crEFTHTML40
                .ExportOptions.DiskFileName = "C:     este.htlm"
            End With

 

como fazer executar os exportoptions........na versão cr6 era assim:

 

Private Sub Command1_Click()
CrystalReport1.PrintFileType = crptHTML32Std
CrystalReport1.Destination = crptToFile
CrystalReport1.PrintFileName = "c:     este.htm"
CrystalReport1.Action = 1
End Sub

 

o action resolvia!!!!!!!!

NINGUEM????

 

não foi isso cara............ísso foi erro de copia e cola

 

mais valeu pela dica