Merge reports into one report

[jl2886]

Is there a way to merge seperate reports into one report. And/Or is there a way to merge reports together and auto generate a pdf.

[NeoPa]

1. Not that I know of other than designing a report to show data from a dataset which would include both original datasets. It's also possible to use the concept of Sub-reports though. That may help, depending on what you're actually asking.
2. There may be some third-party code for auto-generating a PDF. I still do that manually via an Acrobat Distiller printer on my system.

[nsymiakakis]

For combining forms, the easiest way is Subforms, just run help for directions on how to do that.
As far as creating a PDF, I would create a Macro to open the Form, and use the PrntOut option to send it to an AdobePS Printer. This printer is installed as part of the Distiller from Adobe.
Hope this helps,
Nick

[RaySmith]

I export multiple reports to RTF files. Then from access, open word, run VBA code in Access to merge the output files into one Word documnet (essentially running a Word macro from withing Access). You must have to have the office and word libraries attached via references in your VBA module(s).

If you're using Word2007 then you would be able to save it as a PDF file.

The code for my sub is below. It's not tidy but it works!

Ray

Dim od, ap, ofln, nfln, mn, act, myfco, myfcn As String
Dim WordApp As Object
Dim WordDoc As Object
Dim fs As Object
Dim myDir, myBaseFileNme As String
Dim i As Integer
Dim a As Variant
' get and set parameter for output directory
current_dir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
od = current_dir & "Output\" 
On Error GoTo errorCOPY ' if error in finding the default results front page.doc then warn
' copy the default front page to a new name to open it for the merge
ofln = "default results front page.doc"
nfln = "final results.doc"
myfco = od & ofln
myfcn = od & nfln
' do the file copy
FileSystem.FileCopy myfco, myfcn
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(myfcn)
WordApp.Visible = True
' Word Macro commands follow
With WordApp.ActiveWindow
    .Selection.EndKey Unit:=wdStory
    ' search for any reports files in the current directory
    Set fs = Application.FileSearch
    With fs
        ' get the current path for the document (as set previously in sub)
        .LookIn = od
        ' loop through all the reports and merge
        .FileName = "R*.RTF"
        If .Execute(SortBy:=msoSortbyFileName, SortOrder:=msoSortOrderAscending) > 0 Then
            For i = 1 To .FoundFiles.Count
                a = .FoundFiles(i)
                WordApp.ActiveWindow.Selection.TypeParagraph
                WordApp.ActiveWindow.Selection.InsertFile FileName:=a, Range:="", ConfirmConversions:= _
                    False, Link:=False, Attachment:=False
            Next i
        End If
    End With
    .Selection.HomeKey Unit:=wdStory
End With
Set WordApp = Nothing
Exit Sub
' this is the errorhandler
errorCOPY:
msgbox "Couldn't find the file - default blank report.doc in the Output directory." & Chr$(13) & "Run Aborted. Check file location!", vbCritical, "File Not Present"