[kirama]

السلام عليكم 

احتاج طريقة طباعة متغير من نوع string مع المرور للسطر الموالي حال الوصول لحدود السطر

شكرا

[mohamed haroon]

السلام عليكم

لتنفيذ طلبك لابد ان تكون على دراية بالـ 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