Sub ClearPrinterSettings()
	Dim rpt As AccessObject

	For Each rpt In CurrentProject.AllReports
		DoCmd.OpenReport rpt.Name, acViewDesign
		If Not Reports(rpt.Name).UseDefaultPrinter Then
			Reports(rpt.Name).UseDefaultPrinter = True
			DoCmd.Save acReport, rpt.Name
		End If
		DoCmd.Close
	Next rpt
End Sub