منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) (/showthread.php?tid=49454)

طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - atefkhalf2004 - 05-07-24

هل يمكن  عند طباعة التقرير  علي الطابعة  يتم بطول وعرض معين  (التقرير عبارة عن سطر)
مثلا  كلمة منتدي فيجوال بيسك   هي في وضع التصميم  6سم   في  2 سم
يتم طباعتها   في  مساحة  12سم  في  4 سم

RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - zazasami - 05-07-24

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

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

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 


RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - atefkhalf2004 - 05-07-24

حضرتك ده تعديل في حجم الورقة
لكن المطلوب التحكم في حجم الكلمات المطلوبة او السطر المطلوب
التقرير كريستال ريبورت vb.net 2015

RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - DOX.1 - 06-07-24

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



أنصحك بأستخدام devexpress  لتقارير لأسباب عديده 
أولاً الأمكانيات الموجوده على التقارير أفضل من الكرستال بكثير 
الثاني لا تحتاج إلى تبيت مشغلات على الأجهزه من أجل أن أن تعمل التقارير 
ثالثاً التحكم بحجم التقارير بالطريقه التي ترغب فيها والخيارات واسعه وبأمكانك أيضاً تحديد الحجم المراد العمل عليه

RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - atefkhalf2004 - 07-07-24

للاسف لم اتعامل Devexpress
هل يوجد حل لمشكلتي

RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - atefkhalf2004 - 14-07-24

برجاء حلا للمشكلة

RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - Kamil - 14-07-24

بالطبع! يمكنك التحكم في أبعاد التقرير عند الطباعة في Crystal Reports بالطريقة التالية:

1. **فتح التقرير في Crystal Reports**:
   - افتح تقريرك في برنامج Crystal Reports داخل بيئة Visual Studio 2015.

2. **ضبط حجم الورق والهوامش**:
   - انتقل إلى علامة التبويب "Design" في مصمم Crystal Reports.
   - انقر على "Page Setup" أو "Printer Setup" (قد تختلف التسميات حسب نسختك من Crystal Reports).
   - ضع حجم الورق بالأبعاد التي ترغب فيها (مثلاً 12 سم في العرض و 4 سم في الارتفاع).
   - قم بضبط الهوامش إذا لزم الأمر لضمان أن محتوى التقرير يتناسب مع الأبعاد المحددة.

3. **ضبط محتوى التقرير**:
   - تأكد من أن محتوى التقرير (النصوص، الحقول، الصور وما إلى ذلك) موضوع ضمن حجم الورق والهوامش التي حددتها.

4. **معاينة وطباعة التقرير**:
   - بعد ضبط حجم الورق والهوامش، يمكنك معاينة التقرير لترى كيف سيظهر عند الطباعة.
   - عند الطباعة، سيستخدم Crystal Reports الإعدادات التي قمت بتكوينها (حجم الورق والهوامش) لطباعة محتوى التقرير ضمن الأبعاد المحددة.

### مثال توضيحي:
- على سبيل المثال، إذا كنت ترغب في طباعة سطر واحد من النص، مثل "منتدي فيجوال بيسك"، في منطقة محددة بأبعاد 12 سم عرضًا و 4 سم ارتفاعًا على الورق.
- قم بضبط إعدادات حجم الورق والهوامش في Crystal Reports ليتماشى مع هذه الأبعاد.
- تأكد من أن تصميم التقرير يتناسب مع هذا التخطيط.

من خلال ضبط إعدادات حجم الورق والهوامش في Crystal Reports بشكل صحيح، يمكنك التحكم في كيفية طباعة محتوى التقرير على الورق بالأبعاد التي تحددت بها، مما يسمح لك بالحصول على نتائج مطابقة للمتوقع عند الطباعة.

RE: طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) - atefkhalf2004 - 15-07-24

حضرتك هل هذه الطريقة تصلح ان يتغير طول وعرض التقرير من خلال مثلا كتابة طول وعرض النص المطلوب
وهو الهدف
اي
الهدف التحكم في طول وعرض النص المطلوب طباعته
لان حضرتك
هذا وارد في ردك
- قم بضبط إعدادات حجم الورق والهوامش في Crystal Reports ليتماشى مع هذه الأبعاد.