بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
عندي كود للطباعة وما ضبط معاااي .. وهذا هو الكوود
Imports System.Drawing.Printing
'طباعة صورة
Private Sub Printgraphic(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
ev.Graphics.DrawImage(Image.FromFile(TextBox1.Text), ev.Graphics.VisibleClipBounds)
ev.Graphics.DrawImage(PictureBox1.Image, 0, 0)
ev.HasMorePages = False
End Sub
طباعة نص
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Try
Dim printdoc As New PrintDocument
AddHandler printdoc.PrintPage, AddressOf Me.printtext
printdoc.Print()
Catch ex As Exception
MsgBox("soory ")
End Try
End Sub
انشاء اجراء لطباعة الصوره
Private Sub Printgraphic(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
ev.Graphics.DrawImage(Image.FromFile(TextBox1.Text), ev.Graphics.VisibleClipBounds)
ev.HasMorePages = False
End Sub
انشاء اجراء لطباعة النص
Private Sub printtext(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
ev.Graphics.DrawString(TextBox1.Text, New Font("arial", 11, FontStyle.Regular), Brushes.Black, 120, 120)
ev.HasMorePages = False
End Sub
ادرج اداة
PrintDocument1
يطلع لي في مشكلة في الجملة اللي تحتها سطر
أرجو مساعدتي في حل المشكلة ...
