.PaperBin = acPRBNAuto .PaperSize = acPRPSLetter .PrintQuality = acPRPQMedium End With DoCmd.Close objecttype:=acForm, _ objectname:=strFormname, _ Save:=acSaveYes End Sub