15-03-14, 02:59 PM
تفضل أخي :
هذا كود طباعة بدون عرض المعاينة مباشرتاً للطابعة .
Dim Rpt1 As New CrystalReport1
(Rpt1.SetDataSource(Ds
()Rpt1.Refresh
(Rpt1.PrintToPrinter(1, False, 0, 0
هذا كود طباعة بدون عرض المعاينة مباشرتاً للطابعة .
Dim Rpt1 As New CrystalReport1
(Rpt1.SetDataSource(Ds
()Rpt1.Refresh
(Rpt1.PrintToPrinter(1, False, 0, 0
