0

vb.net でアプリケーションを開発しています。出力フォームを以下に示します。フォーム内のコンポーネントを印刷するための PRINT ボタンがあります。印刷ボタンをクリックすると、フォーム全体が印刷されるはずです。PRINTボタンに次のコードを書きました

PrintDialog1.Document = PrintDocument1
    Dim result As DialogResult = PrintDialog1.ShowDialog
    If (result = DialogResult.OK) Then
        PrintDocument1.Print()
End If

しかし問題は、フォームが印刷されないことです。代わりに、空白のページが印刷されます。

誰かが私のコードの間違いと、上の画像のようなページを印刷する方法を教えてもらえますか? 前もって感謝します

4

2 に答える 2

0

STEP1 : 名前空間を Imports System.Drawing.Printing としてインポートします。

STEP2 : VISUALBASIC POWERPACKS で、ToolBox の「PrintForm」ツールを使用します。

STEP3 : ボタンを作成してダブルクリックし、次のコードをコピーします

         PrintForm1.PrintAction = PrintAction.PrintToPreview
         PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)
于 2013-03-13T16:43:45.960 に答える