Printen van gegevens

[Geertvdb]

Wanneer ik een record invoer en dat meteen wil printen dan gaat dat niet.
Ik moet het record eerst opslaan met shift enter.
Ik dacht met het onderstaande hieraan te voldoen.
Wie weet een oplossing.

Geert

Private Sub cmdAdfrNota_Click()
DoCmd.Save acForm, "frmadres"
If Me.Dirty Then
Me.Dirty = False
End If
DoCmd.OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
DoCmd.OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
End Sub

 

[Nico84]

Probeer alleen is:

Private Sub cmdAdfrNota_Click()

 Me.Dirty = False

 DoCmd.OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
 DoCmd.OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
 End Sub

 

[OctaFish]

Ik zat aan dit te denken:

DoCmd.RunCommand acCmdSave

 

[Geertvdb]

Het vreemde doet zich voor.
Ik heb nu 10x getest met zoals ik het had staan en het gaat 9x goed dus wel printen en 1x niet met een zelfde wijze van invoer.
Het is voor mij ongegrijpelijk.

Geert