Access form prints only the header

when you say print the current form, you mean a report? thus you created a report to be filled with that form data?

this is a simple code to print the form data, but depends on a report

Private Sub cmdPrint_Click()
'Print current record
'using rptEmployees.
If IsNull(Me!EmployeeID) Then
MsgBox "Please select a valid record", _
vbOKOnly, "Error"
Exit Sub
End If
DoCmd.OpenReport "rptEmployees", , , _
"EmployeeID = " & Me!EmployeeID
End Sub

Select allOpen in new window

here is another code sample

 
Private Sub CommandBtn_Click()
Dim MyForm As Form
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, MyForm.Name, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False
 
End Sub
 
 

Select allOpen in new window

How did andres assumed his reply was the correct answer? User did not give a feedback!
Either split the point or wait till the user feedback with what solution worked for him.