Private Sub DoExport(pds As C1PdfDocumentSource, ep As ExportProvider)
dialog.DefaultExt = "." + ep.DefaultExtension
dialog.FileName = System.IO.Path.GetFileName("Document")
dialog.Filter = [String].Format("{0} (*.{1})|*.{1}|All files (*.*)|*.*", _
ep.FormatName, ep.DefaultExtension)
Dim dr As System.Nullable(Of Boolean) = dialog.ShowDialog(Me)
If Not dr.HasValue OrElse Not dr.Value Then
Return
End If
Try
Dim exporter = ep.NewExporter()
exporter.ShowOptions = False
'エクスポート後ドキュメントを開きます
exporter.Preview = True
'出力するファイルの名前を指定します
exporter.FileName = dialog.FileName
'PDFへエクスポートします
pds.Export(exporter)
MessageBox.Show(Me, "ドキュメントが正常にエクスポートされました。", _
"情報", MessageBoxButton.OK, _
MessageBoxImage.Information)
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "エラー", MessageBoxButton.OK, _
MessageBoxImage.[Error])
End Try
End Sub