Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

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

Posted on 2008-06-10
5
Medium Priority
?
277 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 1500 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

Nothing ever in the clear!

This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.

Question has a verified solution.

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

Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

824 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