Espaçamento Linha Epson LX 300

Olá Pessoal,
Criei um relatório em um arquivo texto, depois enviei para a impressora Epson LX300 a impressão, mas eu preciso em um determinado campo para ajustar o formulário, pular um espaçamento menor que uma linha, e maior do que o espaçamento normal.
Ex :

DEF VAR i-listar AS CHAR FORM 'X(60)'.

OUTPUT TO VALUE ('C:\SISTEM\SPOOL\NOTA.DAT')
i-listar = 'teste de impressão LINHA 01'.
PUT i-listar SKIP(01). /*<-aqui preciso que o espaço seja menor que 1 linha normal*/

i-listar = 'teste de impressão LINHA 02'.
PUT i-listar SKIP.
OUTPUT CLOSE.

DOS SILENT 'COPY C:\SISTEM\SPOOL\NOTA.DAT LPT1'.


Att,
Diogo

Você tem que enviar o comando pela sua aplicação:

ESC 0 Seleciona espaçamento de linha de 1/8"
ESC 1 Seleciona espaçamento de linha de 7/72"
ESC 2 Seleciona espaçamento de linha de 1/6"
ESC 3 n Seleciona espaçamento de linha de n/216"
ESC A n Seleciona espaçamento de linha de n/72"

Peguei esses códigos no site da Epson http://www.suporte-epson.com.br/, mas não cheguei a testar. Veja se é isso que você precisa.

Mas como envio este comando para a impressora pelo progress?

Att,

Diogo

Para impressoras Jato de tinta e laser utilizo o comando put control.

Por exemplo:

Código:

put control "~033&l12D".   /* espaçamento linhas por pol. */

Não tenho como testar aqui por não ter impressora matricial, mas faça um teste utilizando o comando put control + o código ASC correspondente ao espaçamento de linha que você precisa.