تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : مساعدة حول الطباعة المخصّصة
#11
السّلام عليكم و رحمة الله و بركاته
جزاك الله خير الجزاء أخي الكريم و زادك من علمه و فضله و حفظك و رعاك و رزقك من حيث تحتسب و من حيث لا تحتسب
إفاداتك دقيقة ماشاء الله
إستفدت كثيرا من تدخّلاتك و بكل صدق
سأحاول العمل بتنسيق A5 لاحقًا و سأخبرك بذلك
واصلت العمل أخي الكريم على نفس الملف و بفضل الله ثم فضلك إقتربت من إنهاء الملف
كود الطباعة المخصّصة الذي تكرّمت به سيادتك يشتغل 100 بالمئة .. أنا الذّي لم أنتبه أنّه يجب كتابة عدديْن متتالييْن 11 - 12 أو 14 -15 أو 19 - 20 مثلا
إشكالية أخيرة أخي الفاضل ..
هل يمكن جعل أمر الطباعة متواصلاً للصفحات حسب الطلب بالتاكست 1 و التاكست 2 دون ظهور مربّع الطباعة و بدون أي تدخّل منّي
لو كتبت الرقم 6 بالتاكست بكس 1 و كتبت الرقم 17بالتاكست بكس 2 .. يتمّ طباعة الكشوف من التّلميذ المسجل حسب الحقل IDD ..من التلميذ رقم 6 لغاية المسجّل رقم  17 .. ستتم الطباعة التلقائية ل 6 ورقات دون أي تدخّل منّي
إحتراماتي


الملفات المرفقة
.rar   الطباعة.rar (الحجم : 242.9 ك ب / التحميلات : 142)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Moneam
#12
تستطيع الطباعة بدون الحاجة إلى أداة عرض الكريستال ريبورت CrystalReportViewer1

للطباعة مباشرة إلى الطابعة الافتراضية
PHP كود :
rpt1.PrintToPrinter(1True00

للطباعة إلى طابعة يتم تحديدها عن طريق مربع حوار الطباعة
PHP كود :
Using prnt As New PrintDialog
    If prnt
.ShowDialog Windows.Forms.DialogResult.OK Then
        rpt1
.PrintToPrinter(prnt.PrinterSettings, New System.Drawing.Printing.PageSettings(prnt.PrinterSettings), False)
 
   End If
End Using 

للطباع مباشرة إلى طابعة محددة بالاسم
PHP كود :
Dim prnt As New System.Drawing.Printing.PrinterSettings
prnt
.PrinterName "إسم الطابعة"
rpt1.PrintToPrinter(prnt, New System.Drawing.Printing.PageSettings(prnt), False
الرد }}}
#13
السّلام عليكم و رحمة الله و بركاته
كل الشّكر و التّقدير و الاحترام و الامتنان و العرفان بالجميل أخي الفاضل
جزاك الله خير الجزاء و أنار بك درب السّائلين أمثالي
أرجو المعذرة .. أتعبتك معي .. أدعو الله أن يعوّضك بأحسنَ منها
بقيت إشكالية الطباعة .. من .. إلى .. عالقة .. عسى الله أن يجعل لنا معها مخرجًا
أجدّد شكري و تقديري
تحياتي واحتراماتي و تقييماتي 
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#14
لم أجد الاشكالية التي تتحدث عنها

استخدمت المرفق الأخير الذي منك كما هو فقط قمت بإضافة أمر الطباعة
ثم جربت الطباعة من وإلى فتمت الطباعة في المجال المحدد حسب المطلوب
PHP كود :
Private Sub Button2_Click_1(ByVal sender As ObjectByVal e As EventArgsHandles Button2.Click
    Dim Xxx 
Val(TextBox1.Text)
 
   Dim yyy Val(TextBox2.Text)
 
   Dim dt As New DataTable
    SQLstr 
"Select * From STUDENT where [IDD] BETWEEN @id1 and @id2 ORDER BY [IDD]"
 
   Dim DataAdapters As New OleDbDataAdapter(SQLstrConn)
 
   DataAdapters.SelectCommand.Parameters.AddWithValue("@id1"Xxx)
 
   DataAdapters.SelectCommand.Parameters.AddWithValue("@id2"yyy)
 
   If DataAdapters.Fill(dt) > 0 Then
        Dim rpt1 
As New Crystal2
        rpt1
.SetDataSource(dt)

 
       'Dim frm As New Form5
        '
frm.CrystalReportViewer1.ReportSource rpt1
        
'frm.ShowDialog()

        rpt1.PrintToPrinter(1, True, 0, 0)

    Else
        MsgBox("لا توجد نتائج بين الرقمين")
    End If
End Sub 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Amir_Alzubidy , Moneam
#15
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " طالب برمجة "
أدعو الله أن يسهّل أمورك مثلما سهّلت أموري بمد يد العون و المساعدة المثمرة و الفعّالة و التّجاوب الطيّب
كل الإمتنان و العرفان بجميلك معي و جميل أعمالك
و هو المطلوب طولاً و عرضًا بعد تجربة الطباعة
إحتراماتي

قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Moneam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تعديل تقرير فرعي tahaayyoub 0 1,412 06-06-20, 10:46 PM
آخر رد: tahaayyoub
  [ تمّ الحل ] : إخفاء ال Text Object من صفحة الكريستال ريبورت عبد العزيز البسكري 7 2,899 24-02-20, 12:34 AM
آخر رد: alsalamoni
  اواجة مشكلة في crystal Reports [تم الحل] Rabeea Qbaha 1 3,076 04-07-19, 11:05 PM
آخر رد: Rabeea Qbaha
  [ تمّ الحل ] : إظهار رأس التّقرير و بيانات نهايته بالصفحات المخصّصة عبد العزيز البسكري 9 3,688 18-05-19, 02:46 AM
آخر رد: عبد العزيز البسكري
  طباعة تقرير ال crystal report مباشرة الى الطابعة دون فتحة - تم الحل Rabeea Qbaha 0 3,944 19-04-19, 09:52 PM
آخر رد: Rabeea Qbaha
  اواجة مشكلة في crystal Reports - تم الحل Rabeea Qbaha 2 2,171 19-04-19, 02:40 PM
آخر رد: Rabeea Qbaha
  [VB.NET] الدوت نت و الطباعة tarek 2 2,037 14-04-19, 01:17 PM
آخر رد: tarek
  في ما يخص الطباعة hassan 14 17 4,502 11-04-19, 09:16 AM
آخر رد: elgokr
  ( تم الحل ) الترتيب في Crystal report dell 5 2,540 04-04-19, 01:34 AM
آخر رد: dell
  [سؤال] مشكلة أثناء الطباعة Jounior_P 8 3,114 28-02-19, 02:08 PM
آخر رد: حريف برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم