هل يمكن طباعة تقارير الأكسيس من الفيجوال بيسك !

Dim dbName As String

Dim rptName As String

Dim Preview As Long

Const acNormal = 0

Const acPreview = 2

dbName = App.Path & "\A.mdb"

rptName = "R"

Preview = acPreview 'acNormal

Dim objAccess As Object

Set objAccess = CreateObject("Access.Application")

dbName = App.Path & "\bin\heg.inf"

objAccess.OpenCurrentDatabase filepath:=dbName, bstrPassword:="á"

With objAccess

.OpenCurrentDatabase filepath:=dbName

If Preview = acPreview Then

.Visible = True

.DoCmd.OpenReport rptName, Preview

Else

.DoCmd.OpenReport rptName

End If

End With

الحـل :

يتم إضافة الشفرة في زر الطباعة :

 Dim objaccess As Object
            objaccess = CreateObject("Access.Application")
            With objaccess
                Application.DoEvents()
                .automationsecurity = 1
السطر التالي عبارة عن مسار القاعدة + الرقم السري ان كان لها
                .OpenCurrentDatabase(filepath:="" & Application.StartupPath & "\EE.mdb", bstrPassword:="123456789")
السطر التالي عبارة اسم التقرير في قاعدة البيانات 
                .DoCmd.OpenReport(ReportName:="report1")
            End With
            objaccess.Quit()
            objaccess = Nothing

KARIMSOFT كتب:

Dim dbName As String

Dim rptName As String

Dim Preview As Long

Const acNormal = 0

Const acPreview = 2

rptName = "R"

Preview = acPreview 'acNormal

Dim objAccess As Object

Set objAccess = CreateObject("Access.Application")

dbName = App.Path & "\db.mdb"

objAccess.OpenCurrentDatabase filepath:=dbName, bstrPassword:="á"

With objAccess

.OpenCurrentDatabase filepath:=dbName

If Preview = acPreview Then

.Visible = True

.DoCmd.OpenReport rptName, Preview

Else

.DoCmd.OpenReport rptName

End If

End With