Hi Chaps,
I am using a the below code to print off reports - is there anyway to combine these reports into one pdf file?
I am using a the below code to print off reports - is there anyway to combine these reports into one pdf file?
Code:
Private Sub Command22_Click()
On Error GoTo ErrProc
DoCmd.OpenReport "FinancialReport", acViewPreview, , "AppointmentT.ApptID=" & ApptID
DoCmd.OutputTo acOutputReport, "FinancialReport", acFormatPDF, "C:\Clients\Financial.pdf"
DoCmd.Close acReport, "FinancialReport", acSaveNo
DoCmd.OpenReport "HealthReport", acViewPreview, , "HealthT.ApptID=" & Me.ApptID
DoCmd.OutputTo acOutputReport, "HealthReport", acFormatPDF, "C:\Clients\HealthReport.pdf"
DoCmd.Close acReport, "HealthReport", acSaveNo
DoCmd.OpenReport "HelpReport", acViewPreview, , "helpT.ApptID=" & Me.ApptID
DoCmd.OutputTo acOutputReport, "HelpReport", acFormatPDF, "C:\Clients\HelpReport.pdf"
DoCmd.Close acReport, "HelpReport", acSaveNo
DoCmd.OpenReport "PersonalReport", acViewPreview, , "ResillienceT.ApptID=" & Me.ApptID
DoCmd.OutputTo acOutputReport, "PersonalReport", acFormatPDF, "C:\Clients\PersonalReport.pdf"
DoCmd.Close acReport, "PersonalReport", acSaveNo
DoCmd.OpenReport "SelfEsteemReport", acViewPreview, , "SelfesteemT.ApptID=" & Me.ApptID
DoCmd.OutputTo acOutputReport, "SelfEsteemReport", acFormatPDF, "C:\Clients\SelfEsteemReport.pdf"
DoCmd.Close acReport, "SelfEsteemReport", acSaveNo
DoCmd.OpenReport "SocialReport", acViewPreview, , "SocialT.ApptID=" & Me.ApptID
DoCmd.OutputTo acOutputReport, "SocialReport", acFormatPDF, "C:\Clients\SocialReport.pdf"
DoCmd.Close acReport, "SocialReport", acSaveNo
DoCmd.OpenReport "WellbeingReport", acViewPreview, , "WellbeingT.ApptID=" & Me.ApptID
DoCmd.OutputTo acOutputReport, "WellbeingReport", acFormatPDF, "C:\Clients\WellbeingReport.pdf"
DoCmd.Close acReport, "WellbeingReport", acSaveNo
ExitProc:
Exit Sub
ErrProc:
Select Case Err.Number
Case 2501
Resume Next
Case Else
MsgBox Err.Number & " -- " & Err.Description
End Select
Resume ExitProc
End Sub