Perguntas Tratar quebra de linha campo Memo em relatório

Do While !oReport:Cancel() .And. !(cAliasQry)->(Eof()) .And. (cAliasQry)->ZC_NUMOS == cNumOS
		
		cNumOS   := (cAliasQry)->ZC_NUMOS
		
		If oReport:Cancel()
			Exit
		EndIf
		
		oReport:IncMeter()
		
		For nVias := 1 to MV_PAR14
			//nBegin	 := 1
			oReport:nRow := oReport:LineHeight() * 80
			
		
			//TRATAMENTO PARA CAMPO MEMO
			cAuxDet := SZC->ZC_DIARION//MSMM((cAliasQry)->ZC_DIARIO)  	            // Leitura do campo memo da descricao detalhada
			_nLinh  := MLCount(cAuxDet,_nTamC)
			While (nBegin <= _nLinh)
				If oReport:Row() > oReport:LineHeight() * 72
					oReport:nRow := 10
					oReport:nCol := 10
					oReport:EndPage()
					oReport:nRow := 10
					oReport:nCol := 10
					oReport:Box( oReport:Row(),oReport:Col(),oReport:Row() + oReport:LineHeight() * ( 93 - nPrinted ) , 2290 )
					oReport:Say(oReport:LineHeight() * ( 92 - nPrinted ),2000,STR0014+Space(1)+;
					StrZero(If((nBegin/53)<=Int(nBegin/53),Int(nBegin/53),Int(nBegin/53)+1),2)+"/"+;
					StrZero(If((_nLinh/53)<=Int(_nLinh/53),Int(_nLinh/53),Int(_nLinh/53)+1),2),oFont2)
					
				EndIf
				cTxt := Memoline(OemToAnsi(cAuxDet),_nTamC,nBegin)+' '//(STRTRAN(STRTRAN(STRTRAN(Memoline(OemToAnsi(cAuxDet),_nTamC,nBegin,,.t.),CHR(13),""),CHR(10),""),'\13\10',""))+' '
				MSGINFO(cTXT)
				oReport:Say(oReport:Row(),300,cTxt)//oReport:PrintText(cTxt,oReport:Row(),300)
				oReport:SkipLine()
				nBegin++
			End
			
		Next nVias
		
		nPrinted ++
		
		(cAliasQry)->(DbSkip())
		
	EndDo

For x := 1 To MLCount(CampoMemo, Tamanho)
  If !Empty( MLCount(CampoMemo, Tamanho) )
    If !Empty( MemoLine(CampoMemo, Tamanho, x) )
      oPrint:Say( nLin, 0001, OemToAnsi( MemoLine(CampoMemo, Tamanho, x) ))
    EndIf
  EndIf
Next x