Huidig ingevuld record in formulier printen via Rapport

[ambie]

Hallo,

Graag zou ik via mijn formulier het ingevulde record (dat ik net heb ingevuld) willen printen via een rapport. Dus enkel dit record.

 

[OctaFish]

Dat kan als je het filter meegeeft bij het openen van het rapport.

Private Sub KnopPrinten_Click()
On Error GoTo Err_KnopPrinten_Click

    DoCmd.OpenReport "rptControles", acViewPreview, , "[CtlIMO] = '" & Me.cboIMO & "'"
    DoCmd.PrintOut A_SELECTION
    Exit Sub

Err_KnopPrinten_Click:
    MsgBox Error$
    
End Sub

 

[ambie]

Alle records worden geprint. Moest ik nog iets doen buiten de code voor de knop veranderen?

 

[OctaFish]

Ik zou het printen ook met de hand doen; een Printcommando spuugt in beginsel alle records er uit, een acViewPreview doet het geselecteerde record.

 

[ambie]

Ik begrijp het niet. Er staat "acViewPreview" in de code zoals je hebt aangegeven.

 

[OctaFish]

En daaronder staat de opdracht PRINTOUT. En die druk alles af.

 

[ambie]

OK. printout verwijderd. Dus ik krijg een printvoorbeeld. Alleen staat het controleformulier nog in de weg. Maar als je dan naar bestand printen gaat, kun je maar kiezen tussen alles of "van pagina tot pagina".

 

[ambie]

Het printvoorbeeld klopt nog niet. Nog suggesties Michel ?

Als je met de pijltjes navigeert toont het printvoorbeeld alle ingebrachte records voor het ingevulde schip.

 

[ambie]

Is dit geen optie?

Private Sub KnopPrinten_Click()
On Error GoTo Err_KnopPrinten_Click
    
    DoCmd.OpenReport "rptControles", acViewPreview
    DoCmd.GoToRecord , , acLast
    DoCmd.PrintOut
    Exit Sub

Err_KnopPrinten_Click:
    MsgBox Error$
    
End Sub

 

[ambie]

Gelukt. Gevonden op internet.
Hetgeen je opzoekt moet de primaire sleutel van de tabel zijn.

Private Sub KnopPrinten_Click()
On Error GoTo Err_KnopPrinten_Click
    
Dim StrCriterion As String
StrCriterion = "[primaire sleutel]=" & Me![primaire sleutel]
DoCmd.OpenReport "naam van je rapport", acNormal, , StrCriterion
    
Exit_KnopPrinten_Click:
Exit Sub

Err_KnopPrinten_Click:
MsgBox Err.Description
Resume Exit_KnopPrinten_Click

End Sub