Question

我的问题听起来很简单：我想使用ms访问表单中的按钮打印一些查询。

示例：

Private Sub Print_Click()

    sqls = " SELECT * FROM  " _
            & "NAME WHERE ID = " & variable & ";"

         Print sqls on paper     ' This is just a simple explanation of what I want

Answer 1

从表格设计报告。使用报告Record Source= YourTable。在表单中使用Command Button打印报告。该按钮将根据您的variable过滤报告数据，并通过默认打印机打印报告。这里"[ID]=" & variable这是Where Condition命令。此部分会将数据过滤为variable。

Private Sub Print_Click()
  'DoCmd.OpenReport "YourReportName", acPreview, , "[ID]=" & Me.txtID
  DoCmd.OpenReport "YourReportName", acNormal, , "[ID]=" & variable
End Sub

Answer 2

在表单上，任何表单，放置一个未绑定的文本框。在下面的示例中，我将文本命名为Box'XportXL'。创建一个命令按钮。在未绑定控件中输入查询的名称。这适用于任何查询 - 只需在未绑定控件中输入其名称即可。（“E：\ Peter \ Desktop \ filename.xlsx”只是我想要专家的地方）将以下代码放在OnClick事件中： Dim MyQuery As String MyQuery = Me.XportXL

If IsNull(Me.XportXL) Then
    DisplayMessage ("We need something to export.")
    Exit Sub
Else
    DoCmd.OutputTo acOutputQuery, MyQuery, acFormatXLSX, "E:\Peter\Desktop\filename.xlsx", False, "", , acExportQualityScreen
End If

使用ms访问按钮在纸上打印记录

2 个答案: