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

السلام عليكم ورحمة الله وبركاته
قمت بعمل نموذج كريستال ريبورت وأريد أن اقوم بتصديره على شكل ملف 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 ", "تنبيه") 

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

[عبد العزيز البسكري]

شوف أخي الكريم هذا الموضوع

أنا قمت بوضع مثال للتحميل ربما تختلف طريقة التصدير و يفيدك إن شاء الله

http://vb4arb.com/vb/showthread.php?tid=33434

تحياتي

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

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

عفواً الأستاذ عبدالعزيز صفحة التحميل لاتعمل

[مصمم هاوي]

(01-05-24, 08:07 AM)صالح عبدالله كتب : السلام عليكم ورحمة الله وبركاته 

عفواً الأستاذ عبدالعزيز صفحة التحميل لاتعمل

أخي الحبيب وأستاذي الكريم عبد العزي
بارك الله فيك وجزاك كل خير على المثال المفيد

وبالنسبة للصفحة قمتُ بتجربة الرابط وهو يعمل بكفاءة، وتم تحميل الملف بنجاح

[Taha Okla]

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

على كلٍ يمكنك تحميل الملف من الميديافير

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

السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل للجميع على الجهد المبذول

[عبد العزيز البسكري]

بارك الله فيك أخي الغالي

Taha Okla 

و بارك الله بالجميع

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

السلام عليكم ورحمة الله وبركاته 
أتقدم لكم بالشكر الجزيل على مابذلتموه من جهد ووقت وهذا من كرمكم وجودكم ومن لايشكر الناس لايشكر الله 

قمت بحل الموضوع بطريقة بسيطة وهي أنني قمت بإزالة المسافة ( Space ) التي تتكون قبل بداية الكلمة حيث أقوم بتظليلها ثم أقوم بتحويل الكتابة الى اللغة الانجليزية ثم اقوم بمسح المسافة الزائدة قبل بداية الكلمة ( مع أنني لا أعرف كيف جاءت هذه المسافة قبل الكلمة )
ثم قمت بإزالة السطرين التاليين من الكود وصرت أطبع من خلال اختيار طابعة ( Microsoft Print to PDF ) من خلال الكريستال ريبورت

eport.PrintToPrinter(1, False, 0, 0)
'Me.Dispose()

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