Impressão no sistema Windows Vista

[Jorge Martins]

Pessoal estou precisando imprimir um sistema que montei no Clipper no Windows Vista. O Sistema acessa numa boa, contudo na hora de imprimir ele não o faz. Abaixo segue a linha de comando:

SET PRINT ON
SET DEVICE TO PRINT
SET CONSOLE OFF

Agradeço a ajuda.

[alxsts]

Olá!

Seja bem-vindo ao fórum Jorge!

Por favor, forneça mais algumas informações. Por exemplo:
- antes de usar o teu sistema no Vista, ele rodava em outro Windows?
- o mapeamento de impressora está feito? (nunca usei o Vista. No XP mapeava a impressora via NetUse LPT1...)
- como voce compila e linkedita? (Informe qual versão do Clipper, se utiliza Blinker, Exospace, RTLink).

Estas informações darão subsídios importantes a todos os colegas, para que possam ajudá-lo.

Mais uma vez, seja bem-vindo!

[frazato]

Bom dia!

Utilizo da seguinte maneira.

1 - gero a saida de impressao para um arquivo txt.
2 - Crie um arquivo.bat para copiar o txt gerado para a lpt desejada.

sistema_jaf@hotmail.com

frazato

[alaminojunior]

1 - gero a saida de impressao para um arquivo txt.
2 - Crie um arquivo.bat para copiar o txt gerado para a lpt desejada.

Ou de dentro do programa mesmo:

Código: Selecionar todos

! copy arquivo.txt lpt1

E vamos esperar o colega postar o que o Alexandre pediu, para depois a gente convencer ele a compilar com xHarbour )

[Maligno]

Esperemos que ele também informe em qual impressora pretente imprimir. Isso está cheirando a USB.

[billy1943]

Não precisa ser no Windows Vista.
Mesmo no XP, toda impressão direcionada à LPT não sairá, se a conexão à impressora for pela porta USB.
Se for pela porta paralela, tudo bem, mesmo que seja pela rede, com o "NET USE".
Se a impressora for USB, dá para colocar uma placa com saída paralela e ligar nela a impressora.

[sygecom]

Sem duvida compilar com Harbour resolveria isso facilmente, se o Colega Jorge quiser, pode postar na sessão xHarbour que tentamos ajudar o mesmo a compilar e resolver essa questão com Harbour.

[labaroazul]

Tenta usar o NoDosImp. Nunca usei Windows Vista mas, assim como no XP, creio que vai funcionar!

O atalho para download desse programa é:
-> http://sistemascvc.tripod.com/public/no2imp.zip

E, para usar este programa, coloque as seguintes linhas de código em seu .prg:

Código: Selecionar todos

cARQUIVO = ALLTRIM(cUSUARIO) + ".TXT"
IF FILE(cARQUIVO)
        ERASE &cARQUIVO
ENDIF
SET PRINTER TO &cARQUIVO
SET CONSOLE OFF
SET DEVICE TO PRINTER
SET PRINTER ON
// FAÇA A IMPRESSÃO AQUI
SET PRINTER OFF
SET PRINTER TO
SET CONSOLE ON
cDIRETORIO := IIF(LEN("C:\" + ALLTRIM(CURDIR("C")) + "\") < 40, "C:\" + ALLTRIM(CURDIR("C")) + "\" + SPACE(40 - LEN("C:\" + ALLTRIM(CURDIR("C")) + "\")), LEFT("C:\" + ALLTRIM(CURDIR("C")) + "\",40))
RUN (ALLTRIM(cDIRETORIO) + "NODOSIMP " + cARQUIVO + " 80")

Espero ter ajudado! :xau

[Jorge Martins]

Valeu pessoal !!!
Vocês são dez.
Usei a dica do alaminojunior gerando um arquivo texto. Isso solucionou meu probelma.
Estou usando a versão Clipper 5.2 e compilando pelo Rtlink 3.14B.

Mais uma vez, muito...muito obrigado a todos. )

[alaminojunior]

Na verdade a dica foi do Frazato, e eu apenas complementei.
Mas o importante é que resolveu.

[Maurício Elias]

Bom dia a todos.

Tem tb a opção do DosPrinter.exe.
É muito bom tb. É via txt.
Só tenho usado ele ultimamente. Até para cód.barras eo Cute Writer ele funciona.

Abraços.

Maurício