كود طباعة تقرير مصصم على ورقة حجم A3 في ورقة حجم A4

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

نظرا لكثرة الحقول في تقرير درجات الطلاب قمت بتصميم هذا التقرير على ورقة حجم   A3 لكي تتسع هذه الحقول   (الحقول صممتها بشكل عمودي وهي المواد التي يدرسها الطلاب)

الإخوة الأفاضل

أريد طباعة هذا التقرير على ورقة حجم A4

أنا حاليا عندي طريقة (بناء على طلب سابق في هذا المنتدى مند مدة) وهي تصدير الملف إلى صيغة PDF   ومن تم طباعته

 

* هل فيه طريقة أو كود للطباعة مباشرة دون التصدير إلى صيغة PDF  وهذا لتسهيل العملية أكثر .

الرجاء المساعدة والتوجيه وبارك الله فيكم

 

 

 

[kkhalifa1960]

تفضل أستاذ @moho58 طلبيك حسب مافهمت بالمرفق . ووافني بالرد .

DDTestPintA3inA4.rar

[moho58]

40 دقائق مضت, kkhalifa1960 said:

تفضل أستاذ @moho58 طلبيك حسب مافهمت بالمرفق . ووافني بالرد .

DDTestPintA3inA4.rar 41.38 kB · 1 download

تحية طيبة أستاذ @kkhalifa1960

وضعت الكود في زر طباعة وغيرت فقط اسم التقرير

وقمت بالطباعة لكن التقرير طبع في أكثر من ورقة

هل وجب اغير اشياء اخرى في الكود

وبارك الله فيك

[kkhalifa1960]

عدل الكود الى 

    Dim rptName As String
    rptName = "YourReportName" ' استبدل باسم التقرير الفعلي

    ' فتح التقرير في وضع التصميم لضبط الإعدادات
    DoCmd.OpenReport rptName, acViewDesign

    ' ضبط إعدادات الطابعة
    With Reports(rptName).Printer
        .PaperSize = acPRPSA4 ' تغيير حجم الورق إلى A4
        .Orientation = acPRORLandscape ' إذا كان التقرير أفقيًا
    End With

    ' التأكد من أن العرض والارتفاع يتم تصغيرهما لتناسب الصفحة
    Reports(rptName).Width = 14400 ' العرض (بالـ twips) لـ A4
    Reports(rptName).Height = 20787 ' الارتفاع (بالـ twips) لـ A4

    ' حفظ وإغلاق التصميم
    DoCmd.Close acReport, rptName, acSaveYes

    ' فتح التقرير في وضع الطباعة والطباعة
    DoCmd.OpenReport rptName, acViewPreview
    DoCmd.PrintOut

    ' إغلاق التقرير بعد الطباعة
    DoCmd.Close acReport, rptName

 

[moho58]

1 ساعه مضت, kkhalifa1960 said:

عدل الكود الى 

    Dim rptName As String
    rptName = "YourReportName" ' استبدل باسم التقرير الفعلي

    ' فتح التقرير في وضع التصميم لضبط الإعدادات
    DoCmd.OpenReport rptName, acViewDesign

    ' ضبط إعدادات الطابعة
    With Reports(rptName).Printer
        .PaperSize = acPRPSA4 ' تغيير حجم الورق إلى A4
        .Orientation = acPRORLandscape ' إذا كان التقرير أفقيًا
    End With

    ' التأكد من أن العرض والارتفاع يتم تصغيرهما لتناسب الصفحة
    Reports(rptName).Width = 14400 ' العرض (بالـ twips) لـ A4
    Reports(rptName).Height = 20787 ' الارتفاع (بالـ twips) لـ A4

    ' حفظ وإغلاق التصميم
    DoCmd.Close acReport, rptName, acSaveYes

    ' فتح التقرير في وضع الطباعة والطباعة
    DoCmd.OpenReport rptName, acViewPreview
    DoCmd.PrintOut

    ' إغلاق التقرير بعد الطباعة
    DoCmd.Close acReport, rptName

 

فضلا استاذ  - لو تعدل على الملف المرفق

وشكرا كثيرا

base_RP.accdb

[kkhalifa1960]

تفضل أستاذ @moho58 المرفق بعد التعديل . ووافني بالرد .

base_RP-1.rar

[moho58]

12 دقائق مضت, kkhalifa1960 said:

تفضل أستاذ @moho58 المرفق بعد التعديل . ووافني بالرد .

base_RP-1.rar 39.53 kB · 0 downloads

الاستاذ @kkhalifa1960

سامحني ومعذرة و شكرا كثيرا على صبرك

التقرير أريده أن يبقى كما هو مصمم على ورقة حجم A3   لانه مثال فقط (لأني عندي تقارير أخرى مصممة على ورقة A3  ولايمكن تقليصها لتصبح على ورقة A4

المثال المرفق مقتبس ويمكن تحويله إلى ورقة A4 لان الحقول فيه نوعا ما قليلة

بعض التقارير عندي فيه أكثر من 40 حقل تمثل ردجات الطلاب.

ولهذا إن أمكن الابقاء على التقرير مصمم على ورقة A3 .

وايجاد كود لطباعة التقرير في ورقة A4

وجزاك الله كل الخير

[Foksh]

وعليكم السلام ورحمة الله وبركاته ،،

مشاركة مع الأستاذ @kkhalifa1960 ..

جرب في خيارات أو خصائص الطباعة البحث عن :-

Fit to Page أو Shrink Oversized Pages

عند تفعيل هذا الخيار ، سيتم تصغير التقرير المصمم على A3 ليتم احتواؤه بالكامل في صفحة A4 💡

فهذا الخيار يضمن تقليص التقرير كاملًا ليتناسب مع ورقة A4 ، مع الحفاظ على أبعاد التصميم الأصلي .

طبعاً انصحك بتصدير التقرير إلى ملف PDF للحفاظ على تصميم التقرير وأبعاده .

أعتقد انني مررت بهذه التجربة ولكن حالياً ليس لدي طابعة 😬 .

[kanory]

11 ساعات مضت, moho58 said:

أنا حاليا عندي طريقة (بناء على طلب سابق في هذا المنتدى مند مدة) وهي تصدير الملف إلى صيغة PDF   ومن تم طباعته

مشاركة مع الاخوة .... هل الكود السابق الذي لديك تصدر التقرير ويطبع في نفس الوقت .... ام انت تطبع يدويا ... استخدم طريقة التصدير ثم الطباعة عن طريق الكود مباشرة دون تدخل منك

[kkhalifa1960]

 أستاذ @moho58 اليك حلان :-

1- التحقق من إعدادات الطابعة

عند الطباعة:

1. اذهب إلى File > Print > Printer Properties.
2. ابحث عن إعداد مثل:
   • Fit to Page أو Scale to Fit (يختلف الاسم حسب الطابعة).
3. حدد الورقة A4 كحجم الورق مع التأكد من اختيار الوضع الأفقي Landscape.

2- أو  A - عند الطباعة على ورق A4 استخدم الكود

    Dim rptName As String
    rptName = "YourReportName" ' استبدل باسم التقرير الفعلي

    ' فتح التقرير في معاينة الطباعة
    DoCmd.OpenReport rptName, acViewPreview

    ' ضبط إعدادات الطابعة
    With Reports(rptName).Printer
        .PaperSize = acPRPSA4 ' ضبط حجم الورق إلى A4
        .Orientation = acPRORLandscape ' التأكد من أن التقرير أفقي
    End With

    ' طباعة التقرير
    DoCmd.PrintOut

    ' إغلاق التقرير
    DoCmd.Close acReport, rptName

 أو B - عند الطباعة على ورق A3 استخدم الكود

    Dim rptName As String
    rptName = "YourReportName" ' استبدل باسم التقرير الفعلي

    ' فتح التقرير في معاينة الطباعة
    DoCmd.OpenReport rptName, acViewPreview

    ' ضبط إعدادات الطابعة
    With Reports(rptName).Printer
        .PaperSize = acPRPSA3 ' ضبط حجم الورق إلى A3
        .Orientation = acPRORLandscape ' التأكد من أن التقرير أفقي
    End With

    ' طباعة التقرير
    DoCmd.PrintOut

    ' إغلاق التقرير
    DoCmd.Close acReport, rptName

 

base_RP-2.rar

تم تعديل الجمعة at 21:38 بواسطه kkhalifa1960
اضافة المرفق

[hanan_ms]

تفضل مرفق سابق لتغير الى A4 Code

'========================= ( قديم لم يستكمل 

جرب المرفق 

 

Full Control Of Print Report التحكم في الطابعة وخصائصها طباعة التقارير.rar

[moho58]

21 دقائق مضت, kanory said:

مشاركة مع الاخوة .... هل الكود السابق الذي لديك تصدر التقرير ويطبع في نفس الوقت .... ام انت تطبع يدويا ... استخدم طريقة التصدير ثم الطباعة عن طريق الكود مباشرة دون تدخل منك

تحية طيبة استاذ

انا استخدم الطريقة اليدوية في الطباعة

اقوم بتصدير التقرير الى pdf وبعدها اقوم بطباعته يدويا

جاري تجربة الحلول المطروحة

شكرا كثيرا الاساتذة الافاضل المشاركة والاهتمام بموضوعي

[hanan_ms]

تعديل مرفق استاذ @kkhalifa1960☕

 

1 - اصلاح تحجيم النموذج بعد عرض التقرير

2- فقط انسخ الكود وغير اسم التقرير 

3-  تعديل حجم النموذج بالعرض والارتفاع بنسخ رقم الحقلين ولصقهم باسفل الكود

'=========================( الطابعة غير متوفره 

'=============================================( Only Copy Code And Chang Name Report Only
Dim rptName                       As String
Dim Name_Tablt                    As String
Dim Fix_Size                      As Integer

Name_Tablt = DLookup("[Size_paper]", "[Control_Print]")

'====================================================( Frist Chack
 If IsNull(Name_Tablt) Or Name_Tablt = "" Then
 MsgBox " Slected itme Size paper (Isnull) ", vbCritical, "Close Done "
 Exit Sub
 End If
 
 If DCount("[Size_paper]", "[Control_Print]") = 0 Then
 MsgBox " لم تعين اعدادة للطباعة ", vbCritical, " Close Don " & Date
 Exit Sub
 End If
 
 On Error GoTo Awch:
 
 For Fix_Size = 1 To 1
    rptName = "rapt"

    DoCmd.OpenReport rptName, acViewPreview

    With Reports(rptName).Printer
    On Error Resume Next '========================( No Size desin for print
        .PaperSize = acPRPS & Name_Tablt                         '
        If p1 = -1 Then .Orientation = acPRORLandscape
        If p2 = -1 Then .Orientation = acPRORPortrait
    End With

   ' DoCmd.PrintOut

   ' DoCmd.Close acReport, rptName
   
   Next
'===================================( Fix Size Form after Change Size report
Me.Form.InsideHeight = 2190
Me.Form.InsideWidth = 5835

Exit Sub

Awch:
MsgBox Err.Description & Err.Number
Exit Sub

 

base_RP-1.rar

تم تعديل الجمعة at 23:21 بواسطه hanan_ms

[moho58]

 

أشكركم جميعا على تفاعلكم واهتمامكم بموضوعي

جزاكم الله كل خير

و بارك الله فيكم