تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طباعة متعددة الأسطر
#1
السلام عليكم 

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

شكرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

لتنفيذ طلبك لابد ان تكون على دراية بالـ 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
  Smile It's easy if you try
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم