Printing Reports. 1

[kpryan]

Hi all,
I use the code below to preview a report;
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


Dim strDocName As String
Dim strWhere As String
strDocName = "Report32"
strWhere = "[RecordNo]=" & Me!RecordNo
DoCmd.OpenReport strDocName, , strWhere

This will preview the current report data to be printed.
How is the code written to just print the report without the preview.

Many thanks,

Ken

 

[TheAceMan1]

How are ya kpryan . . .

[blue]DoCmd.OpenReport strDocName, [purple][b]acViewNormal[/b][/purple], strWhere[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[kpryan]

Many thanks Aceman1,
Works fine, but when it prints it wants to microsoft error closes the database?
Do you have any ideas.

Ken

 

[TheAceMan1]

kpryan . . .

[blue]DoCmd.OpenReport strDocName, , [purple][b],[/b][/purple] strWhere[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886