Impressao de relatorios

[negrao]

Moçada, peguei um sisteminha aqui e estou mudando os fontes do clipper 5.2 para o fivewin.
So que nos relatorios ja estou tendo problemas.
Alguns comandos nao funcionam, dao erro
veja como esta o relatorio usando o clipper 5.2

......
Set Device to Printer
Pag := 1
Lin := 65
cRel := 'RELATORIO DE CLIENTES'
Cli->(DbGotop())
While !cli->(EOF())
If Lin == 1 .or. Lin > 58
@ lin,000 Say '*- Codigo -* *------- Nome ------* '
lin++
Endif
@ lin,000 Say Str(cli->Chv_Clie,05)
@ lin,008 Say SUBS(cli->Nom_Clie,1,30)
lin++
cli->(Dbskip())
Enddo

@ lin,000 Say Chr(18)
Eject
Set device to Screen
set printer to
Set Cursor Off
RestScreen(0,0,24,79,cTela)
Return


O que precisa ser alterado para imprimir ?

Obrigado

[rochinha]

Amiguinho

Veja o exemplo:

http://www.softclever.com/downloads/dosprint.prg e
http://www.softclever.com/downloads/dosprint.ch

No exemplo eu coloquei comandos parecidos com o DOS normal e a impressão ficou show de bola inclusive no posicionamento de colunas e linhas.

No meu sistema coloquei este recurso para imprimir pré-impressos como cheques, boletos e notas fiscais.

@braços :?)