Pivotchart out to PDF file using a macro or VB

[GaryCoulter]

I have a macro that will open a PivotChart on the screen. The second line in the macro is the Printout. Running the macro will output the Pivot Chart to the printer.

============================================================
Function Macro1()
On Error GoTo Macro1_Err

DoCmd.OpenForm "Query2", acFormPivotChart, "", "[Card_number]=4", , acNormal
DoCmd.PrintOut acPrintAll, 1, 1, acHigh, 1, True
DoCmd.OpenForm "Query2", acFormPivotChart, "", "[Card_number]=5", , acNormal
DoCmd.PrintOut acPrintAll, 1, 1, acHigh, 1, True
DoCmd.OpenForm "Query2", acFormPivotChart, "", "[Card_number]=15", , acNormal
DoCmd.PrintOut acPrintAll, 1, 1, acHigh, 1, True
DoCmd.OpenForm "Query2", acFormPivotChart, "", "[Card_number]=16", , acNormal
DoCmd.PrintOut acPrintAll, 1, 1, acHigh, 1, True


Macro1_Exit:
Exit Function

Macro1_Err:
MsgBox Error$
Resume Macro1_Exit

End Function

===========================================================

I am looking for a way to have all of the output PivotCharts from the macro be concatenated in one PDF file.

I have the Acrobat 6.0 software on my computer.

Any suggestions?