24-01-17, 03:11 PM
02-02-17, 12:20 AM
السلام عليكم
لتنفيذ طلبك لابد ان تكون على دراية بالـ graphics فى الـ VB.Net و كيفية التعامل معة و هذا مثال
كود :
Imports System.Drawing.Printing
Public Class Form1
Dim t As String = "بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم بسم الله الرحمن الرحيم"
Dim sf As New StringFormat(StringFormatFlags.DirectionRightToLeft)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PageSetupDialog1.Document = PrintDocument1
PageSetupDialog1.ShowDialog()
PrintDocument1 = PageSetupDialog1.Document
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim h, w As Integer
Dim left, top As Integer
With PrintDocument1.DefaultPageSettings
h = .PaperSize.Height - .Margins.Top - .Margins.Bottom
w = .PaperSize.Width - .Margins.Left - .Margins.Right
left = PrintDocument1.DefaultPageSettings.Margins.Left
top = PrintDocument1.DefaultPageSettings.Margins.Top
End With
e.Graphics.DrawString(t, New Font("ariel", 20), Brushes.Black, New RectangleF(left, top, w, h), sf)
End Sub
End Classملاحظة يجب ادراج الادوات التالية للـ form
PageSetupDialog & PrintPreviewDialog & PrintDocument & button