السلام عليكم ورحمة الله وبركاته
إخواني أريد أن أحول تقرير كريستال ريبورت إلى 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'][attachment=28171]الأخ جيولوجي متى تظهر الرموز والخطوط صغيرة بعد الطباعة ؟
قد يكون هناك شيء ما فعلته الخطوط أو بعض المكتبات ناقصة
على الأقل تقدير صور مقطع فيديو أو رفق جزء من الكود لنفحصه أو نرى الإشكالية لديك
السلام عليكم ورحمة الله وبركاته أولاً أشكرك إهتمامك وحرصك على المساعدة فجزاك الله خيرا
ثانياً آسف لتأخري في الرد عليك
وبالنسبة للكود فقد جربت نفس الكود الذي قمت بإرساله وقد جربت كثيراً من الأكواد وتظهر نفس المشكلة وهي أن بعض الكلمات مشوهة والبعض يكون حجم الخط أصغر من الموجود في التقرير
وقد جربت الطباعة من خلال 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 وهي إحدى أدوات الكريستال ريبورت كما تعلم المقصود أن المربعات التي تظهر ليست نص قمت بوضعه
أما بالنسبة للمربعات التي تظهر في الحقل الأخير الموجود في اليسار فإنه يظهر الأرقام على هيئة مربعات علماً أنه في تقرير الكريستال ريبورت تظهر الأرقام بشكل طبيعي
آسف أخي أعرف أنني أتعبتك معي
لك جزيل الشكر
دمت بود