السّلام عليكم و رحمة الله و بركاته
جزاك الله خير الجزاء أخي الكريم و زادك من علمه و فضله و حفظك و رعاك و رزقك من حيث تحتسب و من حيث لا تحتسب
إفاداتك دقيقة ماشاء الله
إستفدت كثيرا من تدخّلاتك و بكل صدق
سأحاول العمل بتنسيق A5 لاحقًا و سأخبرك بذلك
واصلت العمل أخي الكريم على نفس الملف و بفضل الله ثم فضلك إقتربت من إنهاء الملف
كود الطباعة المخصّصة الذي تكرّمت به سيادتك يشتغل 100 بالمئة .. أنا الذّي لم أنتبه أنّه يجب كتابة عدديْن متتالييْن 11 - 12 أو 14 -15 أو 19 - 20 مثلا
إشكالية أخيرة أخي الفاضل ..
هل يمكن جعل أمر الطباعة متواصلاً للصفحات حسب الطلب بالتاكست 1 و التاكست 2 دون ظهور مربّع الطباعة و بدون أي تدخّل منّي
لو كتبت الرقم 6 بالتاكست بكس 1 و كتبت الرقم 17بالتاكست بكس 2 .. يتمّ طباعة الكشوف من التّلميذ المسجل حسب الحقل IDD ..من التلميذ رقم 6 لغاية المسجّل رقم 17 .. ستتم الطباعة التلقائية ل 6 ورقات دون أي تدخّل منّي
إحتراماتي
تستطيع الطباعة بدون الحاجة إلى أداة عرض الكريستال ريبورت CrystalReportViewer1
للطباعة مباشرة إلى الطابعة الافتراضية
PHP كود :
rpt1.PrintToPrinter(1, True, 0, 0)
للطباعة إلى طابعة يتم تحديدها عن طريق مربع حوار الطباعة
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)
السّلام عليكم و رحمة الله و بركاته
كل الشّكر و التّقدير و الاحترام و الامتنان و العرفان بالجميل أخي الفاضل
جزاك الله خير الجزاء و أنار بك درب السّائلين أمثالي
أرجو المعذرة .. أتعبتك معي .. أدعو الله أن يعوّضك بأحسنَ منها
بقيت إشكالية الطباعة .. من .. إلى .. عالقة .. عسى الله أن يجعل لنا معها مخرجًا
أجدّد شكري و تقديري
تحياتي واحتراماتي و تقييماتي
لم أجد الاشكالية التي تتحدث عنها
استخدمت المرفق الأخير الذي منك كما هو فقط قمت بإضافة أمر الطباعة
ثم جربت الطباعة من وإلى فتمت الطباعة في المجال المحدد حسب المطلوب
PHP كود :
Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs) Handles 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(SQLstr, Conn)
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
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " طالب برمجة "
أدعو الله أن يسهّل أمورك مثلما سهّلت أموري بمد يد العون و المساعدة المثمرة و الفعّالة و التّجاوب الطيّب
كل الإمتنان و العرفان بجميلك معي و جميل أعمالك
و هو المطلوب طولاً و عرضًا بعد تجربة الطباعة
إحتراماتي
