print report error

[Jen0dorf]

Hi

I have created a report based on a query. The query shows one specific record out of 1000sss

My code is below but I've missed something as it attempts to print out all records - 39000

I suspect the error is in the line accPagesAll but deleting it makes no difference

Private Sub btnPrintBansReport_Click()
DoCmd.OpenReport "rpt_Banns", , , "BannsId = " & Me.BannsId
DoCmd.PrintOut acPagesAll
End Sub

thanks

Ian

[apr pillai]

If the Report's Record Source Query result is only one record then there is no point in adding the criteria part of the DoCmd.OpenReport command.

Private Sub btnPrintBansReport_Click()
DoCmd.OpenReport "rpt_Banns",acViewNormal
End Sub

[Jen0dorf]

Hi

point taken

thanks a lot

Ian