udprintning af access rapport fra VB

yes! but you need access installed on the PC, you cant just have the MDB file.
You need to automate access (start access) vi you VB program and open the report from there

en anden mulighed er at lave en data-report i VB

Lav en form hvor du sætter det op som du vil have din rapport skal se ud, og så hente hvert recordset ind og sætte det i de felter du skal bruge......

jeg gør det altid med Sql - kan ikke lide den funktion der er i VB....

Først skal refferencen Microsoft DAO 3.51/3.6 Object Library tilføjes.....

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

'Her tilføjer den alle navnene til en combobox, og giver hver record
'et tag, som er lig med id (primær nøgle)

Private Sub Form_Load()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\database.mdb")
Set rs = db.OpenRecordset("SELECT * FROM table")
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        Combo1.AddItem rs!navn
        comNavn.ItemData(comNavn.NewIndex) = rs!id
        rs.MoveNext
    Loop
End If
End Sub

'Når man vælger et navn i comboboxen så vælger den det tilhørende
'navn ud fra primær nøgle, og derved kan der være flere der hedder
'der samme i sin database.....

Private Sub Combo1_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\adressebog.mdb")
Set rs = db.OpenRecordset("SELECT * FROM adressebog")
rs.MoveFirst
Do While rs.EOF = False
    If rs!id = comNavn.ItemData(comNavn.ListIndex) Then
            Text1.Text = rs!adresse
            Text2.Text = rs!postnr
            Text3.Text = rs!minBy
            Text4.Text = rs!land
            Text5.Text = rs!tlf
            Text6.Text = rs!mobil
            Text7.Text = rs!email
    End If
rs.MoveNext
Loop
End Sub

Tubber

Hov skulle være et svar :O)

I er inde på noget af det rigtige. Jeg har installeret access på min computer, men jeg mangler koden til hvordan man får VB til at aktivere den bestemte rapport i Access og derefter aktiver udskrift-funktionen. Det er sådan set det hele.

well as I mentioned in my answer 10:57 you have to automate Access:

Dim acc As Object

Set acc = CreateObject("Access.Application")
   
    acc.OpenCurrentDatabase FilePath:="C:\YourDb.mdb"

'to preview
    acc.Visible = True
        acc.DoCmd.OpenReport datReports.Recordset.ReportRptName, acViewPreview

'to print
acc.Visible = False
        acc.DoCmd.OpenReport datReports.Recordset.ReportRptName, acViewNormal
        acc.Quit

replace datReports.Recordset.ReportRptName with the name of your report