[access] current subform record printen

[Verwijderd]

Ik heb een formulier met een combobox waaraan een subformulier hangt met een aantal records.
Nu wil ik dat je het record dat je op het scherm ziet uit kunt printen.

Het probleem is dat hij alleen het eerste record print.

Ik heb de volgende code achter een commandbutton:


Private Sub Command43_Click()
On Error GoTo Err_Command43_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Huisaansluitschets sub"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut CurrentRecord
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Command43_Click:
Exit Sub

Err_Command43_Click:
MsgBox Err.Description
Resume Exit_Command43_Click

End Sub


Hoe krijg ik het voor elkaar dat hij wel het record uitprint wat zichtbaar is op het scherm?

[Verwijderd]

DoCmd.SelectObject acForm, , True
selecteert het subform in je databasevenster.

Dit wil je niet; je dient juist de focus aan het subformulier te geven.

Visual Basic .NET:

Me.[Naam Subform].SetFocus
RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection

Deze oplossing werkt alleen als er maar een record in het subform staat denk ik. Bij meerdere pakt ie de eerste. Of je moet een filter zetten op het subform.

[Edit] Was iets te voorbarig; dit werkt ook niet. Kijk nog even verder. Iemand anders een idee?

Heb wel een berg issues gezien op groups.google....

Zie http://groups.google.com/...ng+subform+records+access

Create a Report and use the WhereCondition of DoCmd.OpenReport to limit
the records. You can save the Form as a Report, then modify its looks
and content.

I rarely print forms because I design them for on-screen viewing and
mine tend not to look very good printed (or, in one place or the
other), but also because of limitatins such as you mention.

[ Voor 62% gewijzigd door Verwijderd op 27-11-2002 14:27 ]

[Verwijderd]

Inmiddels heb ik het op een hele andere manier opgelost.
Ik heb het subformulier gecopieerd tot een rapport.
Nu heb ik achter de commandbutton een 'where' functie gezet, zodat hij alleen het gekozen record vult in het rapport en vervolgens print.

Bedankt voor de hulp