printing code

[Tim]

Exit Sub

Err_PRINT_RECORD_Click:
MsgBox Err.Description
Resume Exit_PRINT_RECORD_Click

End Sub
and 2) create a button which allows you to print the
report (the problem being that the button then prints the
report - one for every single record in the database!)
Private Sub PRINT_REPORT_Click()
On Error GoTo Err_PRINT_REPORT_Click

Dim stDocName As String

stDocName = "DSS STANDARD ORDER"
DoCmd.OpenReport stDocName, acNormal

Exit_PRINT_REPORT_Click:
Exit Sub

Err_PRINT_REPORT_Click:
MsgBox Err.Description
Resume Exit_PRINT_REPORT_Click

End Sub
Is there anyway to create an amalgamation of these two
peices of code to do what I need? Any help is greatly
appreciated.

Tim