[VB.NET] استفسار - نسخة قابلة للطباعة

PHP كود :

create proc [dbo].[Get_order_detils_for_print]  
@id int 
as
SELECT Tbl_Order_detils.ID_product
      ,Tbl_Orderes.Des
      ,Tbl_Orderes.total_ar
      ,Tbl_Orderes.ID_Order
        ,order_date
        ,salesman
        ,TBL_Customers.ID
        ,TBL_Customers.FullName
        ,TBL_Customers.TEL
        ,PRODUCTS.ID_product
        ,PRODUCTS.label
      ,Tbl_Order_detils.Qty
      ,Tbl_Order_detils.price
      ,Tbl_Order_detils.Amount 
  FROM [dbo].[Tbl_Order_detils]
inner join Tbl_Orderes 
on Tbl_Orderes.ID_Order=Tbl_Order_detils.ID_Order
inner join TBL_Customers
on TBL_Customers.ID=Tbl_Orderes.ID_CUSTOMER
inner join PRODUCTS
on PRODUCTS.ID_product=Tbl_Order_detils.ID_product
where Tbl_Orderes.ID_Order=@id

PHP كود :

  Dim CR As New CrystalReport5

        Dim DT As New DataTable
        Dim DA As New SqlDataAdapter("Get_order_detils_for_print", Module1.con)
        DA.SelectCommand.CommandType = CommandType.StoredProcedure
        DA.SelectCommand.Parameters.AddWithValue("@id", TextBox2.Text)

        DA.Fill(DT)
        CR.SetDataSource(DT)

        Form_print.CrystalReportViewer1.ReportSource = CR
        Form_print.Show()