[Osama Bayoumy]

ممكن ارسلك كود الطباعة لان البرنامج كبير 

كود :

Public Sub MyPrint()
       On Error Resume Next
       '================================ شاشة الطباعة
       Dim F As New frmPrint
       Dim rpt As New CryBill

       rpt.SetDataSource(DsView)
       F.CRV.ReportSource = rpt
       'F.CRV.RefreshReport()
       F.CRV.Refresh()
       F.CRV.Dispose()

       rpt.PrintToPrinter(1, True, 0, 0)
       rpt.Close()
       rpt.Dispose()
       'F.Show()
   End Sub