Multiple Reports in Snapshot Viewer

[SHardy]

Hi,

We have a report "pack" that we produce on a regular basis, and would like to distribute via email. Using snapshot seems the obvious solution.

However, the pack is made up of quite a few reports, and we would like not to be sending a large amount of individual files.

Is there a way I can either:
1) Merge a load of snapshot files into one?
2) Save several reports inot one snapshot from Access?

If it is not possible to create a single "report pack" file for Snapshot viewer, then is there another approach? I would need to be able to keep all the formatting, as there are a number of graphs included, as well as a company logo.

Thanks,
S

 

[gwog]

I wonder if you could create a master report that contains all the other reports? then when that is kicked off export that to a snapshot report.

I have sort of an example of a master report if you want me to email a screen shot of it's design view to you I will - just post your email address.

 

[SHardy]

Yes please, if you could email me the screenshot, that would be great. Presumably this requires lots of "can grow" sub reports with page breaks?

Thanks,
S

Email address: SPshardyAM@TRqbe-europeAP.com

(remove the SPAM TRAP first)

 

[gwog]

SHardy,

I tried to email to you twice but got returned undeliverable.

You are correct it is a series of 'can grow' sub reports in a master report.

The initial form allows user to select which reports want to view/print (by check boxes), then pressing a command button that opens the master report in design view and sets each of the sub reports visible property to true for those boxes that are checked.

Here is some of the code (sorry it is so long):

___________________________________________________________

' Determines which sub reports to display
' based on the check box status
If intPlannerComm = -1 Then
Reports![rptFRSummaryLevel]![CommPlanner].Visible = True
Reports![rptFRSummaryLevel]![CommPlanner].SourceObject = "Report.rptCommPlanner"
Else
Reports![rptFRSummaryLevel]![CommPlanner].Visible = False
Reports![rptFRSummaryLevel]![CommPlanner].SourceObject = ""
End If

If intCG = -1 Then
If intTopValues = 0 Then
Reports![rptFRSummaryLevel]![CustGrp].Visible = True
Reports![rptFRSummaryLevel]![CustGrp].SourceObject = "Report.rptFRCustGrp"
Else
Reports![rptFRSummaryLevel]![CustGrp].Visible = True
Reports![rptFRSummaryLevel]![CustGrp].SourceObject = "Report.rptFRCustGrp_Top10"
End If
Else
Reports![rptFRSummaryLevel]![CustGrp].Visible = False
Reports![rptFRSummaryLevel]![CustGrp].SourceObject = ""
End If

If intCGComm = -1 Then
Reports![rptFRSummaryLevel]![CommCustGrp].Visible = True
Reports![rptFRSummaryLevel]![CommCustGrp].SourceObject = "Report.rptCommCustGrp"
Else
Reports![rptFRSummaryLevel]![CommCustGrp].Visible = False
Reports![rptFRSummaryLevel]![CommCustGrp].SourceObject = ""
End If

If intCust = -1 Then
If intTopValues = 0 Then
Reports![rptFRSummaryLevel]![Cust].Visible = True
Reports![rptFRSummaryLevel]![Cust].SourceObject = "Report.rptFRCust"
Else
Reports![rptFRSummaryLevel]![Cust].Visible = True
Reports![rptFRSummaryLevel]![Cust].SourceObject = "Report.rptFRCust_Top10"
End If


Else
Reports![rptFRSummaryLevel]![Cust].Visible = False
Reports![rptFRSummaryLevel]![Cust].SourceObject = ""
End If

If intOverall = -1 Then
Reports![rptFRSummaryLevel]![CommOverall].Visible = True
Reports![rptFRSummaryLevel]![CommOverall].SourceObject = "Report.rptCommOverallMgmt"
Else
Reports![rptFRSummaryLevel]![CommOverall].Visible = False
Reports![rptFRSummaryLevel]![CommOverall].SourceObject = ""
End If

If intLoc = -1 Then
Reports![rptFRSummaryLevel]![Location].Visible = True
Reports![rptFRSummaryLevel]![Location].SourceObject = "Report.rptFRLocation"
Else
Reports![rptFRSummaryLevel]![Location].Visible = False
Reports![rptFRSummaryLevel]![Location].SourceObject = ""
End If

If intLocComm = -1 Then
Reports![rptFRSummaryLevel]![CommLocation].Visible = True
Reports![rptFRSummaryLevel]![CommLocation].SourceObject = "Report.rptCommLocation"
Else
Reports![rptFRSummaryLevel]![CommLocation].Visible = False
Reports![rptFRSummaryLevel]![CommLocation].SourceObject = ""
End If

If intChannel = -1 Then
Reports![rptFRSummaryLevel]![CHANNEL].Visible = True
Reports![rptFRSummaryLevel]![CHANNEL].SourceObject = "Report.rptFRChannel"
Else
Reports![rptFRSummaryLevel]![CHANNEL].Visible = False
Reports![rptFRSummaryLevel]![CHANNEL].SourceObject = ""
End If

If intChannelComm = -1 Then
Reports![rptFRSummaryLevel]![CommChannel].Visible = True
Reports![rptFRSummaryLevel]![CommChannel].SourceObject = "Report.rptCommChannel"
Else
Reports![rptFRSummaryLevel]![CommChannel].Visible = False
Reports![rptFRSummaryLevel]![CommChannel].SourceObject = ""
End If

If intLOB = -1 Then
Reports![rptFRSummaryLevel]![LOB].Visible = True
Reports![rptFRSummaryLevel]![LOB].SourceObject = "Report.rptFRLOB"
Else
Reports![rptFRSummaryLevel]![LOB].Visible = False
Reports![rptFRSummaryLevel]![LOB].SourceObject = ""
End If

If intLOBComm = -1 Then
Reports![rptFRSummaryLevel]![CommLOB].Visible = True
Reports![rptFRSummaryLevel]![CommLOB].SourceObject = "Report.rptCommLOB"
Else
Reports![rptFRSummaryLevel]![CommLOB].Visible = False
Reports![rptFRSummaryLevel]![CommLOB].SourceObject = ""
End If

If intBrand = -1 Then
Reports![rptFRSummaryLevel]![Brand].Visible = True
Reports![rptFRSummaryLevel]![Brand].SourceObject = "Report.rptFRBrand"
Else
Reports![rptFRSummaryLevel]![Brand].Visible = False
Reports![rptFRSummaryLevel]![Brand].SourceObject = ""
End If

If intSCCat = -1 Then
Reports![rptFRSummaryLevel]![SCCAT].Visible = True
Reports![rptFRSummaryLevel]![SCCAT].SourceObject = "Report.rptFRSCCat"
Else
Reports![rptFRSummaryLevel]![SCCAT].Visible = False
Reports![rptFRSummaryLevel]![SCCAT].SourceObject = ""
End If

If intSCCatComm = -1 Then
Reports![rptFRSummaryLevel]![CommSuppCat].Visible = True
Reports![rptFRSummaryLevel]![CommSuppCat].SourceObject = "Report.rptCommSuppCat"
Else
Reports![rptFRSummaryLevel]![CommSuppCat].Visible = False
Reports![rptFRSummaryLevel]![CommSuppCat].SourceObject = ""
End If

If intSupGrp = -1 Then
Reports![rptFRSummaryLevel]![SuppGrp].Visible = True
Reports![rptFRSummaryLevel]![SuppGrp].SourceObject = "Report.rptFRSuppGrp"
Else
Reports![rptFRSummaryLevel]![SuppGrp].Visible = False
Reports![rptFRSummaryLevel]![SuppGrp].SourceObject = ""
End If

If intBUCat = -1 Then
Reports![rptFRSummaryLevel]![BUCat].Visible = True
Reports![rptFRSummaryLevel]![BUCat].SourceObject = "Report.rptFRBUCat"
Else
Reports![rptFRSummaryLevel]![BUCat].Visible = False
Reports![rptFRSummaryLevel]![BUCat].SourceObject = ""
End If

If intBUSubCat = -1 Then
Reports![rptFRSummaryLevel]![BUSubCat].Visible = True
Reports![rptFRSummaryLevel]![BUSubCat].SourceObject = "Report.rptFRBUSubCat"
Else
Reports![rptFRSummaryLevel]![BUSubCat].Visible = False
Reports![rptFRSummaryLevel]![BUSubCat].SourceObject = ""
End If

If intItem = -1 And intItemReasonCodeRollup = -1 Then
Reports![rptFRSummaryLevel]![ITEM].Visible = False
Reports![rptFRSummaryLevel]![ITEM].SourceObject = ""
Reports![rptFRSummaryLevel]![ItemReasonCode].Visible = True
Reports![rptFRSummaryLevel]![ItemReasonCode].SourceObject = "Report.rptFRItemReasonCode"

ElseIf intItem = -1 Then
If intTopValues = 0 Then
Reports![rptFRSummaryLevel]![ITEM].Visible = True
Reports![rptFRSummaryLevel]![ITEM].SourceObject = "Report.rptFRItem"
Reports![rptFRSummaryLevel]![ItemReasonCode].Visible = False
Reports![rptFRSummaryLevel]![ItemReasonCode].SourceObject = ""
Else
Reports![rptFRSummaryLevel]![ITEM].Visible = True
Reports![rptFRSummaryLevel]![ITEM].SourceObject = "Report.rptFRItem_Top10"
Reports![rptFRSummaryLevel]![ItemReasonCode].Visible = False
Reports![rptFRSummaryLevel]![ItemReasonCode].SourceObject = ""
End If
Else
Reports![rptFRSummaryLevel]![ITEM].Visible = False
Reports![rptFRSummaryLevel]![ITEM].SourceObject = ""
Reports![rptFRSummaryLevel]![ItemReasonCode].Visible = False
Reports![rptFRSummaryLevel]![ItemReasonCode].SourceObject = ""

End If

If intReason = -1 And intReasonCodeItemNoRollup = -1 Then
Reports![rptFRSummaryLevel]![ReasonCode].Visible = False
Reports![rptFRSummaryLevel]![ReasonCode].SourceObject = ""
Reports![rptFRSummaryLevel]![ReasonCodeItem].Visible = True
Reports![rptFRSummaryLevel]![ReasonCodeItem].SourceObject = "Report.rptFRReasonCodeItem"

ElseIf intReason = -1 Then

Reports![rptFRSummaryLevel]![ReasonCode].Visible = True
Reports![rptFRSummaryLevel]![ReasonCode].SourceObject = "Report.rptFRReasonCode"
Reports![rptFRSummaryLevel]![ReasonCodeItem].Visible = False
Reports![rptFRSummaryLevel]![ReasonCodeItem].SourceObject = ""

Else
Reports![rptFRSummaryLevel]![ReasonCode].Visible = False
Reports![rptFRSummaryLevel]![ReasonCode].SourceObject = ""
Reports![rptFRSummaryLevel]![ReasonCodeItem].Visible = False
Reports![rptFRSummaryLevel]![ReasonCodeItem].SourceObject = ""

End If

___________________________________________________________

Hope that helps.

 

[SHardy]

Thanks. Won't need code, as ALL reports must be printed. One small problem. Three of the reports are formatted as landscape, while all others are portrait. Can Access switch paper orientation within the one master report? If not, possibly a work around using the "On Format" property? However, I CANNOT change the order of the reports. Therefore cannot put all the landscape pages together at the end.

Did you remove "SPAMTRAP" from email address?

Thanks,
S