Tente isso:

    If Not RptObj Is Nothing Then
        With RptObj.ExportOptions
            .DestinationType = crEDTDiskFile           'Criar um arquivo em disco
            .FormatType = 31
            Select Case Formato
                Case relPDF
                    .PDFExportAllPages = True
            End Select
            .DiskFileName = NomeExportar               'Determina o nome do arquivo
        End With
        RptObj.Export False
    End If
Eu uso o Crystal Viewer do Crystal 8.5. e RptObj é um CRAXDRT.Report.

infelizmente nã dá para fazer isso usando o Crystal Control, pois a Seagate está descontinuando ele.

 

Um abraço,

Sandro.