I use this code in a Command button, On Click. Substitute Primary key with
yours.
Dim strWhere As String
If Me.Dirty Then 'Save any edits first
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[PrimaryKey] = " & Me.[PrimaryKey]
DoCmd.OpenReport "AccountForm", acviewPrint, , strWhere
End If