Hej,

Jag undrar hur man gör för att skriva ut aktuella poster med Access.
Den koden jag har nu skriver ut hela databasen med Access rapport och den ser ut så här.

Private Sub Command2_Click()
Dim appAccess As Access.Application

Set appAccess = New Access.Application

appAccess.OpenCurrentDatabase ("c:\axxess\serviceorder2.mdb")
appAccess.DoCmd.OpenReport "Service", acViewPreview
appAccess.DoCmd.PrintOut
appAccess.Quit

Set appAccess = Nothing

End Sub

Vad jag vill göra är att bara skriva ut de aktuella posterna som syns i textrutorna i min applikation.

Tacksam för svar.

Mario

appAccess.DoCmd.OpenReport "Service", acViewPreview, , "ID=1 OR ID=2"

Du kan styra detta genom att ange villkor när du öppnar rapporten. Jag antar att detta fungerar etfersom det gör det när man kör direkt ifrån Access.

/Johan

Tack för svaret,

Tyvärr så fungera det inte, så jag får söka vidare.

Mario

På vilket sätt fungerar det inte???

Jag får upp en ruta där det står Ange parametervärde ID, jag anger ett värde 1 t ex så skrivs alla poster ut ändå. Vilket jag inte vill.

Mvh
Mario

Du ska alltså byta ut ordet ID mot en kolumn i databasen som innehåller sökkriteriet.

/Johan