Object method - multiple print

[Wayne-I-M]

Hi

I have a report that I need to filter then print a number of copies (5) all
the same.

I have used some code which includes DoCmd.SelectObject and DoCmd.PrintOut
but - It looks a mess (to the users) as the report opens then prints then
closes.

Apart from just running
DoCmd.OpenReport "ReportName", acViewNormal, .........
5 times

Is there a way to print 5 copies of the same (filtered) report.

I can't use DoCmd.SelectObject acReport, "SomeReportHere", True
DoCmd.PrintOut acPrintAll , , , , 5
As the report needs to be filted.

Any ideas

 

[Douglas J. Steele]

Try

DoCmd.OpenReport "ReportName", acViewPreview, .........
DoCmd.PrintOut acPrintAll , , , , 5
DoCmd.Close acReport, "ReportName"

 

[Wayne-I-M]

Hi Douglas

No - "very" strange with this you get 1 copy of the report and 5 copies of
the popup form.

If Me.ticklSPcards = -1 Then
DoCmd.SetWarnings False
DoCmd.OpenReport "rptCard", acViewNormal, "", "Filter Is Here",
acNormal
DoCmd.PrintOut acPrintAll, , , , 5
DoCmd.Close acReport, "rptCard"
DoCmd.SetWarnings True
End If

I think it may be just "one of those things"
I can use the normal print (5 times). I just assumed there would be a more
elegant method.

Thanks for the input anyway Douglas
--
Wayne
Manchester, England.

Try

DoCmd.OpenReport "ReportName", acViewPreview, .........
DoCmd.PrintOut acPrintAll , , , , 5
DoCmd.Close acReport, "ReportName"

 

[Douglas J. Steele]

Note that I suggested using acViewPreview, not acViewNormal.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

Hi Douglas

No - "very" strange with this you get 1 copy of the report and 5 copies
of
the popup form.

If Me.ticklSPcards = -1 Then
DoCmd.SetWarnings False
DoCmd.OpenReport "rptCard", acViewNormal, "", "Filter Is Here",
acNormal
DoCmd.PrintOut acPrintAll, , , , 5
DoCmd.Close acReport, "rptCard"
DoCmd.SetWarnings True
End If

I think it may be just "one of those things"
I can use the normal print (5 times). I just assumed there would be a
more
elegant method.

Thanks for the input anyway Douglas

 

[Wayne-I-M]

Perfect.

Many thanks Douglas