طباعة تقرير مصمم في ورقة ذات حجم أكثر من A3 في ورقة A4

[moho58]

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

سبق لي وأن طرحت موضوع مشابه لهذا الموضوع: وهو إنشاء تقرير مصمم في ورقة A3 وطباعته في ورقة A4

وقد حصلت على الإجابة الكافية.

في موضوعي هذا وهو أنني صممت تقريرا وقد فاق التقرير حجم ورقة A3  حوالي 49 سم وربما يزيد بقليل أحيانا

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

السؤال هو كيف يمكن طباعة هذا التقرير المصمم في ورقة أكثر من حجم ورقة A3  في ورقة A4

لأني في موضوعي السابق إذا كان التقرير مصمم في ورقة A3   تمكنت من الطباعة في A4.

 إما الآن في حالة إذا كان التقرير مصمم في ورقة أكثر من A3  : هل توجد طريقة أو كود للطباعة في ورقة A4

في EXCEL  توجد طريقة وهي تصغير نسبة حجم الورقة للتعامل مع هذه المشكلة كما في الصورة  المرفقة (تصغير حجم الورقة إلى 66 بالمئة لنتمكن من الطباعة في ورقة A4

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

[Foksh]

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

من مشروع قديم ، جرب هذا الكود في زر . مع العلم أنني لم أصل الى حجم الورقة A2 مثلاً

    Dim rpt As Report
    DoCmd.openReport "Report4", acViewPreview
    Set rpt = Reports("Report4")
    
    rpt.Printer.PaperSize = acPRPSA4
    rpt.Printer.LeftMargin = 200
    rpt.Printer.RightMargin = 200
    rpt.Printer.TopMargin = 200
    rpt.Printer.BottomMargin = 200

    DoCmd.PrintOut
    DoCmd.Close acReport, "Report4", acSaveNo

 

[عبد اللطيف سلوم]

شرحت لك طريقة بدون اكواد

تستطيع من خلالها طباعة حجم A3  على ورقة A4

شاهد الفيديو

https://www.mediafire.com/file/0mcf3xnnzpgxa59/WhatsApp_Video_2025-03-02_at_4.42.49_PM.mp4/file

[moho58]

5 ساعات مضت, Foksh said:

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

من مشروع قديم ، جرب هذا الكود في زر . مع العلم أنني لم أصل الى حجم الورقة A2 مثلاً

    Dim rpt As Report
    DoCmd.openReport "Report4", acViewPreview
    Set rpt = Reports("Report4")
    
    rpt.Printer.PaperSize = acPRPSA4
    rpt.Printer.LeftMargin = 200
    rpt.Printer.RightMargin = 200
    rpt.Printer.TopMargin = 200
    rpt.Printer.BottomMargin = 200

    DoCmd.PrintOut
    DoCmd.Close acReport, "Report4", acSaveNo

 

السلام عليكم أخي

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

بعد التجربة

مزال نفس المشكل قائم

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

[moho58]

3 ساعات مضت, عبد اللطيف سلوم said:

شرحت لك طريقة بدون اكواد

تستطيع من خلالها طباعة حجم A3  على ورقة A4

شاهد الفيديو

https://www.mediafire.com/file/0mcf3xnnzpgxa59/WhatsApp_Video_2025-03-02_at_4.42.49_PM.mp4/file

السلام عليكم أخي

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

أخي أنا تقريري مصصم في حجم أكثر من  A3    حوالي 50 سم

[Foksh]

22 دقائق مضت, moho58 said:

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

لا تبخل علينا في ملف مرفق يحتوي تقرير مماثل لما وصفته ( لا يشترط الجداول ولا اي نماذج )

[moho58]

4 ساعات مضت, Foksh said:

لا تبخل علينا في ملف مرفق يحتوي تقرير مماثل لما وصفته ( لا يشترط الجداول ولا اي نماذج )

تحية طيبة أخي ، وشكرا كثيرا مرة أخرى الاهتمام والمتابعة لموضوعي

وأعتذر عن عدم وضوعي مرفق منذ البداية

تفضل أخي الكريم المرفق

قبل هذا كنت أشتغل على EXCEL  وفي  EXCEL  هناك خاصية تصغير نسبة حجم الورقة حتى يتلائم الملف على مقاس بحجم A4  كما في الصورة المرفقة

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

 

base_A.accdb

[Foksh]

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

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

 

اعتذر منك ، حاولت ولكن محاولاتي لم تنجح للأسف  .
آملاً أن تجد الحل الذي يحل لك مشكلتك يا صديقي  

[moho58]

2 ساعات مضت, Foksh said:

اعتذر منك ، حاولت ولكن محاولاتي لم تنجح للأسف  .
آملاً أن تجد الحل الذي يحل لك مشكلتك يا صديقي  

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

و كذلك على كل ما تقدمه في هذا المنتدى الجميل

إن شاء الله طلبي هذا ما يكون مستحيل و يمكن تحقيقه

وإن شاء الله أحد من الإخوة الأفاضل  يكون عنده الطريقة والحل المناسب