[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إضافة لما طرحه السادة الأكارم بارك الله فيهم و لهم و زادها بموازين حسناتهم .. و من باب تنوّع الأفكار

يمكن كذلك الطباعة مباشرة بدون أي إرتباط بقاعدة البيانات .. كل ما يجب فعله .. هو إضافة Text Object  من خلال صفحة الكريستال ريبورت مع مراعاة تسميتها و تسمية التاكسات بكس مثلا على الفورم .. مثلا لديك 20 تاكست بكس .. سيلزمك 20 Text Object على الكريستال ريبورت .. ثم إستعمل هذا الكود للطباعة المباشرة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

   Dim rpt1 As New Crystal1

   Dim Text1 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text1")
   Text1.Text = Me.TextBox1.Text

   Dim Text2 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text2")
   Text2.Text = Me.TextBox2.Text

   Dim Text3 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text3")
   Text3.Text = Me.TextBox3.Text

   Dim Text4 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text4")
   Text4.Text = Me.TextBox4.Text

   Dim Text5 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text5")
   Text5.Text = Me.TextBox5.Text

   Dim Text6 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text6")
   Text6.Text = Me.TextBox6.Text

   Dim Text7 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text7")
   Text7.Text = Me.TextBox7.Text

   Dim Text8 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text8")
   Text8.Text = Me.TextBox8.Text

   Dim Text9 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text9")
   Text9.Text = Me.TextBox9.Text

   Dim Text10 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text10")
   Text10.Text = Me.TextBox10.Text

   Dim Text11 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text11")
   Text11.Text = Me.TextBox11.Text

   Dim Text12 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text12")
   Text12.Text = Me.TextBox12.Text

   Dim Text13 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text13")
   Text13.Text = Me.TextBox13.Text

   Dim Text14 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text14")
   Text14.Text = Me.TextBox14.Text

   Dim Text15 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text15")
   Text15.Text = Me.TextBox15.Text

   Dim Text16 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text16")
   Text16.Text = Me.TextBox16.Text

   Dim Text17 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text17")
   Text17.Text = Me.TextBox17.Text

   Dim Text18 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text18")
   Text18.Text = Me.TextBox18.Text

   Dim Text19 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text19")
   Text19.Text = Me.TextBox19.Text

   Dim Text20 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text20")
   Text20.Text = Me.TextBox20.Text

   Dim frm As New Form1
   frm.CrystalReportViewer1.ReportSource = rpt1
   Me.Dispose()
   frm.Show()
End Sub

تحياتي