[a.ahmed]

PHP كود :

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    e.Graphics.DrawImage(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)
    e.Graphics.DrawString("Text", New Font("Arial", 30, FontStyle.Bold), Brushes.Blue, New Point(100, 100))
    e.Graphics.DrawString(Today.ToLongDateString, New Font("Arial", 30, FontStyle.Bold), Brushes.Brown, New Point(100, 150))
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    PrintPreviewDialog1.Document = PrintDocument1
    PrintPreviewDialog1.ShowDialog()
End Sub