You could put a Maximize command in your code:
Private Sub cmdPayView_Click()
Dim Acc As Access.Application
Set Acc = New Access.Application
Acc.DoCmd.OpenReport "Employee Job Pay", acPreview
Acc.Visible = True
Set Acc = Nothing
or put a DoCmd.Maximize in the Open event of the report.