Using this code will allow you to take one of your forms, and make an exact copy of it as a report. This is useful if you spend a lot of time making a form and want to keep the same format/layout inside of a report, you can do so with just one button click.

Instructions:
1. Make a new form

2. In the on load event of the form, enter the following code.
Dim frm As Object
Dim formNames() As String
Dim i As Integer
    
'Create Array
ReDim formNames(0 To CurrentProject.AllForms.Count - 1)
i = 0
For Each frm In CurrentProject.AllForms
    formNames(i) = frm.Name ' Store form name in the array
    i = i + 1 ' Increment counter
Next

' Assign the formNames array directly to the RowSource property of the combo box. Needs to be a Value List Combo box called FormNameCombo.
FormNameCombo.RowSource = ""
For i = LBound(formNames) To UBound(formNames)
    FormNameCombo.AddItem formNames(i)
Next i

3. Add a combo box to the form, make sure it's Row Source Type is Value List and call it FormNameCombo.

4. Add a button to the form and put this code in it.
On Error Resume Next
DoCmd.SelectObject acForm, FormNameCombo, True
RunCommand acCmdSaveAsReport

5. Save and open the form, select the form you want to copy inside the combo box and press the button. A popup will appear asking for the name for the report. Enter the name you want, press OK. The report is created.