The following code will create a new report based on the table passed to it. This is the same as using the AutoReport button.
'***************** Code Start *******************
' This code was originally written by Terry Wickenden.
Sub NewReport(strTable As String)
DoCmd.SelectObject acTable, strTable, True
DoCmd.RunCommand acCmdNewObjectAutoReport
End Sub
'****************** Code End ********************