+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF (/showthread.php?tid=48400)
حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - صالح عبدالله - 30-04-24
السلام عليكم ورحمة الله وبركاته
قمت بعمل نموذج كريستال ريبورت وأريد أن اقوم بتصديره على شكل ملف 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 ", "تنبيه")
شاكراً تعاونكم
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - عبد العزيز البسكري - 01-05-24
شوف أخي الكريم هذا الموضوع
أنا قمت بوضع مثال للتحميل ربما تختلف طريقة التصدير و يفيدك إن شاء الله
تحياتي
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - صالح عبدالله - 01-05-24
السلام عليكم ورحمة الله وبركاته
عفواً الأستاذ عبدالعزيز صفحة التحميل لاتعمل
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - مصمم هاوي - 01-05-24
(01-05-24, 08:07 AM)صالح عبدالله كتب : السلام عليكم ورحمة الله وبركاته
عفواً الأستاذ عبدالعزيز صفحة التحميل لاتعمل
أخي الحبيب وأستاذي الكريم عبد العزي
بارك الله فيك وجزاك كل خير على المثال المفيد
وبالنسبة للصفحة قمتُ بتجربة الرابط وهو يعمل بكفاءة، وتم تحميل الملف بنجاح
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - Taha Okla - 01-05-24
بعض البلدان تقوم بحظر الكثير من مواقع الرفع، بسبب أن البعض يقوم برفع الفيديوهات الغير مجانية(من مسلسلات وأفلام).
وتكون شركات الاتصالات فيها متعاقدة مع بعض المحطات التلفزيونية،
من أجل ذلك (كحماية لحقوقهم) تقوم بحظر كل سيرفر يرفع عليه أفلام ومسلسلات.
على كلٍ يمكنك تحميل الملف من الميديافير
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - صالح عبدالله - 01-05-24
السلام عليكم ورحمة الله وبركاته
الشكر الجزيل للجميع على الجهد المبذول
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - عبد العزيز البسكري - 02-05-24
بارك الله فيك أخي الغالي
Taha Okla
و بارك الله بالجميع
RE: حل مشكلة في تصدير ملف كريستال ريبورت إلى PDF - صالح عبدالله - 02-05-24
السلام عليكم ورحمة الله وبركاته
أتقدم لكم بالشكر الجزيل على مابذلتموه من جهد ووقت وهذا من كرمكم وجودكم ومن لايشكر الناس لايشكر الله
قمت بحل الموضوع بطريقة بسيطة وهي أنني قمت بإزالة المسافة ( Space ) التي تتكون قبل بداية الكلمة حيث أقوم بتظليلها ثم أقوم بتحويل الكتابة الى اللغة الانجليزية ثم اقوم بمسح المسافة الزائدة قبل بداية الكلمة ( مع أنني لا أعرف كيف جاءت هذه المسافة قبل الكلمة )
ثم قمت بإزالة السطرين التاليين من الكود وصرت أطبع من خلال اختيار طابعة ( Microsoft Print to PDF ) من خلال الكريستال ريبورت
eport.PrintToPrinter(1, False, 0, 0)
'Me.Dispose()
والحمد لله تم حل المشكلة بنجاح وقد عرضت الحل لعل أحداً يستفيد منه مستقبلاً ولكم خالص شكري