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