[indoprog-vb] cetak per item

[sunardi]

saya coba buat laporan dng cetak dng file txt seperti dibawah ini
Private Sub Printing()
Dim NF As Integer
Dim mSpace As String
On Error GoTo errHandler
NF = FreeFile
SQL="SELECT * FROM JUAL"
set rs=cn.execute(sql)
Open App.Path & "\Printing.txt" For Output As #NF
Print #NF,"-----------------------------------------------------
Print #NF,"No. Anggota     Faktur    Kode Barang    Nama Barang"
Print #NF,"-----------------------------------------------------
do until rs.eof
Print #NF, rs!No_Anggota;Faktur;Kode_Barang;Nama_Barang
rs.movenext
loop
Close #NF
'Shell "Cmd.Exe /C Type " & App.Path & "\Printing.txt>prn"
Exit Sub

errHandler:
MsgBox "Error printing"
Err.Clear
End Sub

pertanyaannya adalah :
bagaimana klo yang dicetak per anggota sesuai dngan transaksi yang ada ?

mohon penjelasan dari rekan2 semuanya. terima kasih.