Print Button on Report

[kitty77]

I put a print button on a report. When I click it I get the following error...

The command or action "PrintSelection isn't available now.

My code is

Private Sub Command78_Click()
On Error GoTo Command163_Click_Err
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPrintSelection

Command163_Click_Exit:
Exit Sub
Command163_Click_Err:
MsgBox Error$
Resume Command163_Click_Exit
End Sub

Does anyone know what this error is?

Thanks...

 

[June7]

The command works with form, not report.

 

[arnelgp]

an alternative.

copy/paste your report.
on the copy, remove the button and the code.

on the original, if you have any autonumber/pk field there, add code to its Click event:

dim lngID as long

private sub ID_click()
lngID = me.ID
end sub

on your code:

Private Sub Command78_Click()
On Error GoTo Command163_Click_Err
	docmd.openreport "the name of copy", acNormal, , "[id]=" & lngID
Command163_Click_Exit:
	Exit Sub
Command163_Click_Err:
	MsgBox Error$
	Resume Command163_Click_Exit
End Sub