If printerSetCurrent(anotherarray["zDP"]) then
prnOptions.Orientation = prnPortrait
										 if printerSetOptions(prnOptions) then
											 ReportInfo.PanelOptions = PrintClipToWidth
											 ReportInfo.Name = rp
											 r.print(ReportInfo)
											else
											 errorShow("Could not set printer options.")
										 endIf
									  else
											msgStop("Printer setup", "A printer Named " +" ' "+ DP +" ' "+ "is not installed !")
									 endif