[求助]呵呵，一加这个就全部打印了

secowu

If IsNull(Me.版式) = False Then

DoCmd.OpenReport Me.版式, acViewPreview, , "[工作单号]='" & Me.工作单号 & " '",achidden

Reports(Me.版式)!下单产品印刷与加工工艺子报表![Text16].ForeColor = 16777215

DoCmd.RunCommand acCmdPrint

DoCmd.Close acReport, Me.版式

Me.版式 = Null



如果加了achidden就变成了打印全部

奇怪，如果不加，就会出现那个类似预览的窗口，有点不好看