|
分類:[VB.NET/VB2005 以降]
いつもお世話になっております。
今回もよろしくお願い致します。
フォームを印刷する RunPrintForm を作成しました。
今回はfrmmainですが、他のフォームも印刷したいので、Moduleに入れて共通のサブルーチンにしたいのです。
RunPrintFormをコピーし、Moduleに入れたところ、 PrintForm1.Print() の部分が赤い波線（Error）となっています。
このエラー対応として、何が必要なのでしょうか？
また、これはサブルーチン化することはできるのでしょうか？
よろしくお願い致します。
Public Class frmmain
.
.
.
Private Sub Command1_0_Click(sender As System.Object, e As System.EventArgs) Handles Command1_0.Click
RunPrintForm()
End Sub
Public Sub RunPrintForm()
' フォーム上にプリントフォームをツールボックスから追加する。
'印刷のボタンから以下を実行する。
Dim DefaultPrinter As String
'PrintDocumentの作成
Dim pd As New System.Drawing.Printing.PrintDocument
'プリンタ名の取得
Dim defaultPrinterName As String = pd.PrinterSettings.PrinterName
'結果を表示通常使うプリンタdefaultPrinterName
DefaultPrinter = defaultPrinterName
If DefaultPrinter = "未定義" Then
MsgBox("通常使うﾌﾟﾘﾝﾀが設定されていません" & vbCrLf & _
"ﾒﾆｭｰ [ﾌｧｲﾙ]-[ﾌﾟﾘﾝﾀの設定]で選んでください", vbExclamation, "プリンターエラー")
Exit Sub
End If
PrintForm1.Print()
End Sub
.
.
.
End Class
|