我认为不需要设置报表条件既然已经取消全选代码
With Tables("表A").Select(0 ,0 ,.Rows.Count - 1, .Cols.Count - 1)End With
在表A中鼠标选中哪条就打印哪条
同时建议楼主看一下论坛发贴须知