[العيدروس]

الهي يرزقك الجنة اخ elgokr و يتقبل في هاذ الشهر الكريم صالح اعمالك.انت تعرف اخي هاذ الايام بتكون حركة بيع  بمناسبة العيد ان شاء الله.و ذلك اقلقتني كثيرا مشكل الطباعة هاي.
انا جربت بهاذ الكود لكن ما بيصير اطبع و افسد ورفة كبيرة a4  بس من اجل ملصقة مبيعات صغيرة .كيف الله يرضى عليك اخلي الملصقات بكامل الورقة بقدر ما تقدر تشيل الورقة و كل الشكر اخي.بس حاول معي الله يرضى عليك.وجدت مواضيه مشابهة بالمنتدى بس كلها ما تمت باجابة واضحة.شوف اخي elgokr الله يرضى عليك بهاذ الكود كلو صحيح و تطلعلي 6 ملصقات من الرقم 1 للرقم 6 .كل ما بدي اياه هو كيف اخلي تطلعلي بورقة الطباعة عمودين او ثلاثة.عمود من 1 الى 6 و الثاني من 7 اللا 12 مثلا هاذ كل ما اريده

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Crtl As New CrystalReport1
       Form2.CrystalReportViewer1.ReportSource = Crtl
       Try
           ConStr.Open()
           Dim DataAdapater As New OleDbDataAdapter("SELECT * FROM Table1 order by  id ", ConStr)
           DataSetTable.Clear()
           DataAdapater.Fill(DataSetTable, "Table1")
           Crtl.SetDataSource(DataSetTable.Tables("Table1"))
           ConStr.Close()
           Form2.CrystalReportViewer1.Refresh()
           Form2.Show()
       Catch
           ConStr.Close()
       End Try
   End Sub