تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طباعة صورة من الإكسيس بأستخدام الفيجول بيسك 2010 رامى محمد 3 94 منذ 2 ساعة مضت
آخر رد: رامى محمد
  طباعة datagridview محمود صالح 10 3,126 15-09-20, 03:04 AM
آخر رد: lira.dox
  [VB.NET] طباعة صورة اسامه الهرماوي 6 515 03-09-20, 12:47 AM
آخر رد: اسامه الهرماوي
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 321 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  مطلوب طريقة طباعة 2 نسخة من تقرير كريستال ahmedramzyaish 3 341 04-07-20, 02:41 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] لمن يبحث على كود طباعة اي صف في داتا قريد تفضل rochdi191 0 210 30-06-20, 12:07 AM
آخر رد: rochdi191
  [VB.NET] طلب كود طباعة صفوف من datagridview rochdi191 8 518 29-06-20, 11:50 PM
آخر رد: rochdi191
  [سؤال] طباعة الباركود ليبل Moham 6 476 26-06-20, 01:30 PM
آخر رد: Moham
  [VB.NET] استفسار حول طباعة جزء من printdocument1 samiiiiii 8 1,180 22-06-20, 08:26 PM
آخر رد: rochdi191
  [سؤال] طباعة الفورم حسب العدد .. AnasAlhussain 0 227 19-06-20, 02:46 PM
آخر رد: AnasAlhussain

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


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