طباعة نص وصورة

السلام عليكم

كنت قد احتجت لأوامر طباعة النصوص

وقد وجدت في الممتدى موضوع الأخ samerselo عن الطباعة واستعنت به

لكنني أريد طباعة صورة مع النص

الأخ في موضوعه كتب الكود التالي

Private WithEvents Pdlg As New PrintDialog

Private WithEvents Pdoc As New PrintDocument

Private WithEvents PPD As New PrintPreviewDialog

Private WithEvents PSD As New PageSetupDialog

Private Sb As New System.Text.StringBuilder

Private PStgs As New PageSettings

Private Stp As String

Private PrintFont As New Font("arial", 12)

Sb.Append(TextBox2.Text & ControlChars.CrLf)

Try

Pdoc.DefaultPageSettings = PStgs

Stp = Sb.ToString

Pdlg.Document = Pdoc

If Pdlg.ShowDialog = DialogResult.OK Then

Pdoc.Print()

End If

Catch ex As Exception

MsgBox(ex.Message)

ex = Nothing

End Try

وهو يعمل طبعا

وأنا قمت باضافة الكود

Sb.Append(PictureBox2.Image)

لكنه لم يعمل للأسف

أفيدوني جزاكم الله خيرا

أختكم