Как я могу экспортировать Crystal Report файл с помощью VB6 в PDF с паролем?

Я пытаюсь программно экспортировать файл отчета Crystal в PDF, и я хочу знать, как добавить пароль, чтобы его никто не мог открыть. Вот мой фрагмент кода.

    Dim OutputFileName As String
If tmpRS.State = 1 Then tmpRS.Close
tmpRS.Open "select * from MailSetup where cEmailSetupFor = '" & pModule & "'", pCN, adOpenStatic, adLockReadOnly
OutputFileName = tmpRS!cAttachment
tmpRS.Close

Set frmReportViewer.rpt = rptPrint
With frmReportViewer.rpt
    .ExportOptions.DiskFileName = OutputFileName
    .ExportOptions.DestinationType = crEDTDiskFile
    .ExportOptions.FormatType = crEFTPortableDocFormat
    .ExportOptions.PDFExportAllPages = True
    .Export False
    .PrinterSetup 0
End With
Источник

0 ответов

Другие вопросы по тегам