|
分類:[VB.NET/VB2005]
VB2005で、画面に値を入力すると計算し、計算値を印刷するというプログラムを作成してます。
計算値を印刷するところまで出来てまして、その印刷する結果をPDFに変換し保存したいと考えてます。
今は、「印刷」ボタン押下後、”印刷プレビューを表示しますか？”と聞き、
はいなら、プレビュー画面表示、いいえなら印刷ダイアログ画面表示が出てきます。
印刷ダイアログ画面のプリンターの選択で、”Adobe PDF”を選択し、印刷を押すと、
印刷されてしまいます。（Adobe Acrobat7.0使用）
”Adobe PDF”を選択したら、どこに保存するのか聞いてくる方法を教えてください。
[コード]
Dim selectButton As DialogResult
selectButton = MessageBox.Show("印刷プレビューを表示しますか？", "", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
Select Case selectButton
'はいが押された場合
Case Windows.Forms.DialogResult.Yes
PrintPreviewDialog.Document = PrintDocument
PrintPreviewDialog.ShowDialog()
'いいえが押された場合
Case Windows.Forms.DialogResult.No
Dim Ret As DialogResult
PrintDialog1.PrinterSettings = New Printing.PrinterSettings
Ret = PrintDialog1.ShowDialog()
'okボタンを選択されたら印刷を開始する
If Ret = Windows.Forms.DialogResult.OK Then
PrintDocument.Print()
End If
End Select
他のやり方で、「PDF作成」ボタンを作成し、押下後PDFファイルを作成するという方法も考えてます。
PDF作成方法を教えてください。
よろしくお願いします。
|