Problem Printing Reports

[Langels00]

I am working a simple address project which generates a report of addresses and the address information. The report looks great on the screen in Report mode. I have a button on the report called "Print". When executed "on_Click", the following code executes:

Private Sub Command32_Click()
Docmd.SetWarnings False
'Docmd.OpenReport "rptAddresses", acViewNormal
Docmd.RunCommand acCmdPrint
Docmd.SetWarnings True

End Sub

Either alternative I choose to run seems to produce the same results. The select printer dialog box opens allowing me to select the printer I want. But then the report that prints consists of only ten records and only the first two columns. The ten records appear to be the last 10 records on the first page of a 4 page report. Anybody have any helpful suggestions? I suspect the solution is simple, but it eludes me. Langels00

 

[Mihail]

Try this:
Private Sub Command32_Click()
Docmd.OpenReport "rptAddresses"
End Sub

 

[Langels00]

Thanks Mihail, but the result is the same. The printed report consists of only ten rows, to columns each. It should be 90 plus rows of 10 columns each.

 

[jdraw]

Try adding this line of code right after this
Private Sub Command32_Click()

Msgbox me.RecordSource


*********untested but lets see what the report thinks**

 

[Langels00]

jdraw, The message box returns tblAddresses which is the correct table.

 

[Mihail]

Remove the privacy information from the DB and upload it.
Access 2003 version if possible.

 

[jdraw]

I agree with Mihail to upload the db.

How many records in table tblAddresses?

 

[Langels00]

Sorry it has taken so long to get back to you guys. I tried to upload the DB but my file was too large, 4.4 MB. The limit is 2,0 MB. Any suggestions?

 

[Langels00]

I was able to zip the file using WinZip. I hope you can unZip the file and get a functional DB. Let me know. What you will see if this works might rasie your eye brows. Feel free to add suggestions. I am still trying to figure out how to execute Refresh and Requiry commands to update my edits to table/query entries. Let me know if you did not get the attachment.I appreciate your help.

 

[Langels00]

Sorry guys, I attached the wrong file in the previous post. Please use the file attached below. Thanks.

 

[Langels00]

OK. I tride printing on a different printer. It worked fine. So I guess I need to resolve a problem with the printer. Thanks for your help. This problem has been resolved.