Private Sub Command_Click()
Dim objApp As CRAXDRT.Application
    	Dim objReport As CRAXDRT.Report
    	Dim objExportOptions As CRAXDRT.ExportOptions
    	Dim objTable As CRAXDRT.DatabaseTable
    
    	MousePointer = vbHourglass
    
    	Set objApp = New CRAXDRT.Application
    	Set objReport = objApp.OpenReport(App.Path & "\YourReport.rpt")
    
    With objReport    
        	Set objExportOptions = .ExportOptions

        With objExportOptions
            .DestinationType = crEDTDiskFile
            .DiskFileName = App.Path & "\Temp\YourReport.pdf"
            .FormatType = crEFTPortableDocFormat
            .PDFExportAllPages = True
        End With
        	.ReadRecords
        	.DisplayProgressDialog = False
        	.Export (False)
     End With
    
    	frmPdf.Visible = True
    	Caption = "My Report"
    	File = "Your Report"
    	Dir = "Temp"
    	Call PDFView
    
    	MousePointer = vbNormal
    
    Set objTable = Nothing
    Set objExportOptions = Nothing
    Set objReport = Nothing
    Set objApp = Nothing


End Sub
