السلام عليكم
أخواني الأفاضل في المرفق مثال بسيط عن مشكلتي في كود ترحيل محتويات التكست بوكس إلى الكريستال ريبورت وطباعة التقرير تلقائياً بدون معاينته
أفيدوني جزاكم الله خيراً فقد تعلمت الكثير من خلال هذا المنتدى وأرغب بالمزيد
آسف لتكرار السؤال وبالمكان الخطأ
هذا الحل
كود :
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
طيب ولو عايزه يطبع مباشر مع خاصية landscape وعدد النسخ للطباعة المباشرة
(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 ولكن بالكود كيف يحصل