حفظ تقرير بصيغة PDF بناء على شريط طباعة

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

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

حفظ بصغة PDF.rar

[Foksh]

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

أخي العزيز طاهر ، الخطأ عندك في السطر التالي
 

xx = stDocName & "-" & Format([TxtMonth], "dd_mm_yyyy")

ويجب أن يكون كالآتي :-

xx = stDocName & "-" & Format([Reports]![rptTransfer_BEA_Ccp]![DATE], "dd_mm_yyyy")

السبب طبعاً انك تريد إضافة التاريخ حسب قيمة مربع نص غير موجود إلا في النموذج المخصص لشريط الطباعة prin . لذا فأن التقرير لا يتم تصديره الى ملف PDF كما تريد .

 

ولديك خطأ متكرر في طريقة تصميمك ، وهي :-

أن الاسم DATE لمربع نص = خاطئ ❌ ، وغير صحيح وقد يسبب لك مشاكل كبيرة ، والأصل الإبتعاد عن الأسماء المحجوزة لآكسيس .

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

شكرا استاذ على التصحيح اما بخصوص تسمية المربع التاريخ Date اعرف أنه يسبب مشكلة في الاصل اسمه TxtMonth ولكن استاذ عند التحويل الى صيغة PDF وقعت مشكلة في التاريخ والمبلغ مانعرف السبب نوعية الخط ام ماذا علما اني استخدم خط Sultan Medium

تم تعديل بالامس في 13:09 بواسطه طاهر اوفيسنا

[Foksh]

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

شكرا استاذ على التصحيح اما بخصوص تسمية المربع التاريخ Date اعرف أنه يسبب مشكلة في الاصل اسمه TxtMonth ولكن استاذ عند التحويل الى صيغة PDF وقعت مشكلة في التاريخ والمبلغ مانعرف السبب نوعية الخط ام ماذا علما اني استخدم خط Sultan Medium

اخي الكريم ، المشكلة قد تكون بحجم الخط ، حاول إما تكبير مربع النص ، أو تصغير حجم الخط !!!

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

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

اخي الكريم ، المشكلة قد تكون بحجم الخط ، حاول إما تكبير مربع النص ، أو تصغير حجم الخط !!!

لا استاذ ليست هذه المشكلة علما انه نفس التقرير ويتم حفظة بصيغة PDF ولكن من جهة اخرى بدون شريط prin تظهر الارقام عادي بدون مشاكل اني ارى المشكلة في الكود

تم تعديل بالامس في 13:45 بواسطه طاهر اوفيسنا

[Foksh]

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

لا استاذ ليست هذه المشكلة علما انه نفس التقرير ويتم حفظة بصفة PDF ولكن من جهة اخرى تظهر الارقام عادي بدون مشاكل اني ارى المشكلة في الكود

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

علماً أن الخط Sultan Medium ليس موجوداً على جهازي .

 

rptTransfer_BEA_Ccp-19_01_2025.pdf

 

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

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

بعد ضبط وتغيير حجم الخط ومساحة مربع النص 0

ممكن تعطيني فكرة على ذلك استاذ

[Foksh]

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

ممكن تعطيني فكرة على ذلك استاذ

 

حفظ بصغة PDF.zip

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

شكرا استاذ تم تعديل نوعية الخط وكان الحل تمام والان استاذ كيف يتم التعديل على الكود المعدل من طرف حضرتك علما انه لديا تقريرين اذا فتحت بواسطة الفورم FrmCCp التقرير rptTransfer_BEA_CCP والفورم الثاني FrmVerment و التقرير rptDiscountDetail0 علما ان شريط الطباعةPrin واحد لهما في زوج

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

xx = stDocName & "-" & Format([Reports]![rptTransfer_BEA_Ccp]![DATE], "dd_mm_yyyy")

أتمنى انك فهمت مقصدي

[Foksh]

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

شكرا استاذ تم تعديل نوعية الخط وكان الحل تمام والان استاذ كيف يتم التعديل على الكود المعدل من طرف حضرتك علما انه لديا تقريرين اذا فتحت بواسطة الفورم FrmCCp التقرير rptTransfer_BEA_CCP والفورم الثاني FrmVerment و التقرير rptDiscountDetail0 علما ان شريط الطباعةPrin واحد لهما في زوج

أتمنى انك فهمت مقصدي

نعم فهمتك على ما أعتقد ، انت تريد زر الطباعة أن يعمل على أي تقرير تم فتحه ( في الوقت الحالي ) ، صحيح ؟؟

سنحاول الإستفادة من المتغير العام :-

Public namerpts As String

بحيث نمرر لزر التصدير اسم التقرير الحالي بشكل ديناميكي . وعليه فيصبح الكود لزر التصدير كالتالي :-

Dim stDocName As String, xx As String, strPathAndfile As String
Dim reportDate As Variant
stDocName = namerpts
On Error Resume Next
reportDate = [Reports]![namerpts]![DATE]
On Error GoTo 0
If IsNull(reportDate) Or Not IsDate(reportDate) Then
    xx = stDocName & "-" & Format(DATE, "dd_mm_yyyy")
Else
    xx = stDocName & "-" & Format(reportDate, "dd_mm_yyyy")
End If
strPathAndfile = CurrentProject.Path & "\"
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, strPathAndfile & xx & ".pdf", True

 

لم أقم بتصعيد الموضوع بكود طويل ، واقتصرت على الكود السابق لسهولته وفهمه بسهولة ,, تفضل الملف بعد التعديل ، جربه وأخبرني بالنتيجة .

ملاحظة ..

يفضل أن يكون اسم الحقل الخاص بالتاريخ متساوي في كل التقارير ، لتلافي تطوير الكود  .

 

 

حفظ بصغة PDF.zip

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

وهو كذلك شكرا استاذ Foksh