[abuzzouz]

السلام عليكم
أخواني الأفاضل في المرفق مثال بسيط عن مشكلتي في كود ترحيل محتويات التكست بوكس إلى الكريستال ريبورت وطباعة التقرير تلقائياً بدون معاينته
أفيدوني جزاكم الله خيراً فقد تعلمت الكثير من خلال هذا المنتدى وأرغب بالمزيد

[abuzzouz]

آسف لتكرار السؤال وبالمكان الخطأ

[the viper]

هذا الحل

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myreport As New CrystalReport1
       myreport.SetParameterValue("Amount", TextBox1.Text)
       myreport.PrintToPrinter(1, False, 0, 5)


   End Sub
End Class

[Lathe1]

طيب ولو عايزه يطبع مباشر مع خاصية landscape وعدد النسخ للطباعة المباشرة

[Lathe1]

(06-05-19, 04:54 AM)the viper كتب : هذا الحل

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myreport As New CrystalReport1
       myreport.SetParameterValue("Amount", TextBox1.Text)
       myreport.PrintToPrinter(1, False, 0, 5)


   End Sub
End Class

لو عايز التحكم فى الطباعة يكون land scape ولكن بالكود كيف يحصل