[zazasami]

(05-07-24, 03:10 PM)atefkhalf2004 كتب : هل يمكن  عند طباعة التقرير  علي الطابعة  يتم بطول وعرض معين  (التقرير عبارة عن سطر)
مثلا  كلمة منتدي فيجوال بيسك   هي في وضع التصميم  6سم   في  2 سم
يتم طباعتها   في  مساحة  12سم  في  4 سم

نعم يمكن ذالك باستعمال الكود التالي يمكنك التعديل عليه حسب ماتريد فقد اضفت الشرح على كل خطوة 

PHP كود :

Imports System.Drawing.Printing

Public Class Form1

    Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
        ' إعداد الطابعة
        Dim printDoc As New PrintDocument()

        ' إعداد حجم الصفحة
        AddHandler printDoc.BeginPrint, AddressOf printDoc_BeginPrint
        AddHandler printDoc.PrintPage, AddressOf printDoc_PrintPage

        ' عرض إعدادات الطباعة للمستخدم (اختياري)
        Dim printDialog As New PrintDialog()
        printDialog.Document = printDoc

        If printDialog.ShowDialog() = DialogResult.OK Then
            printDoc.Print()
        End If
    End Sub

    Private Sub printDoc_BeginPrint(sender As Object, e As PrintEventArgs)
        Dim printDoc As PrintDocument = CType(sender, PrintDocument)
        ' تعيين حجم الصفحة للورقة المطلوبة
        Dim pageSize As New PaperSize("Custom", 1200, 400) ' 12 سم × 4 سم (بالبكسل، حيث 1 سم = 100 بكسل تقريبًا)
        printDoc.DefaultPageSettings.PaperSize = pageSize
        printDoc.DefaultPageSettings.Landscape = False
    End Sub

    Private Sub printDoc_PrintPage(sender As Object, e As PrintPageEventArgs)
        ' تحديد إعدادات الطباعة
        Dim font As New Font("Arial", 16)
        Dim brush As New SolidBrush(Color.Black)
        Dim text As String = "منتدى فيجوال بيسك"

        ' رسم النص على الصفحة
        e.Graphics.DrawString(text, font, brush, New PointF(10, 10)) ' 10, 10 هي الإحداثيات لتحديد مكان النص
    End Sub

End Class