Paged ou Paged-Size

Pessoa bom dia.

O problema é o seguinte quando uso:

Código:

output to value(meuarquivo) paged-size 50.
disp "teste".
output close.

Sempre no final do arquivo o comando paged insere uma quebra de linha. Isso qdo envio para um impressora que esta configurada para duplex sempre vai puxar uma pagina em branco a mais bem como mando gerar PDF tbem gera uma pagina a mais.

Alguem sabe uma maneira de remover este ultimo caracter do arquivo gerado?

Pessoal resolvido, qdo o ultimo caracter do arquivo for quebra entao troco po vazio..

Código:

DEFINE VARIABLE zz-posicao AS INTEGER NO-UNDO.

INPUT FROM  "C:\temp\625_r32782.txt" NO-ECHO.
SEEK INPUT TO END.
ASSIGN zz-posicao = SEEK(INPUT).
SEEK INPUT TO zz-posicao - 1.
READKEY.
INPUT CLOSE.
IF LASTKEY = 13 OR LASTKEY = 12  THEN
DO:
    MESSAGE "Quebra na posicao " zz-posicao
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
OUTPUT TO "C:\temp\625_r32782.txt" APPEND NO-ECHO.
SEEK OUTPUT TO (zz-posicao - 1).

PUT UNFORMATTED 'X'.
  /*REPLACE(SUBSTRING)*/
OUTPUT CLOSE.
END.
ELSE
    MESSAGE LASTKEY " Ultima posicao nao é quebra"
        VIEW-AS ALERT-BOX INFO BUTTONS OK.