Solved

Printing Multiple Reports in Access - 1 missing when printed - OK when previewed

Posted on 2008-06-10
5
268 Views
Last Modified: 2013-11-28
I have a series of 5 Access reports that should be printed in a sequence.
With 4 everything works well, but adding the 5 does not work when printing - Previewing is ok.

Private Sub cmdPrintAll_Click()

On Error GoTo Err_cmdPrintAll_Click
 

    Dim stDocName As String

    Dim PrintParam

    

    PrintParam = acNormal

    

'    PrintParam = acPreview

    

    stDocName = "rptKPI123"

    DoCmd.OpenReport stDocName, PrintParam

    stDocName = "rptKPI4"

    DoCmd.OpenReport stDocName, PrintParam

    stDocName = "rptKPI56"

    DoCmd.OpenReport stDocName, PrintParam

    stDocName = "rptKPI7"

    DoCmd.OpenReport stDocName, PrintParam

    stDocName = "rptKPI8"

    DoCmd.OpenReport stDocName, PrintParam

    

Exit_cmdPrintAll_Click:

    Exit Sub
 

Err_cmdPrintAll_Click:

    MsgBox Err.Description

    Resume Exit_cmdPrintAll_Click

    

End Sub

Open in new window

0
Comment
Question by:IbDyhr
  • 3
  • 2
5 Comments
 
LVL 44

Expert Comment

by:GRayL
ID: 21756120
No point in declaring PrintParm and setting it = acPreview.  Try replacing PrintParm in each of the DoCmd lines with acPreview.  Why complicate matters any more than they need be.  Assuming 'Adding the 5' means Adding the 5th - rptKPI8 - does rptKPI8 have any data, and is there code that says if no data cancel the print?
0
 

Author Comment

by:IbDyhr
ID: 21756154
I only added the PrintParm to make it easier to wswitch between acPreview and acPrint to test if preview worked when print did not, and replacing it with what was originally acPrint makes no difference.

Yes you are right - it WAS adding the 5th report.

All reports take data from the  same open (tabbed) form in the same way, and there will always be data. No code for cancel if no data.

Cheers,
Ib
0
 
LVL 44

Accepted Solution

by:
GRayL earned 500 total points
ID: 21756207
>replacing it with what was originally acPrint makes no difference<
--------------------------------------------------^--did you mean acPreview?
0
 

Author Comment

by:IbDyhr
ID: 21756220
sorry - acNormal it was.

I want the reports printed, but as the last one did not turn up I tried the acPreview, where it DID turn up.

However, in the meantime I have discovered, that the missing, 5th report is actually being sent to a different printer, as my testprint of it earlier was on a colourprinter (for shows).

So I believe it was all a storm in a teacup, but thanks for you help anyway - you will get my points.

Thanks,
Ib
0
 

Author Closing Comment

by:IbDyhr
ID: 31465986
Can only say "Partially" as you did not have all the details needed.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most if not all databases provide tools to filter data; even simple mail-merge programs might offer basic filtering capabilities. This is so important that, although Access has many built-in features to help the user in this task, developers often n…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now