[Access] Meerdere velden printen

[DNA_Saint]

Ik heb een form waarbij je ID's in kan vullen en daarna wordt de rest van de rij gevuld met de data van de desbetreffende rij uit een tabel.
Hierna komt automatisch een nieuwe rij velden om wederom weer een in te vullen.

wanneer je de producten allemaal hebt staan die je wilt, kan je op print klikken.

Hierbij wordt het aantal geprint dat in de database is aangegeven.

Ok, nu een voorbeeld wat er gebeurd.
Ik heb bij rij1 van de form ID 7 staan met daarachter Kaas en de nummer 8
op rij2 heb ik ID 11 staan met daarachter Ham en de nummer 3.

Nu klik ik op print en hij print 8x een pagina met Kaas en regel eronder Ham.
Dit klopt dus niet.

Ik wil dat ie eerst 8x Kaas onder elkaar print
en dan 3x Ham

Hoe doe ik dit.
Dit is mijn code

Visual Basic:

Private Sub Knop3_Click()
On Error GoTo Err_Knop3_Click
Dim db As Database, MyTable As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Documents and Settings\Administrator\Mijn documenten\bla.MDB")
Set MyTable = db.OpenRecordset("te printen labels tec")

    Dim stDocName As String
    Dim ff As String
    Dim pgc As Integer
    Dim pagina As Integer
    Dim delqry As String
    Dim frm As String
    
    pagina = 1
    stDocName = "rpt_tec"
    ff = "rpt_tec_ff"
    delqry = "clr_tabel1tec"
    frm = "frm_hfd_tec"
    
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.Close acForm, frm
    
    Do Until MyTable.EOF
    pgc = MyTable!Pages
    DoCmd.PrintOut acSelection, pagina, pagina, , pgc, 0
    DoCmd.OpenReport ff, acViewNormal
    pagina = pagina + 1
    MyTable.MoveNext
    Loop
    DoCmd.OpenQuery delqry, acNormal, acEdit
    DoCmd.OpenForm frm, acNormal, , , acFormAdd
    DoCmd.Close acReport, stDocName

stDocName = "rpt_tec" --> rapport met hoe de pagina eruit moet zien
ff = "rpt_tec_ff" --> dit wordt na elke rij geprint. Dus 1 maal tussen Kaas en Ham, dit werkt al
delqry = "clr_tabel1tec" --> qeury om form leeg te maken
frm = "frm_hfd_tec" --> form naam

[ Voor 15% gewijzigd door DNA_Saint op 22-08-2007 11:47 ]