Hi,

 I'm accessing my Access Databse from VB6, all my forms are made in VB , but I want to know if it's possible to open my reports made in Access from Visual Basic, and what is the code ??

Thanks

One way to do this is by using Snapshot Viewer (free download search internet for snpvw90). This can be used to view access reports that have been saved in Snapshot format.

You can then automate the Snapshot creation from VB as below....
(you will need to reference the Microsoft Access Library)

'Set variable for Access Application
Dim appAccess As New Access.Application

'Open Database
appAccess.OpenCurrentDatabase <Your Database Path as string>, True

'Open report
appAccess.DoCmd.OpenReport <Your Report Name as string>, acViewPreview

'Output in snapshot format to a temp file (should open in snapshot viewer automatically)
appAccess.DoCmd.OutputTo acOutputReport, <Your Report Name as string>, "Snapshot Format", "c:\temp.snp", True

'Quit access
appAccess.Quit

'Free
Set appAccess = Nothing

Hope this helps.

Hi GHolden,

I used your advise that you gave to submit. It works great for the most part, but I have one problem with it and maybe you could help me out.

I'm using VB6 and Access 2000. In order for the datasource that I'm using in my VB6 program to recognize the database I have converted my database to a previous version. Everything runs exactly the way I want it except the fact that when I pull up my report (using the above snapshot way)on a different computer it doesn't show it with a "legal" page size like I specified in the report layout. It defaults to "letter" size and cuts off part of my report.

If I convert the database back to 2000, make the page layout on "Legal" size again, and convert back to previous version the report displays fine on the new computer. But the old computer that used to show it fine now shows it in "letter" and cut off.

Any idea on how to insure it displays on "legal" paper size to matter what computer I'm using would be greatly appreciated.

Thanks
Seagryphon

If you are on a network, use the same default network printer for both databases. This also drives me nuts
:(



Sal

Ok, I found this code in a book

################################################## ######

Public mobjAccess As Application


Private Sub cmdPrint_Click()

    Dim intCounter As Integer
    Dim intPrintOption As Integer

    If optPreview.Value = True Then
        intPrintOption = acViewPreview
    ElseIf optPrint.Value = True Then
        intPrintOption = acViewNormal
    End If

    mobjAccess.Visible = True
    For intCounter = 0 To lstReports.ListCount - 1

        If lstReports.Selected(intCounter) Then
            mobjAccess.DoCmd.OpenReport _
            ReportName:=Me.lstReports.List(intCounter), _
            View:=intPrintOption
        End If
    Next intCounter
End Sub
'____________________________________________
Private Sub cmdSelectDatabase_Click()

    dlgCommon.Filter = "*.mdb"
    dlgCommon.ShowOpen

        Me.txtSelectedDB = _
            dlgCommon.FileName
        Call ListReports
End Sub
'________________________________
Private Sub ListReports()

    Dim vntReport As Variant

    If mobjAccess Is Nothing Then
        Set mobjAccess = New Access.Application
    End If

    mobjAccess.OpenCurrentDatabase (Me.txtSelectedDB)

    lstReports.Clear
    For Each vntReport In mobjAccess.CurrentProject.AllReports
        lstReports.AddItem vntReport.Name
    Next vntReport
End Sub
################################################## ######

Remember that for both ways, the user running this code must have MS Access installed on their computers. I would rather view the report myself before printing it or sending it to a snapshot. You can actually distribute an mde file for reports with your VB app.



Sal

what library do you have to reference, and can this same process work for access forms?

Reference the MAcceslibrary. Whatever the latest version of MAcceslibraty that your users haveJust remember that your users will also need ot haave access intalled on their pc, so the library you use must be the same library they use on their version of ms access.

Yes, I guess you could use this also for access forms, but Shy would you want to open an access form from vb? Going backwards from vb to access doew not make sense.



Sal

Update on the Access Snapshot viewer. It has changed names and be downloaded from Microsoft for all versions of Access here:
http://www.microsoft.com/downloads/t...splayLang%3den

I found this posting very useful. Thanks! :)