Reports not printing correctly

[Renee]

I have created a database using Access 2007 that we use for new hires; our HR
person enters the new employees information and then presses a button that is
on the form that I created that prints off all the reports with their name
filled in. This button works fine in Access 2007 but when someone that has
Access 2003 presses this button it only prints the fields that are on the
reports and nothing else. The reports I have created are scanned in forms
that we have created outside of Access and usually have employees manually
fill in their personal information. Once they are scanned into access I have
put the approriatly fields on top the report so once printed the names and
personal info is there and the employee doesn't have to write it.
Can anyone help me to figure out why this does not work on the Access 2003
version?

 

[Jeff Boyce]

Renee

We aren't there. We can't see the code that you added to that button-click.

More info, please...

--
Regards

Jeff Boyce
www.InformationFutures.net

Microsoft Office/Access MVP


Microsoft IT Academy Program Mentor
http://microsoftitacademy.com/

 

[Renee]

This is the code for my print button:

Private Sub PRINT_DOCS_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
strWhere = "[EMPLOYEE NUMBER] = " & Me.[EMP INFO].Form![EMPLOYEE
NUMBER]
DoCmd.OpenReport "CHECK CHART", acViewNormal, , strWhere
DoCmd.OpenReport "APP FOR EMPL", acViewNormal, , strWhere
DoCmd.OpenReport "EMPL INFO/CHGS", acViewNormal, , strWhere
DoCmd.OpenReport "TD1 08", acViewNormal, , strWhere
DoCmd.OpenReport "TD1AB 08", acViewNormal, , strWhere
DoCmd.OpenReport "PRE-AUTH CREDIT AGRMT", acViewNormal, , strWhere
DoCmd.OpenReport "DRIVERS ABST AUTH", acViewNormal, , strWhere
DoCmd.OpenReport "PIPA AGREEMENT", acViewNormal, , strWhere
DoCmd.OpenReport "CHAMBER OF COMMERCE", acViewNormal, , strWhere
DoCmd.OpenReport "QUICKCARD", acViewNormal, , strWhere
DoCmd.OpenReport "SEC FUND", acViewNormal, , strWhere
DoCmd.OpenReport "POWER OF ATTORNEY", acViewNormal, , strWhere
DoCmd.OpenReport "AHC", acViewNormal, , strWhere
End If

End Sub

 

[Jeff Boyce]

Renee

What do you mean by "scanned in forms"?


--
Regards

Jeff Boyce
www.InformationFutures.net

Microsoft Office/Access MVP


Microsoft IT Academy Program Mentor
http://microsoftitacademy.com/

This is the code for my print button:

Private Sub PRINT_DOCS_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
strWhere = "[EMPLOYEE NUMBER] = " & Me.[EMP INFO].Form![EMPLOYEE
NUMBER]
DoCmd.OpenReport "CHECK CHART", acViewNormal, , strWhere
DoCmd.OpenReport "APP FOR EMPL", acViewNormal, , strWhere
DoCmd.OpenReport "EMPL INFO/CHGS", acViewNormal, , strWhere
DoCmd.OpenReport "TD1 08", acViewNormal, , strWhere
DoCmd.OpenReport "TD1AB 08", acViewNormal, , strWhere
DoCmd.OpenReport "PRE-AUTH CREDIT AGRMT", acViewNormal, , strWhere
DoCmd.OpenReport "DRIVERS ABST AUTH", acViewNormal, , strWhere
DoCmd.OpenReport "PIPA AGREEMENT", acViewNormal, , strWhere
DoCmd.OpenReport "CHAMBER OF COMMERCE", acViewNormal, , strWhere
DoCmd.OpenReport "QUICKCARD", acViewNormal, , strWhere
DoCmd.OpenReport "SEC FUND", acViewNormal, , strWhere
DoCmd.OpenReport "POWER OF ATTORNEY", acViewNormal, , strWhere
DoCmd.OpenReport "AHC", acViewNormal, , strWhere
End If

End Sub

Renee

We aren't there. We can't see the code that you added to that button-click.

More info, please...

--
Regards

Jeff Boyce
www.InformationFutures.net

Microsoft Office/Access MVP


Microsoft IT Academy Program Mentor
http://microsoftitacademy.com/

our
HR that
is that
has I
have