如何直接将报表内容打印,不出现预览

wsxwsx1　发表于：2012-06-12 11:35:11 　

复制

如何直接将报表内容打印,不出现预览

Top

浪淘沙发表于：2012-06-12 14:59:09

楼主重复发帖了

预览代码

Dim stDocName As String

stDocName = "报表名"
DoCmd.OpenReport stDocName, acPreview

打印代码

Dim stDocName As String

stDocName = "报表名"
DoCmd.OpenReport stDocName, acNorma

Top

一过客发表于：2012-06-12 22:23:09

在窗体的控件中的单击事件中输入以下代码

Dim stDocName As String

stDocName = "报表名"
DoCmd.OpenReport stDocName, acNorma

Top

一过客发表于：2012-06-12 22:30:43

如果用窗体中的控件，并以控窗体上的某控件作为条件进行打印

Private Sub 窗体中的控件名称_Click()
If IsNull(Me.窗体上作为条件的某控件名称.Value) Then
     MsgBox "填写编号不能为空，请单击“确定”后，在“填写编号框”填写需要打印健康证明的开始号和结束号后重试。", vbOKOnly + vbInformation, "提示! ! ! !"
Else
    If Not IsNull(Me.窗体上作为条件的某控件名称.Value) Then
    DoCmd.OpenReport "窗体中的控件名称", acViewNormal, "", " [数据表名称]![字段名称]>=[Forms]![窗体名称]![窗体上作为条件的某控件名称] And [数据表名称]![字段名称]<=[Forms]![窗体名称]![窗体上作为条件的某控件名称]", acNormal    '注意：acNormal打印 acPreview预览
    End If
End If
End Sub

Top

一过客发表于：2012-06-12 22:55:29

示例：

点击下载此附件

Top

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

Access交流中心

如何直接将报表内容打印,不出现预览