Add a text box named as text on header section with Control Course:
=Count([ID])
Chose Code under View menu and paste the following code
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me!Text > 1 Then
Me.Section(acDetail).Visible = False
Else
Me.Section(acDetail).Visible = True
End If
End Sub
Hope this helps,
Adnan