VB.net - 画像ボックスの印刷

Question

画像ボックスに図面を作成しました。

PcbNetwerk.BackgroundImage = bmpNO 

は、それから私は、次のコードを使用して印刷してみてください：

Dim WithEvents PrintDoc As New PrintDocument() 

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage 

    e.Graphics.DrawImage(PcbNetwerk.Image, 0, 0) 

End Sub 

Private Sub BtnPrintNetwerk_Click(sender As Object, e As EventArgs) Handles BtnPrintNetwerk.Click 

    If PrintDialog1.ShowDialog = DialogResult.OK Then 
     PrintDocument1.Print() 
    End If 

End Sub 

をそれだけで、空白のプリントになり、私はこのコードを使用してのPictureBoxにBMPをロードし、その後BMPに描きます。また、私は紙のプリンタを選択すると、私は空のPDFファイルで終わるだけです。私は何時間もの解決策を探していましたが、私が見つけたものすべてが同じ種類のコードに戻り、同じ結果が得られました（ブランクページや場合によってはプログラムがクラッシュする）。印刷するサイズはA3ランドスケープ形式です。

Answer 1

ですから、picturebox1.imageはempyファイルを作成しました。私のフォームのパブリッククラスで

Public Netwerkoverzicht As Image

：私が作成したこの問題を解決します。

は、それから私は、私は、レンダリングについては何も知らない私は私が作ったこの画像パブリックに私の潜水艦の1で生成して、私はNetwerkwerkoverzicht

Dim WithEvents PrintDoc As New PrintDocument() 

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage 

e.Graphics.DrawImage(Netwerkoverzicht, 0, 0) 

End Sub