PC Toledo

Pessoal, abaixo tem uma funcao que mando imprimir um arquivo.
O que nao entendo é pq sempre pula uma linha no inicio.Exemplo, é pra comecar a imprimir na linha 1 , mas comeca na 2

Se eu for mandar imprimir por um editor qualquer sai na linha 1 como deve ser.

O que ta errado
Obrigado

/****************************************************************************/
FUNCTION IMPRIME(arquivo)
arquivo := "C:\IMPRIME\NEGRAO.PRN"
xporta := "LPT1"
XTERM := "\\ELTON\EPSON"

NETREDIR(XPORTA+":",XTERM)
SET DEVICE TO PRINT
SET PRINTER TO &XPORTA
set console off
TYPE &arquivo TO PRINTER
set console off
SET PRINTER TO
NETCANCEL(XPORTA+":")
set device to screen
FCLOSE(ARQUIVO)
keyboard chr(27)
return .t.

troque a ordem deste comando 'set console off '


/****************************************************************************/
FUNCTION IMPRIME(arquivo)
arquivo := "C:\IMPRIME\NEGRAO.PRN"
xporta := "LPT1"
XTERM := "\\ELTON\EPSON"

NETREDIR(XPORTA+":",XTERM)
set console off
SET DEVICE TO PRINT
SET PRINTER TO &XPORTA
TYPE &arquivo TO PRINTER
SET PRINTER TO
set device to screen
NETCANCEL(XPORTA+":")
set console On
FCLOSE(ARQUIVO)
keyboard chr(27)
return .t.

Daniel, obrigado pela ajuda , mas continua na mesma.

Sera que é o comando Type ?

Acho que e ele mesmo.
e se vc fizer assim
FUNCTION IMPRIME(arquivo)
arquivo := "C:\IMPRIME\NEGRAO.PRN"
xporta := "LPT1"
XTERM := "\\ELTON\EPSON"

NETREDIR(XPORTA+":",XTERM)
set console off
! copy /b &arquivo lpt1
set console on
NETCANCEL(XPORTA+":")
FCLOSE(ARQUIVO)
keyboard chr(27)
return .t.