*Changepapersize.prg Lparameters pcData, pcPapersize Local laArray[1], ; lcNewValue As String, ; lcReturn As String, ; lcVariable As String, ; llChanged As Boolean, ; lnArraylen As Number, ; lnCounter As Number lcReturn = [] If Vartype(pcData) # [C] Or Vartype(pcNewValue) = [C] Or Empty(pcPapersize) Return pcData Endif Do Case Case Upper(pcPapersize) = [LEGAL] lcNewValue = [5] Case Upper(pcPapersize) = [A4] lcNewValue = [9] Otherwise && 'Letter' lcNewValue = [1] Endcase #Define crlf Chr(13)+Chr(10) lcVariable = [PAPERSIZE] lcNewValue = lcVariable + [=] + lcNewValue lnArraylen = Alines(laArray, pcData) For lnCounter = 1 To lnArraylen If Upper(Getwordnum(laArray(lnCounter), 1, [ =])) == lcVariable laArray(lnCounter) = lcNewValue llChanged = .T. Exit Endif Endfor For lnCounter = 1 To lnArraylen lcReturn = lcReturn + laArray(lnCounter) If lnCounter < lnArraylen lcReturn = lcReturn + crlf Endif Endfor If !llChanged lcReturn = lcReturn + crlf + lcNewValue Endif Return lcReturn>Hi Folks