Solved

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

Posted on 2008-06-10
5
271 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
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 different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

752 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