@ליבל
מה הוא צריך לבקש?
בברירת מחדל בקוד הוא מדפיס ולא שולח לתצוגה לפי הדפסה
אני כותב את הקוד מהזיכרון ולכן ייתכנו אילו טעויות / שגיאות כתיב קטנות
dim rs as recordset
set rs=currentdb.openrecordset("tbl")
do until rs.eof
docmd.openreport "rpt" ,,,,"id=0" & rs!id
rs.movenext
loop