[أبو عمر]

شكل ملف التكست في الطباعة مو كويس
خيارات الطباعة عندك متاحة
DataReport
ActiveReport
WebReport
وانصحك بـ ActiveReport
بالنسبة لطلبك فهذا الكود يفي بالغرض

PHP كود :

Open App.Path & "\MyTextReport.txt" For Output As #1
For i = 0 To rs.fileds.Count - 1
Print rs.fields(i).Name
Next
Close #1
Open App.Path & "\MyTextReport.txt" For Append As #1
For i = 0 To rs.recount - 1
For u = 0 To rs.fields.Count - 1
Print rs(u).Value
Next u
rs.movenext
Next i
Close #1 


اذا ما ضبطت معك الحكاية ارفع مثال بسيط
بالتوفيق