Change a switchboard macro to output ot excel ...

[lynneallan]

Hi

I have a switchboard macro running several reports, this is then output to the printer. I want to change the command
to output to excel, creating a new sheet per report.

I am quite new to this !!

Thanq

 

[rry2k]

Show me the Macro and I will try to help.

Russ

 

[lynneallan]

Here you go thanks for looking.
Lynne

Private Sub Option1_Click()
DoCmd.OpenReport "01 Blank accident description", acViewNormal
DoCmd.OpenReport "02 Blank occurence date", acViewNormal
DoCmd.OpenReport "03 Blank Registration number", acViewNormal
DoCmd.OpenReport "05 Closed Claims with Reserve", acViewNormal
DoCmd.OpenReport "06 EL With no WC table", acViewNormal
DoCmd.OpenReport "07 GL With no GL table", acViewNormal
DoCmd.OpenReport "08 Invalid Claimant ID", acViewNormal
DoCmd.OpenReport "10 Missing Account Record", acViewNormal
DoCmd.OpenReport "11 Missing Locations", acViewNormal
DoCmd.OpenReport "12 Missing Policies", acViewNormal
DoCmd.OpenReport "13 Motor No Driver", acViewNormal
DoCmd.OpenReport "14 MTR With no AL table", acViewNormal
DoCmd.OpenReport "15 No Claim parties", acViewNormal
DoCmd.OpenReport "16 No Claimant 001", acViewNormal
DoCmd.OpenReport "17 No Insurer Attached to Policy", acViewNormal
DoCmd.OpenReport "22 Closed Claims without a Cls date", acViewNormal
DoCmd.OpenReport "23 Claims with no receive dates", acViewNormal
DoCmd.OpenReport "24 Drivers with typ 'C' instead of 'O'", acViewNormal
DoCmd.OpenReport "27 Policies without BRK_COD", acViewNormal
End Sub


Private Sub Exit_Click()
On Error GoTo Err_Exit_Click


DoCmd.Quit

Exit_Exit_Click:
Exit Sub

Err_Exit_Click:
MsgBox Err.Description
Resume Exit_Exit_Click

End Sub

 

[rry2k]

As far as I've seen so far. The options for a report are:
use a send object to send through email or setup Adobe and save as a PDF. Sorry I can't give you exactly what your looking for.

Russ