[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