>Bom dia a todos estou com o seguinte erro:
>
>tenho esta função para a escolha da impressão.
>
>FUNCTION DoReport
>*****************
>LPARAMETERS lcReport
>LOCAL lcFile
>
>do case
> case lPrintAction = 1
> *--- Imprimir
> do case
> case lPrintMode = 1
> report form (lcReport) to printer noconsole
>
> case lPrintMode = 2
> lcTempFile = addbs(sys(2023))+SUBSTR(SYS(2015),3)+".TXT"
>
> *--- Determinar a porta
> ReportToText(lcReport,lcTempFile)
>
> *--- Imprimir na porta desejada
> *******************daqui para baixo que da o erro ***************
>
> *copy file (lcTempFile) to prn && com erro
> *! type (lcTempFile) >prn && nao imprime nada
> * copy file (lcTempFile) to lpt1 && imprime somento com windows xp sem erro,
> && no windows 98 imprime e no final ele da a seguinte mensagem:
> cannot create file c:\arquivo de programas\KLG\LTP1
> delete file &lcTempFile
> endcase
>endcase
>
>
>obs: isso tudo é para imprimir o relatorio em modulo DOS.
>
>Atenc.
>Alexandre Sola

Tente enviar à impresora com o comando "???". Se tiver o arquivo em disco:

MeuReporte = FileToStr("ArquivoEmDisco.txt")
??? Codigos_Impresora + MeuReporte