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

**moho58** · مارس 2

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

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

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

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

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

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

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

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

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

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

**Foksh** · مارس 2

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

من مشروع قديم ، جرب هذا الكود في زر . مع العلم أنني لم أصل الى حجم الورقة 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

**عبد اللطيف سلوم** · مارس 2

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

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

شاهد الفيديو

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

**moho58** · مارس 2

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** · مارس 2

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** · مارس 2

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

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

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

**moho58** · مارس 2

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

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

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

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

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

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

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

base_A.accdb

**Foksh** · مارس 3

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

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

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

**moho58** · مارس 3

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

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

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

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

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

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

**2saad** · الإثنين at 14:40

اخي الكريم ممكن لينك طباعة تقرير مصمم علي a3 الي ورقة a4

**moho58** · الإثنين at 16:04

منذ ساعه, 2saad said:

اخي الكريم ممكن لينك طباعة تقرير مصمم علي a3 الي ورقة a4

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

https://www.officena.net/ib/topic/137005-كود-طباعة-تقرير-مصصم-على-ورقة-حجم-a3-في-ورقة-حجم-a4/#comment-765184

**moho58** · الإثنين at 16:10

للرفع

بارك الله فيكم الاخوة الأفاضل

**moho58** · الثلاثاء at 05:15

للرفع

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

**kkhalifa1960** · الثلاثاء at 17:57

تفضل استاذ @moho58 اليك احدي الحلول لأنك لم ترفق مرفق !!!

الحل الأول: ضبط إعدادات الطباعة يدويًا باستخدام VBA

يمكنك تغيير إعدادات الطابعة عبر VBA قبل طباعة التقرير بحيث يتم تصغير المحتوى ليلائم حجم الورقة A4.

الكود:

Private Sub PrintReportA4()
    Dim rpt As Report
    Dim strReportName As String

    strReportName = "اسم_التقرير" ' استبدل باسم تقريرك

    ' فتح التقرير في وضع المعاينة
    DoCmd.OpenReport strReportName, acViewPreview

    ' التأكد من أن التقرير مفتوح
    If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> 0 Then
        Set rpt = Reports(strReportName)

        ' ضبط إعدادات الطابعة للطباعة على ورقة A4 مع تصغير الحجم
        With rpt.Printer
            .PaperSize = acPRPSA4 ' ضبط حجم الورقة إلى A4
            .Orientation = acPRORLandscape ' (اختياري) ضبط الاتجاه أفقي أو عمودي
        End With

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

        ' إغلاق التقرير بعد الطباعة
        DoCmd.Close acReport, strReportName
    End If
End Sub

الحل الثاني: تصغير التقرير تلقائيًا عند الطباعةالكود لحفظ التقرير كـ PDF ثم الطباعة:

إذا كان التقرير يحتوي على عناصر تتجاوز حجم A4، يمكنك تعديل خاصية التكبير والتصغير (Zoom) للطباعة بدون قص الأجزاء الكبيرة.
استخدم إعدادات Fit to Page في الطابعة، ولكن يتم ذلك عبر إعدادات الطابعة وليس VBA مباشرة.

الحل الثالث: حفظ التقرير كملف PDF ثم الطباعة

إذا كان هناك مشاكل في الطباعة المباشرة، يمكنك حفظ التقرير بصيغة PDF ثم طباعته بالحجم المطلوب.

الكود لحفظ التقرير كـ PDF ثم الطباعة:

Private Sub ExportAndPrintPDF()
    Dim strReportName As String
    Dim strFilePath As String

    strReportName = "اسم_التقرير" ' استبدل باسم تقريرك
    strFilePath = "C:\Temp\ReportOutput.pdf" ' مسار حفظ التقرير

    ' تصدير التقرير إلى PDF
    DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strFilePath

    ' طباعة الملف المحفوظ
    Shell "cmd /c start /min " & Chr(34) & strFilePath & Chr(34), vbHide
End Sub

ملحوظات:

تأكد من ضبط إعدادات الطابعة الافتراضية للطباعة على A4.
إذا كان التقرير يحتوي على عناصر كبيرة جدًا، قد تحتاج إلى إعادة تصميمه بحيث يكون قابلًا للطباعة على A4 بشكل أوضح.
تأكد من تجربة الطباعة أولًا عبر المعاينة (acViewPreview) قبل الطباعة الفعلية.

**moho58** · الثلاثاء at 18:13

13 دقائق مضت, kkhalifa1960 said:
تفضل استاذ @moho58 اليك احدي الحلول لأنك لم ترفق مرفق !!!

الحل الأول: ضبط إعدادات الطباعة يدويًا باستخدام VBA

يمكنك تغيير إعدادات الطابعة عبر VBA قبل طباعة التقرير بحيث يتم تصغير المحتوى ليلائم حجم الورقة A4.

الكود:
Private Sub PrintReportA4()
    Dim rpt As Report
    Dim strReportName As String

    strReportName = "اسم_التقرير" ' استبدل باسم تقريرك

    ' فتح التقرير في وضع المعاينة
    DoCmd.OpenReport strReportName, acViewPreview

    ' التأكد من أن التقرير مفتوح
    If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> 0 Then
        Set rpt = Reports(strReportName)

        ' ضبط إعدادات الطابعة للطباعة على ورقة A4 مع تصغير الحجم
        With rpt.Printer
            .PaperSize = acPRPSA4 ' ضبط حجم الورقة إلى A4
            .Orientation = acPRORLandscape ' (اختياري) ضبط الاتجاه أفقي أو عمودي
        End With

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

        ' إغلاق التقرير بعد الطباعة
        DoCmd.Close acReport, strReportName
    End If
End Sub
الحل الثاني: تصغير التقرير تلقائيًا عند الطباعةالكود لحفظ التقرير كـ PDF ثم الطباعة:

إذا كان التقرير يحتوي على عناصر تتجاوز حجم A4، يمكنك تعديل خاصية التكبير والتصغير (Zoom) للطباعة بدون قص الأجزاء الكبيرة.

استخدم إعدادات Fit to Page في الطابعة، ولكن يتم ذلك عبر إعدادات الطابعة وليس VBA مباشرة.

الحل الثالث: حفظ التقرير كملف PDF ثم الطباعة

إذا كان هناك مشاكل في الطباعة المباشرة، يمكنك حفظ التقرير بصيغة PDF ثم طباعته بالحجم المطلوب.

الكود لحفظ التقرير كـ PDF ثم الطباعة:
Private Sub ExportAndPrintPDF()
    Dim strReportName As String
    Dim strFilePath As String

    strReportName = "اسم_التقرير" ' استبدل باسم تقريرك
    strFilePath = "C:\Temp\ReportOutput.pdf" ' مسار حفظ التقرير

    ' تصدير التقرير إلى PDF
    DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strFilePath

    ' طباعة الملف المحفوظ
    Shell "cmd /c start /min " & Chr(34) & strFilePath & Chr(34), vbHide
End Sub
ملحوظات:

تأكد من ضبط إعدادات الطابعة الافتراضية للطباعة على A4.

إذا كان التقرير يحتوي على عناصر كبيرة جدًا، قد تحتاج إلى إعادة تصميمه بحيث يكون قابلًا للطباعة على A4 بشكل أوضح.

تأكد من تجربة الطباعة أولًا عبر المعاينة (acViewPreview) قبل الطباعة الفعلية.

تحية طيبة اخي الكريم وشكرا كثيرا على الرد

تفضل الملف اخي والتقرير مصمم في ورقة اكبر من ورقة A3 .

base_A.accdb

**kkhalifa1960** · الثلاثاء at 19:49

اليك أخي @moho58 المرفق بعد التعديل ...... :fff:

Limousine Programe-1.rar

**moho58** · الثلاثاء at 20:37

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

اليك أخي @moho58 المرفق بعد التعديل ......

Limousine Programe-1.rar 225.65 kB · 2 downloads

أخي الكريم @kkhalifa1960 لقد رفعت ملف آخر مختلف عن ملفي أنا

شكرا

**Eng.Qassim** · الثلاثاء at 21:26

حسب رايي مثلما تفضل الاخ الاستاذ @kkhalifa1960

ان تحول التقرير الى ال PDF ثم تختار الطباعة على A4

**moho58** · الثلاثاء at 21:37

7 دقائق مضت, Eng.Qassim said:

حسب رايي مثلما تفضل الاخ الاستاذ @kkhalifa1960

ان تحول التقرير الى ال PDF ثم تختار الطباعة على A4

شكرا أخي الكريم على الرد

نعم فعلت هذه الطريقة عندما يكون التقرير في ورقة A3 العملية ناجحة تماما

لكن حاليا حجم التقرير عندي في الأكسيس أكبر من ورقة A3 وعندما حولته إلى PDF ظهر في ورقتين ولم يظهر في ورقة واحدة فقط

**ولا يمكن التقليل من التقرير الحالي كون الحقول كثيرا جدا ليصبح في ورقة A3 فقط **

وشكرا مرة أخرى

**Foksh** · الأربعاء at 11:29

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

لكن حاليا حجم التقرير عندي في الأكسيس أكبر من ورقة A3 وعندما حولته إلى PDF ظهر في ورقتين ولم يظهر في ورقة واحدة فقط

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

* وجهة نظر

**moho58** · الأربعاء at 11:34

3 دقائق مضت, Foksh said:

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

* وجهة نظر

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

هل فيه طريقة لتحقيق طلبي

ام أن الطلب مستحيل تحقيقه

**Foksh** · الأربعاء at 11:39

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

ام أن الطلب مستحيل تحقيقه

أحيانا ما يجعل الأمر أشبه بالمستحيل هو التمسك بفكرة وعدم التخلي عنها أو البحث عن طريقة أخرى تؤدي الى حل ,,

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

حاول البحث عن آلية لتصميم التقرير من جديد بفكرة مختلفة تساعدك في تحقيق طلبك ، فعد الحقول كبير جداً وانت تحاول ضغطها في ورقة A4 :smile:

**moho58** · الأربعاء at 12:31

47 دقائق مضت, Foksh said:

أحيانا ما يجعل الأمر أشبه بالمستحيل هو التمسك بفكرة وعدم التخلي عنها أو البحث عن طريقة أخرى تؤدي الى حل ,,

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

حاول البحث عن آلية لتصميم التقرير من جديد بفكرة مختلفة تساعدك في تحقيق طلبك ، فعد الحقول كبير جداً وانت تحاول ضغطها في ورقة A4

شكرا كثيرا اخي

والله منذ سنوات وهذا التقرير معتمد في مدرستنا وكنت اعمله عن طريق excel

والآن قمت بانجاز قاعدة بيانات للطلبة . تضم جميع البيانات .

وقمت بانشاء هذا التقرير وتقارير مشابهة له .

لكن وقعت في هذه الاشكالية الخاصة بالطباعة في ورقة A4

**Foksh** · الأربعاء at 12:56

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

والله منذ سنوات وهذا التقرير معتمد في مدرستنا وكنت اعمله عن طريق excel

طيب ما رأيك بفكرة لم اقم بتأكيد نجاحها ، ولكنها قد تكون بداية الوصول الى حل ،،

استخدم الكود التالي في زر ، وشاهد النتيجة على سبيل المثال بحفظ الملف بصيغة PDF ؟؟؟؟

Private Sub Command483_Click()
Dim strReport As String
Dim strFilePath As String
Dim strDBPath As String
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

strReport = "rapt"

strDBPath = CurrentProject.Path

strFilePath = strDBPath & "\rapt_report.xls"

DoCmd.OutputTo acOutputReport, strReport, acFormatXLS, strFilePath, False

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFilePath)
Set xlSheet = xlBook.Sheets(1)

xlSheet.PageSetup.Orientation = 2

xlSheet.PageSetup.Zoom = False
xlSheet.PageSetup.FitToPagesWide = 1
xlSheet.PageSetup.FitToPagesTall = False
xlSheet.PageSetup.ScaleWithDocHeaderFooter = True
xlSheet.PageSetup.PrintQuality = 600

xlBook.PrintOut

xlBook.Close False
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

rapt_report.pdf

**Moosak** · الأربعاء at 14:15

بدون الحاجة لأي تدخل برمجي أعتقد أنه بإمكانك إعادة تنسيق وتظبيط تنسيق التقرير وتضغير الحقول والخطوط لتلائم حجم ال A4 مباشرة 🙂

وهذه تجربتي :
image.png.79b37eb4490438e9c69a606a89c6544f.png

base_A.accdb

تسجيل الدخول

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

الردود الموصى بها

الحل الأول: ضبط إعدادات الطباعة يدويًا باستخدام VBA

الكود:

الحل الثاني: تصغير التقرير تلقائيًا عند الطباعةالكود لحفظ التقرير كـ PDF ثم الطباعة:

الحل الثالث: حفظ التقرير كملف PDF ثم الطباعة

الحل الأول: ضبط إعدادات الطباعة يدويًا باستخدام VBA

الكود:

الحل الثاني: تصغير التقرير تلقائيًا عند الطباعةالكود لحفظ التقرير كـ PDF ثم الطباعة:

الحل الثالث: حفظ التقرير كملف PDF ثم الطباعة

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information