Private Sub DoExport(pds As C1PdfDocumentSource, ep As ExportProvider)
saveFileDialog1.DefaultExt = "." + ep.DefaultExtension
saveFileDialog1.FileName = Path.GetFileName("Document")+
"." + ep.DefaultExtension
saveFileDialog1.Filter = String.Format("{0} (*.{1})|*.{1}|All files (*.*)|*.*", _
ep.FormatName, ep.DefaultExtension)
If saveFileDialog1.ShowDialog(Me) <> DialogResult.OK Then
Return
End If
Try
Dim exporter = ep.NewExporter()
exporter.ShowOptions = False
exporter.FileName = saveFileDialog1.FileName
If exporter.ShowOptionsDialog() Then
pds.Export(exporter)
MessageBox.Show(Me, "ドキュメントが正常にエクスポートされました。", "情報", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "エラー", MessageBoxButtons.OK, _
MessageBoxIcon.[Error])
End Try
End Sub