导航表单

Question

我需要打印以导航形式嵌入的报告。我在互联网上寻找解决方案，看起来最好的解决方案是： https://www.experts-exchange.com/questions/28236835/print-current-report-inside-of-navigation-form-access-2010.html

人们声称它有效，但是，我有一个奇怪的问题。此代码始终只打印一个报告，即使我在所有报告中都有相同的代码。

我有modul1

Option Compare Database
Public strpubReportName As String

在所有3个报告和一个表格中，我都有相同的代码：

Private Sub Report_GotFocus()
strpubReportName = Me.Name
End Sub

然后放置在导航表单标题中的按钮具有：

Private Sub Polecenie20_Click()
    DoCmd.OpenReport strpubReportName
    strprvtReportName = ""
End Sub

它始终只打印一个报告（甚至不显示默认显示的报告）。无论我在导航表单中打开哪个报表，都只会打印一个报表。

为什么还有这条线呢？甚至在此代码中都没有创建或使用此变量，这是作者的错误吗？我想这并不重要，因为将其更改为strpubReportName没有任何区别。

  strprvtReportName = ""

Answer 1

我怀疑代码是否曾经有效。

实现这一目标有多种方法。我想，最简单的就是使用tempvar。

从模块1中删除代码，并在其他位置将strprvtReportName替换为TempVars!strprvtReportName。应该这样做。

正如你所说，最后一行并没有真正的目的。你可以删除它。