DO CHANGESIZE WITH "C:\myreport.FRX", 5 && Change to legal size or whatever the number is for the custom size. FUNCTION CHANGESIZE LPARAMETER lcFRX, lnSize LOCAL lcNewExpr, lnStartCopiesLine, lcStartAtCopiesLine, lnEndCopiesLine ; lnLenCopiesLine, lcTop, lcBottom #DEFINE vfCRLF CHR(13) + CHR(10) IF !(UPPER(RIGHT(lcFRX, 4)) = ".FRX") lcFRX = lcFRX + ".FRX" ENDIF USE (lcFRX) LOCATE FOR objType = 1 AND objCode = 53 IF EMPTY(EXPR) lcNewExpr = "PAPERSIZE=" + ALLT(STR(lnSize)) + vfCRLF ELSE lnStartCopiesLine = ATC("PAPERSIZE", EXPR) lcStartAtCopiesLine = SUBSTR(EXPR, lnStartCopiesLine) lnEndCopiesLine = ATC(vfCRLF, lcStartAtCopiesLine) lnLenCopiesLine = LEN(SUBSTR(lcStartAtCopiesLine, 1, lnEndCopiesLine)) lcTop = SUBSTR(EXPR, 1, lnStartCopiesLine - 1) lcBottom = SUBSTR(EXPR, (LEN(lcTop) + lnLenCopiesLine)) lcNewExpr = lcTop + "PAPERSIZE=" + ALLT(STR(lnSize)) + lcBottom ENDIF REPLACE EXPR WITH lcNewExpr USE IN (lcFRX) ENDFUNC>hi all, how do i passing width and height in custom paper size automaticly