使用VBA在Access 2010 Building中创建报告

好的，我对构建Access报告的VBA语法有一些疑问

我知道以下函数可以插入信息CreateReportControl函数，删除信息DeleteReportControl，甚至可以使用section
例如：rpt.section（acDetail）。高度=0

我想知道如何关闭页眉和页脚，而不仅仅是将Visable设置为False。我想要它，这样就不能在设计视图中看到它

如何在Vba中复制报表并为其指定新名称/将子报表添加到主报表并移动其位置。或者至少复制它并保持打开状态，因为我有一个代码可以重命名它，如下所示：

Public Function GetUniqueReportName() As String
Dim intCounter As Integer
Dim blnIsUnique As Boolean
Dim rpt As Object

  For intCounter = 1 To 256
      GetUniqueReportName = "SubReport_" & Format(intCounter, "0000")
      blnIsUnique = True
      For Each rpt In CurrentProject.AllReports
          If rpt.Name = GetUniqueReportName Then blnIsUnique = False
      Next
      If blnIsUnique Then Exit Function
 Next

 GetUniqueReportName = ""
 End Function

还有没有其他功能可以帮助我通过VBA构建Access报告，你不必解释它们是做什么的，我只想知道它们是什么，这样我就可以直接搜索它们，因为web上没有太多关于如何实现这一点的信息

---

所有这些信息都会有很大的帮助，我假设很多其他人也可以使用这些信息，而关于这个问题的信息并不多。提前感谢！：）如果您不能回答所有的问题，那么此时的任何信息都是额外的。

III.这将通过调用rptcreatetmpreprirtsimple（）创建rptTmp：

关于你的问题：

I.不能删除页眉和页脚，但可以将页眉和页脚收缩到0高度

二,。将rptTmp复制到rptTmp2：

DoCmd.CopyObject , "rptTmp2", acReport, "rptTmp"

DoCmd.CopyObject , "rptTmp2", acReport, "rptTmp"