[صالح عبدالله]

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

  Dim report As New CrystalReport6

        report.Load(Application.StartupPath & "CrystalReport6.rpt") 'your report file and path

        Dim dt5 As New DataTable

        dt5 = Form13.DataGridView1.DataSource

        report.SetDataSource(dt5)

        Dim r5 As New Form26

        report.SetParameterValue("Employee_Name", Form13.ComboBox1.Text)

        report.SetParameterValue("Date_from", Form13.DateTimePicker1.Text)

        ''cr4.SetParameterValue("Title", Label14.Text)

        report.SetParameterValue("Date_To", Form13.DateTimePicker2.Text)

        r5.CrystalReportViewer1.Zoom(300%)

        r5.CrystalReportViewer1.ReportSource = report

        r5.ShowDialog()

        'if you normally setlogon and paramaters and stuff do that here

        report.PrintOptions.PrinterName = "Microsoft Print to PDF" 'your windows printer name

        report.PrintToPrinter(1, False, 0, 0)

        'Me.Dispose()

        MessageBox.Show("تم تصدير الملف كـ PDF ", "تنبيه") 

شاكراً تعاونكم