[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 ولكن بالكود كيف يحصل