vba - access - tulostus

Pitäsi saada yhdestä napista tulostettua yhden asiakkaan kaikki tiedot monesta lomakkeesta, mutta ongelmanani on se että se tulostaa muista lomakkeista kaikkien asiakkaiden tiedot.

Tuolla käsyllä saa tulostetta sen lomakkeen mikä on auki ja vain tietyn asiakkaan:
------------------------------
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
--------------------
Tuo tulostaa noist määrätyistä lomakkeista kaikkien asiakkaiden tiedot, se tarvitsisi muutaa niin että se tulostaa vaan yhden asiakkaan tiedot kaikista noista lomakkeista

--------------------------------------
Private Sub cmdTulostaKaikki_Click()
On Error GoTo Err_cmdTulostaKaikki_Click



Dim stDocName As String
Dim MyForm As Form
Dim i%
Dim Nimi(7) As String


'eka laitetaan taulukkoon nimet ja sen jälkeen sitten tulostelllaan ne lomakkeet silmukal
Nimi(0) = "ElamanKatsomus"
Nimi(1) = "HoitoJaPalveluSuunnitelma"
Nimi(2) = "Lääkitys"
Nimi(3) = "Sairaudet"
Nimi(4) = "Toimintakyky"
Nimi(5) = "Vanhat Lääkkeet"
Nimi(6) = "Voimassa olevat lääkelistat"

For i% = 0 To 6


stDocName = Nimi(i%)
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Next i%
Exit_cmdTulostaKaikki_Click:
Exit Sub

Err_cmdTulostaKaikki_Click:
MsgBox Err.Description
Resume Exit_cmdTulostaKaikki_Click

End Sub
-------------------------------
niin ja tosissaan kyse on accessin visual basic for aplicationista