求助：窗体筛选子窗体后的数据怎样打印当前报表

hljthzbc

版主和大家好：
打印筛选数据的报表－－代码怎么写

koutx

试试：
Private Sub Command14_Click()
Dim stDocName As String
    stDocName = "生产报表"
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.PrintOut
End Sub

hljthzbc

谢谢，可是取消打印时，会出错误，怎么解决

Y9X

打印取消错误？我测试过《生产报表窗体》，koutx的代码是可以执行的。如果需要取消，建议在koutx的代码中加一个打印确认就可以了。
Private Sub Command14_Click()
Dim stDocName As String
Dim a As Long
    stDocName = "生产报表"
    DoCmd.OpenReport stDocName, acPreview
    A = MsgBox("请确认是否打印", vbOKCancel)
    If A = 2 Then
    DoCmd.CancelEvent
    Else
    DoCmd.PrintOut
    End If
    End Sub

hljthzbc

谢谢,这个报表可以打印了