Private Sub cmdPrinter_Click() 
    On Error Resume Next 
    Dim stDocName As String 
    stDocName = "Client Service Report" 
    DoCmd.OpenReport stDocName, acViewPreview 
    If Err = 2501 Then Err.Clear 
End sub 

------

Private Sub Report_NoData(Cancel As Integer) 
    On Error GoTo Err_Report_NoData 
    MsgBox "There are currently no records for that date range" 
    Cancel = True 
    Exit_Report_NoData: 
    Exit Sub 
    Err_Report_NoData: 
    MsgBox Err.Description 
    Resume Exit_Report_NoData 
End Sub

Private Sub cmdPrinter_Click() 
    On Error Resume Next 
    DoCmd.OpenReport "Client Service Report", acViewPreview 
End sub 

------

Private Sub Report_NoData(Cancel As Integer) 
    MsgBox "There are currently no records for that date range" 
    Cancel = True 
End Sub