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

(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]

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

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

---

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


لك جزيل الشكر 

دمت بود