Impressão Simultânea.

[Dilson José]

Bom dia pessoal!

Estou com uma duvida com relação ao assunto e gostaria que alguém me ajude se possivel!

Posso utilizar duas vezes o SET PRINT TO? Esclareço, é o seguinte, posso escrever no programa ou módulo como queiram, tais comandos:

SET PRINT TO LPT1
SET PRINT TO Y:\DOCUMENTOS\NOME DO ARQUIVO.USB

A quem ajudar-me, agradeço!

Obrigado!

[anacatacombs]

Só uma pergunta idiota: O Set print vai ficar exatamente um embaixo do outro, ou terá algum código entre eles?

Se ficar exatamente SET PRINT TO LPT1 e SET PRINT TO QualquerCoisa, creio que o segundo substituirá o primeiro.

[billy1943]

Tranquilamente Ana !

O comando SET PRINTER TO sem parâmetros limpa a derivação e com parâmetros indica a nova saída para o que for impresso ou gravado.

Segundo W. E. Tiley:
set printer to -> fecha o arquivo de SPOOL e reinicializa o dispositivo de saída como LPT1 ( o default)
usar também set printer off caso tenha usado set printer on, na sequência:

Exemplo:
set printer to txt.prn
set printer on
list all for (condição)
set printer to
set printer off

[Maligno]

Dois SET PRINTER não funcionam simultaneamente, mas apenas em seqüência, haja vista que o Clipper é monotarefa. Talvez (eu disse talvez) seja possível algo simultâneo se dos dois relatórios for feito por meio de uma função rodando em background (a NanFor tem função do tipo). Mas é fácil descobrir. Basta um teste.

Agora, se for o mesmo relatório em duas saídas, não rola mesmo. O meio mais prático, que até dá a impressão de simultaneidade, é jogar a impressão para o arquivo e em seguida para a impressora. Assim não precisará gerar os dados novamente. Tudo sequencial.

[Pablo César]

Tem que ser estuda a real necessidade do uso de dois SET PRINTER. Se a intenção de um seria para imprimir e a outra para direcionar a impressão em arquivo. Por quê não criar o arquivo e depois disponibilizá-lo na fila de impressão (no spooler) ?

Primeiro cria o arquivo normalmente no local desejado e depois:

COPY FILE(<arquivo>) TO ("LPT1")

Também é possivel gerar dois ou mais arquivos simultaneamente durante a emissão do relatório. Como relatei uma vez neste tópico: https://pctoledo.org/forum/viewto ... ITE#p52802

[Dilson José]

Valeu pessoal pelas dicas!

Eu resolvi tal problema da seguinte forma:

Código: Selecionar todos

Use Arquivo.xxx

for x = 1 to 2
     arquivo->(DBGoTop())

    if x = 1 
       set print to LPT1 -> Impressora Local
    else
       set print to Y:\Documentos\*.usb|prn|txt etc...
    endif

    while not EOF()

         rotinas
    
    end
    
   set print to

next x

Espero que ajude alguém que também esteja com a mesma duvida!

Blz e obrigado!

[Maligno]

Bom que tenha resolvido, mas se o processamento for pesado, ele será feito duas vezes. Daí,...

[sambomb]

Acredito que a saida seja criar direto no TXT e depois fazer um "copy to LPT1"

EDIT: Que é o mesmo que o Pablo já falou..