根据窗体内容，更新打印报表的数据源

roych

可以更新SQL语句的。
Dim Qry As Query
Set Qry=currentdb.querydefs("报表查询源")
Qry.SQL="select * from 人员联系表 where 人员编号="& Forms!人员联系表!人员编号
把这部分加入到更改事件或者更新后事件里，然后再执行打印报表动作。