[جيولوجي مبتدئ]

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

لكم جزيل الشكر 
دمتم بود

[الكاتب]

كود :

Try
                                        Dim CrExportOptions As ExportOptions
                                        Dim CrDiskFileDestinationOptions As New _
                                        DiskFileDestinationOptions()
                                        Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
                                        CrDiskFileDestinationOptions.DiskFileName =
                                                                    "C:\crystalExport.pdf"
                                        CrExportOptions = rpt.ExportOptions
                                        With CrExportOptions
                                            .ExportDestinationType = ExportDestinationType.DiskFile
                                            .ExportFormatType = ExportFormatType.PortableDocFormat
                                            .DestinationOptions = CrDiskFileDestinationOptions
                                            .FormatOptions = CrFormatTypeOptions
                                        End With
                                        rpt.Export()
                                    Catch ex As Exception
                                        MsgBox(ex.ToString)
                                    End Try

[جيولوجي مبتدئ]

(02-09-22, 10:36 PM)الكاتب كتب :

كود :

             Try
                                       Dim CrExportOptions As ExportOptions
                                       Dim CrDiskFileDestinationOptions As New _
                                       DiskFileDestinationOptions()
                                       Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
                                       CrDiskFileDestinationOptions.DiskFileName =
                                                                   "C:\crystalExport.pdf"
                                       CrExportOptions = rpt.ExportOptions
                                       With CrExportOptions
                                           .ExportDestinationType = ExportDestinationType.DiskFile
                                           .ExportFormatType = ExportFormatType.PortableDocFormat

[url=http://vb4arb.com/vb/newreply.php?tid=42321&replyto=184953#][/url]

سأجرب الكود ثم أعطيك النتيجة بارك الله فيك 

لك جزيل الشكر 
دمت بود

---

السلام عليكم ورحمة الله وبركاته 
آسف لإزعاجك أخي الكاتب مازالت المشكلة قائمة حيث تظهر النصوص صغيرة عن التقرير ا لأصلي 


لك جزيل الشكر 

دمت بود

[الكاتب]

الأخ جيولوجي متى تظهر الرموز والخطوط صغيرة بعد الطباعة ؟
قد يكون هناك شيء ما فعلته الخطوط أو بعض المكتبات ناقصة
على الأقل تقدير صور مقطع فيديو أو رفق جزء من الكود لنفحصه أو نرى الإشكالية لديك

[جيولوجي مبتدئ]

[attachment=28171 كتب :الكاتب pid='184978' dateline='1662214491']     الأخ جيولوجي متى تظهر الرموز والخطوط صغيرة بعد الطباعة ؟
قد يكون هناك شيء ما فعلته الخطوط أو بعض المكتبات ناقصة
على الأقل تقدير صور مقطع فيديو أو رفق جزء من الكود لنفحصه أو نرى الإشكالية لديك

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

وقد جربت الطباعة من خلال Microsoft print to PDF فظهرت النتيجة ممتازة ولكن الطريقة غير عملية لذلك قمت بحل مؤقت وهو الطباعة من خلال وضع زر  يجبر المستخدم على الطباعة من خلال Microsoft print to PDF

[الكاتب]

هذه المربعات لا تظهر إلا في حال وجود فراغات وخط غير موجود في مجلد الخطوط C:\Windows\Fonts
اضغط الزر اليمين بالماوس على الحقل واختر Format object ثم Font حدد نوع الخط Arial
ثم من Paragraph حدد اتجاه الخط Right to Left

* تأكد من مسح الفراغات بالتضليل عليها ورؤية المسافات
* تأكد أن نوع الخط المستخدم في الحقول موجود في مسار C:\Windows\Fonts

[جيولوجي مبتدئ]

(04-09-22, 04:58 PM)الكاتب كتب : هذه المربعات لا تظهر إلا في حال وجود فراغات وخط غير موجود في مجلد الخطوط C:\Windows\Fonts
اضغط الزر اليمين بالماوس على الحقل واختر Format object ثم Font  حدد نوع الخط Arial
ثم من Paragraph  حدد اتجاه الخط Right to Left

* تأكد من مسح الفراغات بالتضليل عليها ورؤية المسافات
* تأكد أن نوع الخط المستخدم في الحقول موجود في مسار C:\Windows\Fonts

السلام عليكم ورحمة الله وبركاته 
ألف شكر لإهتمامك وبارك الله فيك 

بالنسبة للمربعات في الحقل الأول على اليمين فهذا يتخص بالترقيم التلقائي Record Number  وهي من Special Fields  وهي إحدى أدوات الكريستال ريبورت كما تعلم المقصود أن المربعات التي تظهر ليست نص قمت بوضعه 
أما بالنسبة للمربعات التي تظهر في الحقل الأخير الموجود في اليسار فإنه يظهر الأرقام على هيئة مربعات علماً أنه في تقرير الكريستال ريبورت تظهر الأرقام بشكل طبيعي 

آسف أخي أعرف أنني أتعبتك معي 

لك جزيل الشكر 
دمت بود