[FONT=Times New Roman][SIZE=3]Private Sub Button_Run_Multiple_Reports_Click()[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]Dim strDefaultPrinter As String[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]' get current default printer.[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]strDefaultPrinter = Application.Printer.DeviceName[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]' switch to printer of your choice:[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]Set Application.Printer = Application.Printers("CutePDF Writer")[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]If Option_Ref_Loc_Bad_Debt_By_Paycode = True Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]DoCmd.OpenReport "Rpt_Ref_Loc_Bad_Debt_By_Paycode", acViewNormal[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]DoCmd.PrintOut[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3]DoCmd.Close acReport, "Rpt_Ref_Loc_Bad_Debt_By_Paycode", acSaveNo[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End if[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]' Switch back to original default printer[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]Set Application.Printer = Application.Printers(strDefaultPrinter)[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End sub[/SIZE][/FONT]