try this
Private Sub cmdCopy_Click()
Dim answer As String
On Error GoTo Err_printreport1_Click
answer = MsgBox("Do you really want to print the report?", vbYesNo, "Confirm Print")
If answer = vbYes Then
Dim stDocName As String
stDocName = "Courses & Students Report"...