Private Sub Print_Current_Record_Click()
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
Interaction.Beep
'Id = record number
strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "CURRENTLY SHOWN EMPLOYER_REPORT", acViewPreview, , strWhere
End If
End Sub
Sub Print_Dialog_Box()
Dim bTemp As Boolean
'Calls the normal print window.
bTemp = Application.Dialogs(xlDialogPrint).Show
End Sub