Code: Select all
Dim service As New Stimulsoft.Report.Export.StiPdfExportService
service.Progress = Stimulsoft.Report.StiGuiOptions.GetProgressInformation(service.OwnerWindow, Stimulsoft.Base.StiGuiMode.Gdi)
service.Progress.Start(Stimulsoft.Base.Localization.StiLocalization.Get("Export", "ExportingReport"))
service.Progress.SetAllowClose(False)
service.ExportPdf(report, stream, exportSettings)
service.Progress.Close()
service.Progress = Nothing
Thank you.