[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