IMPRIMIR EM ARQUIVO TXT

[douglas_villa]

estou com uma duvida

COMO FAÇO PRA IMPRIMIR ESTES DADOS EM ARQUIVO TXT???????

SET CURSOR OFF
SET DEVICE TO PRINTER
FOR Z = 1 TO CONF
SET PRINT ON
?? CHR(18)
SELECT 1
SET ORDER TO 1
SEEK XEMPRESAC
@ PROW()+14,01 SAY PADC("Nro. Orcamento: " + STRZERO(XNUMERO)+" " + " - " + "Data Orcamento: " + DTOC(DATE()),79)
@ PROW()+2,17 SAY REPLICATE("=",47)
@ PROW()+1,01 SAY PADC("*** O R C A M E N T O ***",79)
@ PROW()+1,17 SAY REPLICATE("=",47)
@ PROW()+3,01 SAY REPLICATE("-",76)
@ PROW()+1,01 SAY "CLIENTE..: " + EMPRESA
@ PROW()+1,01 SAY "ENDERECO.: " + ENDERECO
@ PROW()+1,01 SAY "A/C......: " + RESP
@ PROW()+1,01 SAY "FONE.....: " + TELEFON1
@ PROW()+1,01 SAY "FAX......: " + FAX
SELECT 2
SET ORDER TO 1
@ PROW()+1,01 SAY REPLICATE("-",76)
@ PROW()+1,01 SAY PADC("APARELHO: "+APAREL+ " -" + " MODELO: "+MODELO+ " -" + " SERIE: "+SERIE,76)
@ PROW()+1,01 SAY REPLICATE("-",76)
@ PROW()+3,01 SAY PADC("S E R V I C O S",79)
@ PROW()+2,01 SAY XD1
@ PROW()+1,01 SAY XD2
@ PROW()+1,01 SAY XD3
@ PROW()+1,01 SAY XD4
@ PROW()+1,01 SAY XD5
@ PROW()+1,01 SAY XD6
@ PROW()+1,01 SAY XD7
@ PROW()+1,01 SAY XD8
@ PROW()+1,01 SAY XD9
@ PROW()+1,01 SAY XD10
@ PROW()+1,01 SAY XD11
@ PROW()+1,01 SAY XD12
@ PROW()+1,01 SAY XD13
@ PROW()+1,01 SAY XD14
@ PROW()+1,01 SAY XD15
@ PROW()+2,01 SAY "VALOR TOTAL...: R$ " + TRANSFORM(XVALOR,"@BE 9,999,999.99")
@ PROW()+2,01 SAY XEXTEN1
@ PROW()+1,01 SAY XEXTEN2
@ PROW()+2,01 SAY "COND. PGTO....:" + XCONPGTO
@ PROW()+1,01 SAY "GARANTIA......:" + XGARAN
@ PROW()+1,01 SAY "VALIDADE ORC..:" + XVALIDADE
@ PROW()+2,01 SAY "** PARA CONFIRMAR, ASSINAR E DEVOLVER VIA FAX **"
@ PROW()+4,01 SAY "______________________________ _________________________"
@ PROW()+1,01 SAY " A JATO AR CONDICIONADO LTDA. C L I E N T E "
EJECT
NEXT
SET DEVICE TO SCREEN
RETURN


ME AJUDEM

[kiko]

rapaiz...

faz assim

SET DEVICE TO PRINT
SET PRINTER TO TELA.PRN

feito isso, tira aquele SET PRINT ON

e no final do relatorio coloca

SET PRINTER TO
SET DEVICE TO SCREEN

ve se funciona...

ate a proxima

[digitom]

No exemplo que você mandou ficará assim:

SET CURSOR OFF

SET PRINTER TO RELAT.TXT
SET DEVICE TO PRINTER
SET PRINTER ON

FOR Z = 1 TO CONF
?? CHR(18)
SELECT 1
SET ORDER TO 1
SEEK XEMPRESAC
@ PROW()+14,01 SAY PADC("Nro. Orcamento: " + STRZERO(XNUMERO)+" " + " - " + "Data Orcamento: " + DTOC(DATE()),79)
@ PROW()+2,17 SAY REPLICATE("=",47)
@ PROW()+1,01 SAY PADC("*** O R C A M E N T O ***",79)
@ PROW()+1,17 SAY REPLICATE("=",47)
@ PROW()+3,01 SAY REPLICATE("-",76)
@ PROW()+1,01 SAY "CLIENTE..: " + EMPRESA
@ PROW()+1,01 SAY "ENDERECO.: " + ENDERECO
@ PROW()+1,01 SAY "A/C......: " + RESP
@ PROW()+1,01 SAY "FONE.....: " + TELEFON1
@ PROW()+1,01 SAY "FAX......: " + FAX
SELECT 2
SET ORDER TO 1
@ PROW()+1,01 SAY REPLICATE("-",76)
@ PROW()+1,01 SAY PADC("APARELHO: "+APAREL+ " -" + " MODELO: "+MODELO+ " -" + " SERIE: "+SERIE,76)
@ PROW()+1,01 SAY REPLICATE("-",76)
@ PROW()+3,01 SAY PADC("S E R V I C O S",79)
@ PROW()+2,01 SAY XD1
@ PROW()+1,01 SAY XD2
@ PROW()+1,01 SAY XD3
@ PROW()+1,01 SAY XD4
@ PROW()+1,01 SAY XD5
@ PROW()+1,01 SAY XD6
@ PROW()+1,01 SAY XD7
@ PROW()+1,01 SAY XD8
@ PROW()+1,01 SAY XD9
@ PROW()+1,01 SAY XD10
@ PROW()+1,01 SAY XD11
@ PROW()+1,01 SAY XD12
@ PROW()+1,01 SAY XD13
@ PROW()+1,01 SAY XD14
@ PROW()+1,01 SAY XD15
@ PROW()+2,01 SAY "VALOR TOTAL...: R$ " + TRANSFORM(XVALOR,"@BE 9,999,999.99")
@ PROW()+2,01 SAY XEXTEN1
@ PROW()+1,01 SAY XEXTEN2
@ PROW()+2,01 SAY "COND. PGTO....:" + XCONPGTO
@ PROW()+1,01 SAY "GARANTIA......:" + XGARAN
@ PROW()+1,01 SAY "VALIDADE ORC..:" + XVALIDADE
@ PROW()+2,01 SAY "** PARA CONFIRMAR, ASSINAR E DEVOLVER VIA FAX **"
@ PROW()+4,01 SAY "______________________________ _________________________"
@ PROW()+1,01 SAY " A JATO AR CONDICIONADO LTDA. C L I E N T E "
EJECT
NEXT

SET PRINTER TO
SET DEVICE TO SCREEN
SET CONSOLE ON

RETURN

[douglas_villa]

digitom ele ja cria automaticamente o arquivo *.txt e imprime?

[digitom]

Não só irá gerar o arquivo texto. Sem mandar para a impressora.