Dear VB users,
My Access database is consisting a report.
Is it possible to print this report in VB5?
If yes: what is the syntax of the command?
Nice regards,
Michelle.
Printable View
Dear VB users,
My Access database is consisting a report.
Is it possible to print this report in VB5?
If yes: what is the syntax of the command?
Nice regards,
Michelle.
It is possible to print or preview an access report from vb. I included an example code below(vb_ShowReport). All you need to do, is to replace phrases in brackets <>. The code assumes following:
database has a module which has a sub called ShowReport.
I hope this solves your problem!
Public Sub ShowReport(ByVal rptName As String, ByVal filter As String)
DoCmd.OpenReport rptName, acViewPreview, "", filter
DoCmd.Maximize
End Sub
Private Sub vb_ShowReport(ByVal reportName As String, ByVal filter As String)
Dim myAccess As Access.Application
Dim start As Double
Dim tmpLng As Long
On Error Resume Next
Err = 0
Set myAccess = New Access.Application
' Full access installed
If Err = 0 Then
myAccess.OpenCurrentDatabase "<databasename>"
myAccess.Run "ShowReport", reportName, filter
myAccess.Visible = True
' Only runtime installed
Else
tmpLng = Shell("<MSAccess.exe> <databasename>", vbMaximizedFocus)
If tmpLng <> 0 Then
start = Timer
Do
Err = 0
DoEvents
Set myAccess = GetObject("<databasename>")
If Timer - start > 7 Then
Exit Do
End If
Loop While Err <> 0
myAccess.Run "ShowReport", reportName, filter
End If
End If
End Sub
ps. You need to add a reference to Access x.0 object library to your VB-project