تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب طباعة 4 تقارير فى ان واحد ورا بعضهم فى نموذج طباعه
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب

انا عندى تقارير كريستال ريبورت

4 تقارير

محتاج كود لطباعة التقارير الاربعه وره بعض يعنى مثلا
التقرير الاول يظهر فى صفحة الطباعة الاولى
التقرير الثانى يظهر فى السفحة الثانية ...... وهاكذا

وهذا الكود الذى استخدمه
PHP كود :
Using DAdp3 As New SqlDataAdapter("SELECT * FROM [hsabmlz1] WHERE  [tetname] = @name AND [date1] BETWEEN @date1 AND @date2 "con)

            
DAdp3.SelectCommand.Parameters.AddWithValue("@name"txttech.Text)
            
DAdp3.SelectCommand.Parameters.AddWithValue("@date1"date1.Value.Date)
            
DAdp3.SelectCommand.Parameters.AddWithValue("@date2"date2.Value.Date)
            
Using MyDs2 As New DataSet
                MyDs2
.Clear()
                
DAdp3.Fill(MyDs2"hsabmlz1")
                
Dim rpt As New hsabmlzama
                rpt
.Load()
                
rpt.SetDataSource(MyDs2.Tables("hsabmlz1"))


                
With crConnectionInfo
                    
.ServerName "192.168.0.101"
                    
.DatabaseName "LibraryData"
                    
.UserID "sa"
                    
.Password "ahmed"
                
End With
                CrTables 
rpt.Database.Tables
                
For Each CrTable In CrTables
                    crtableLogoninfo 
CrTable.LogOnInfo
                    crtableLogoninfo
.ConnectionInfo crConnectionInfo
                    CrTable
.ApplyLogOnInfo(crtableLogoninfo)
                
Next

                FrmPr
.CrystalReportViewer1.ReportSource rpt
                FrmPr
.CrystalReportViewer1.ShowGroupTreeButton False
                FrmPr
.CrystalReportViewer1.RightToLeft Windows.Forms.RightToLeft.Yes
                FrmPr
.CrystalReportViewer1.Zoom(90%)
                
FrmPr.CrystalReportViewer1.Refresh()
                
FrmPr.CrystalReportViewer1.Show()
                
FrmPr.ShowDialog()
                
DAdp3.Dispose()
                
con.Close()
            
End Using
        End Using 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#2
اى موجيب يا شباب
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة طباعة ملف RAWAN.HQ 0 44 07-02-17, 11:17 AM
آخر رد: RAWAN.HQ
  نموذج مستمر ..Continuous form haydar2000 0 36 07-02-17, 01:21 AM
آخر رد: haydar2000
  [VB.NET] طباعة متعددة الأسطر kirama 1 86 02-02-17, 12:20 AM
آخر رد: mohamed haroon
  مشكلة فى طباعة البون nabil.1710 0 104 26-01-17, 05:45 PM
آخر رد: nabil.1710
Rainbow طباعة بيانات في DGV باستخدام VB EXPRESS وليس V STUDIO فاطمة غ 5 196 26-12-16, 04:24 PM
آخر رد: محمد كريّم
  طباعة صورة PictureBox1 بعرض الصفحة .. أرجو المساعدة ahmed_elwerfalli 3 204 24-12-16, 05:59 PM
آخر رد: ahmed_elwerfalli
  [سؤال] مشكلة في كتابة عربي مع انجليزي في نص واحد ali.alfoly 7 305 14-12-16, 03:01 PM
آخر رد: ali.alfoly
Rainbow طريقة عمل حضور وانصراف يتجدد يوميًا+طباعة سجلات الحضور والانصراف فاطمة غ 5 390 14-12-16, 02:47 PM
آخر رد: tryold
  [VB.NET] ايقونة متحركة علي نموذج tifagreet 2 182 23-11-16, 12:57 PM
آخر رد: bahgat okasha
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 381 10-11-16, 10:02 PM
آخر رد: Programmer_2017

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


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