请大家帮帮我关于报表打印

dxlz

我有一个作为数据录入的窗体,还有一个已经制定好的报表.现在的问题是:我想在录入一条记录后,马上通过报表将这条记录打印出来(仅仅是一条记录,不要全部).

我很菜不知道怎么样最好帮我写一下范例我的emal:dxlz@163.net谢谢各位

eio

这个报表引用查询的数据，查询引用当前窗体的ID就可以啦

dxlz

可以详细一点吗?还有别的方法吗?

cattjiu

请看northwind.mdb的订单窗体打印发票的例子：
1.printInvoce按钮：
Sub PrintInvoice_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_PrintInvoice_Click

    Dim strDocName As String
   
    strDocName = "Invoice"
    ' Print Invoice report, using Invoices Filter query to print
    ' invoice for current order.
    DoCmd.OpenReport strDocName, acViewNormal, "Invoices Filter"  '********here

Exit_PrintInvoice_Click:
    Exit Sub

Err_PrintInvoice_Click:
    ' If action was cancelled by the user, don't display an error message.
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

End Sub

2."Invoices Filter" query:
SELECT DISTINCTROW Invoices.*
FROM Invoices
WHERE (((Invoices.OrderID)=[Forms]![Orders]![OrderID]));