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

[Foksh]

6 دقائق مضت, Moosak said:

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

 

🔆 فكرة لامعة وجميلة فعلاً ، وتخيل انها غابت عن بال من مر من هنا وأولهم العبد الفقير الى الله  

[Eng.Qassim]

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

وتخيل انها غابت عن بال من مر من هنا

😂 لم تغب عن بالي ...فعلتها لكنها لم تضبط معي 

[Foksh]

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

😂 لم تغب عن بالي ...فعلتها لكنها لم تضبط معي 

وها انت قد حصلت عليها 😉

[طاهر اوفيسنا]

عفوا على المداخلة اساتذة في الورد كنت نقوم بطباعة ورق حجم A3 بحجم A4 دون  إعادة تنسيق وتظبيط تنسيق التقرير وتصغير الحقول والخطوط لتلائم حجم ال A4 كما اشار إليها الاستاذ Moosak بخاصية في الطابعة ونفس الشيء تطبق على الاكسس

[Foksh]

37 دقائق مضت, طاهر اوفيسنا said:

عفوا على المداخلة اساتذة في الورد كنت نقوم بطباعة ورق حجم A3 بحجم A4 دون  إعادة تنسيق وتظبيط تنسيق التقرير وتصغير الحقول والخطوط لتلائم حجم ال A4 كما اشار إليها الاستاذ Moosak بخاصية في الطابعة ونفس الشيء تطبق على الاكسس

اختلف الموضوع بين تطبيقات نفس الشركة ، ففي اكسل يوجد في الطباعة ميزة اعادة التحجيم ، بينما في اكسيس غير موجودة ، وكذلك وورد . قد توجد ميزات تختلف فيما بينها.

[moho58]

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

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

استخدم الكود التالي في زر ، وشاهد النتيجة على سبيل المثال بحفظ الملف بصيغة 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 179.23 kB · 10 downloads

 

جزاك الله خيرا أخي @Foksh

هناك اختلاف قليل في شكل التقرير اسماء المواد

[moho58]

8 ساعات مضت, Moosak said:

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

وهذه تجربتي :

 

base_A.accdb 600 kB · 8 downloads

جزاك الله خيرا أخي @Moosak

استفسار : ممكن أسماء المواد : تكون مكتوبة بالعكس مثلا : التربية البدنية التقييم الأول : من الأعلى الإسفل كما في الصورة المرفقة 

مع الإبقاء على خاصية الجدول كله  مكــــدس

ومنه يكون الحل قريب جدا جدا عن طريق حشر الحقول

من خلال مداخلتكم  الأساتذة الكرام :

نفهم ان خاصية إعادة تحجيم الورقة أو تصغيره غير موجودة في الأكسيس 

بينما موجودة في الإكسيل

 

تشكراتي الخالصة على اهتمامكم وتفاعلكم مع موضوعي

[moho58]

من خلال مداخلتكم  الأساتذة الكرام :

نفهم ان خاصية إعادة تحجيم الورقة أو تصغيره غير موجودة في الأكسيس 

بينما موجودة في الإكسيل

 

تشكراتي الخالصة على اهتمامكم وتفاعلكم مع موضوعي

[Foksh]

منذ ساعه, moho58 said:

من خلال مداخلتكم  الأساتذة الكرام :

نفهم ان خاصية إعادة تحجيم الورقة أو تصغيره غير موجودة في الأكسيس 

بينما موجودة في الإكسيل

 

تشكراتي الخالصة على اهتمامكم وتفاعلكم مع موضوعي

وباعتقادي ان الحل المقترح من الأستاذ @Moosak ، هو الأنسب لك ولمشكلتك ، بغض النظر عن اتجاه النص ( لا اعتقد انه يمثل مشكلة كبيرة ) الا اذا اردت الإستغناء عن مربعات النص بصورة لكل حقل بحيث تكتب صورة وترفقها في التقرير بدلاً من المربع النصي !!!

[Barna]

منذ ساعه, Foksh said:

وباعتقادي ان الحل المقترح من الأستاذ @Moosak ، هو الأنسب لك ولمشكلتك ، بغض النظر عن اتجاه النص ( لا اعتقد انه يمثل مشكلة كبيرة ) الا اذا اردت الإستغناء عن مربعات النص بصورة لكل حقل بحيث تكتب صورة وترفقها في التقرير بدلاً من المربع النصي !!!

كما ذكر اخي @Foksh صورة او ورقة اكسل وتكتب كل العناوين فيها وجعلها بدل مربعات النص او ورقة وورد

[moho58]

جزاكم الله خيرا اساتذاتنا الأفاضل على مشاركاتكم وتفاعلاتكم في موضوعي هذا 

[moho58]

في 5‏/3‏/2025 at 15:15, Moosak said:

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

وهذه تجربتي :

 

base_A.accdb 600 kB · 17 downlo

 

بارك الله فيك وجزاك الله خيرا استاذنا الفاضل