怎么样打印当前页啊，

fresun　发表于：2012-02-15 17:20:13 　

我做了一个打印收据的模式，但是只能打印全部页啊。现在想打印当前页，不懂怎么做，哪位大大帮我修改一下。

我对access很不熟悉，都是自学的，希望有更完整和详细的布骤，最好帮我改好再传上来，先谢谢了。点击下载此附件

叶海峰发表于：2012-02-15 17:30:52

Private Sub Command35_Click()
' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click
    Dim strDocName As String
    strDocName = "表1"
    ' 打印“发货单”报表，使用“发货单筛选”查询打印当前订单的发货单。
    DoCmd.OpenReport strDocName, acViewNormal, "表1", "第几号='" & Me.Text26 & "'"
Exit_PrintInvoice_Click:
    Exit Sub
Err_PrintInvoice_Click:
    ' 如果用户取消操作，不显示错误消息。
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

End Sub

Top

fresun 发表于：2012-02-16 18:54:39

虽然不懂这些代码是什么意思，但是能打印当前页了。谢谢版主。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

[5分]怎么样打印当前页啊，