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

(26-12-14, 12:58 AM)alktab كتب :

كود :

Imports Access = Microsoft.Office.Interop.Access

Public Class FrmReports

   Dim oAccess As Access.application

   Private Sub btnSumByPlan_Click(sender As Object, e As EventArgs) Handles btnSumByPlan.Click

       oAccess = CreateObject("Access.Application")
       oAccess.visible = True
       oAccess.opencurrentdatabase ("Provider=Microsoft.ACE.OLEDB.12.0;DataSource=|DataDirectory|\CLI_CRVM.accdb")

       oAccess.docmd.openreport(ReportName:="SumByPlan", View:=Access.AcView.acViewPreview)

   End Sub
End Class

(26-12-14, 12:49 PM)mudz كتب : محديعرف  يفصلة اين اضع اسم التقرير وكذا !