منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال بخصوص طباعة الكريستال ريبورت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص طباعة الكريستال ريبورت (/showthread.php?tid=27425)

الصفحات: 1 2

سؤال بخصوص طباعة الكريستال ريبورت - Emam emam - 12-11-18

السلام عليكم اخوتي الكرام
عندي برنامج وبستخدم فيه الكريستال ريبورت واكسيس 2007
والبرنامج شغال تمام وجربته علي الجهاز عندي وبا يطبع التقارير والامور تمام
ولكن عند نقله الي جهاز العميل
ظهرت عندي مشكله 
وهي انه عند الغط علي زر طباعه  لا يفعل شئ
هل البرنامج مش متعرف علي الطباعه ولا ايه؟
واذا كان لابد من تحديد اسم الطابعه للبرنامج اثناء التصميم فهل من طريقه ان العميل هو اللي يحدد اسم الطابعه 
مع العلم ان الطابعه عندي هي   HP LaserJet 1005
وعند العميل      HP Laser Jet P 3005
الرجاء المساعده وبارك الله فيكم

RE: سؤال بخصوص طباعة الكريستال ريبورت - عبد العزيز البسكري - 12-11-18

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


RE: سؤال بخصوص طباعة الكريستال ريبورت - Rabeea Qbaha - 12-11-18

هل قمت بتثبيت crystal reports run time عند العميل ؟؟

RE: سؤال بخصوص طباعة الكريستال ريبورت - Emam emam - 12-11-18

(12-11-18, 11:38 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
إبتدأت تقريبا منذ عام بالإشتغال على الفيجوال ستيديو .. خلال هذه المدّة إطّلعت على آلاف المشاريع .. و لم ألاحظ يوما ذكر و كتابة اسم الطابعة بأكواد الطباعة أخي الكريم .. إلا قد تكون عن قصد لأغراض أخرى
تحياتي

اخي بارك الله فيك
انا عاوز اتاكد بس اذا كان هناك اكواد لتحديد الطابعه ام لا 
بس حضرت كده اكدت لي انه لا يتم تحديد الطابعه . فما المشكله ربما اكون اخطأت بشيئ ما
(12-11-18, 11:38 PM)Rabeea Qbaha كتب : هل قمت بتثبيت crystal reports run time عند العميل ؟؟

هل حضرتك  تقصد برنامج الكريستال ريبورت اللي انا مثبته عندي علي الجهاز ؟
ان كان كذلك فقد قمت بتثبيته بالفعل عند العميل والمشكله موجوده

RE: سؤال بخصوص طباعة الكريستال ريبورت - عبد العزيز البسكري - 12-11-18

السّلام عليكم و رحمة الله و بركاته
 أخي الكريم .. ما يجب فعله مع العميل هو ما أشار إليه أخي الغالي " rabeea qbaha " بالمشاركة أعلاه .. ثم المحافظة دائما بوضع التقارير بنفس مجلد المشروع Debug ..و إذا كان الأمر ممكنا أن تقتص الجزء الخاص بالطباعة لنقوم بتجربته على أجهزتنا بافتراضنا كعملاء
تحياتي


RE: سؤال بخصوص طباعة الكريستال ريبورت - sads - 12-11-18

في تعليق سابق لأخي Rabeea Qbaha بإحدى المشاركات ,والتي أستفدت منها


مرحبا اخي 
انا شخصيا كنت من الاشخاص الذي يكرة crystal 
وكنت اقوم بتصدير البيانات الى excel لتجنب ال crystal 
ولكن قمت بمتابعه playlist على يوتوب تبيت لي ان الامر سها جدا
وانا حاليا لا استخجم غير crystal 


والبرنامح لدى العميل صغير الحجم ولا يتطلب دقيقتين تنصيب 

على كل حال هذا الشرح باليوتوب اذا حابب :

https://www.youtube.com/watch?v=T_1CJZTl...c_YuLGUUvR


RE: سؤال بخصوص طباعة الكريستال ريبورت - Rabeea Qbaha - 13-11-18

ليس عليك تحميل ال crystal report كامل عند العميل. تستطيع تنزيل نسخة ال run time فقط 

هل تقوم بعرض التقرير قبل الطباعة ام تطبع مباشره ؟؟ اذا تقوم بعرضه ؟  هل يظهر عند العميل ؟؟
اذا لا بكون مشكله بنسخة crystal او ملفات الريبورت غير موجودة .

RE: سؤال بخصوص طباعة الكريستال ريبورت - Emam emam - 13-11-18

(13-11-18, 12:01 AM)Rabeea Qbaha كتب : ليس عليك تحميل ال crystal report كامل عند العميل. تستطيع تنزيل نسخة ال run time فقط 

هل تقوم بعرض التقرير قبل الطباعة ام تطبع مباشره ؟؟ اذا تقوم بعرضه ؟  هل يظهر عند العميل ؟؟
اذا لا بكون مشكله بنسخة crystal او ملفات الريبورت غير موجودة .

اقوم بالطباعه مباشرة
ولكن اذا لم يكن هناك اكواد خاصه بالطباعه ساجرب تشغيله علي جهاز اخر ربما اخطات انا بشئ ما 
بارك الله فيكم جميعا والله اني اشكركم جميعا علي اهتمامكم

RE: سؤال بخصوص طباعة الكريستال ريبورت - حريف برمجة - 13-11-18

(12-11-18, 11:38 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
إبتدأت تقريبا منذ عام بالإشتغال على الفيجوال ستيديو .. خلال هذه المدّة إطّلعت على آلاف المشاريع .. و لم ألاحظ يوما ذكر و كتابة اسم الطابعة بأكواد الطباعة أخي الكريم .. إلا قد تكون عن قصد لأغراض أخرى
تحياتي

مرحبا اخي عبدالعزيز البسكري أيضا اخي السائل مرحبا ،،

بخصوص جلب أسماء الطابعات الموجوده على الحاسب في كومبو بوكس هذا الكود :

كود :
'Get all Printers
       Dim InstalledPrinters As String

       ' Find all printers installed
       For Each InstalledPrinters In
           System.Drawing.Printing.PrinterSettings.InstalledPrinters
           Me.ComboBox1.Items.Add(InstalledPrinters)
       Next InstalledPrinters
       'End

بخصوص جلب الطابعة الإفتراضية فقط هذا الكود :

كود :
'Get the Default Printer
       Dim objSettings As New Printing.PrinterSettings
       ComboBox1.SelectedText = objSettings.PrinterName.ToString
       'End


بخصوص الطباعة بتحديد اسم الطابعة هذا الكود :

كود :
Dim rptShippingLabel1 As New CrystalReport1
   Dim PrinterSettings1 As New Printing.PrinterSettings
   Dim PageSettings1 As New Printing.PageSettings

   'Replace it with your printer name
   PrinterSettings1.PrinterName = "Microsoft XPS Document Writer"
   rptShippingLabel1.PrintToPrinter(PrinterSettings1, PageSettings1, False)


بخصوص الطباعة المتعددة بتحديد أكثر من طابعة هذا الكود :

كود :
strSQL = "your select statement"
       Dim crptDV As New ReportDocument()
       Dim da As New SqlDataAdapter(strSQL, SqlCon)
       Dim ds As New DataSet
       da.Fill(ds)
       If ds.Tables(0).Rows.Count = 0 Then
           Exit Sub
       End If
       Dim path As String //Report Path
       crptDV.Load(path & "\reports\ReportName.rpt")
       End If

       crptDV.PrintOptions.PrinterName = PrinterName1
       crptDV.PrintToPrinter(1, True, 0, 0)

       crptDV.PrintOptions.PrinterName = PrinterName2
       crptDV.PrintToPrinter(1, True, 0, 0)
       crptDV.Close()
       crptDV.Dispose()


RE: سؤال بخصوص طباعة الكريستال ريبورت - rmnr - 13-11-18

وجدت مشاركة فيها تفصل لطباعة تقرارير الكريستال ريبورت
[ تمّ الحل ] : مساعدة حول الطباعة المخصّصة