Impressão em clipper

[lemissel]

Olá pessoal!!!

Gurizada, é o seguinte, existe alguma maneira de fazer com que o usuário possa escolher a impressora que o documento vai ser impresso?

Por exemplo:

PDV1 (NET USE LPT1: \\MICRO\SHARE)

PDV2 (NET USE LPT1: \\MICRO1\SHARE)

**PDV(X) é uma Bematech MP-20

Desde já eu agradeço,

Leo

[Graymalkin]

Você pode colocar um menu de opções na tela e executar o NET USE na hora que o caboclo escolher qual impressora usar.

clear screen

@09,04 to 12,09 double
@10,05 prompt "PDV1"
@11,05 prompt "PDV2"

menu to opc

do case
    case opc=1
        compartilhamento := "\\MICRO\SHARE"
    case opc=2
        compartilhamento := "\\MICRO1\SHARE"
endcase

comando := "net use LPT1: " + compartilhamento + " /y"

run &comando

// Aqui voce continua a impressao

Certo? ;)

Graymalkin

[lemissel]

Cara, resolvi!!! Muitos testes e algumas ligações pra uns dinossauros e tudo se resolveu...

Bom, eu fiz um menu com 4 opções: LPT1, LPT2, LPT3 e LPT4.

Como eu to usando o Clipper Summer 87' e acredito eu, que ele foi desenvolvido para rodar em DOS 6 (ou sei lá qual versão) então ele não reconheçe os comandos PING, NET, etc... porque não podíamos fazer rede com esse maldito DOS portanto não tem por que ter esses comandos. (Obs.: DIR, ECHO, etc, funcionam normal, por isso que cheguei a essa conclusão).

Bom, também não poderia compilar o programa toda vez que algum mapeamento fosse alterado (o que ocorre por aqui misticamente hehehe). Então eu joguei a saída pra printer e depois setei a printer pra lpt correta.

Segue o código:

**************************************************
****    Programador: Leandro Missel           ****
****    Data: 01/02/2008              ****
****                          ****
****    Descricao:                  ****
****                          ****
****    Menu para setar a porta da impressora ****
**************************************************

Clear Screen
Set Device to Screen

****Menu com as 4 opcoes de LPT
@09,04 to 14,09 double
@10,05 prompt "PDV1"
@11,05 prompt "PDV2"
@12,05 prompt "PDV3"
@13,05 prompt "PDV4"

menu to opc

do case
    case opc=1
        *tesss = "set print to lpt1"
        print_escolhida = "LPT1"
    case opc=2
        *tesss = "set print to lpt2"
        print_escolhida = "LPT2"
    case opc=3
        print_escolhida = "LPT3"
    case opc=4
        print_escolhida = "LPT4"
endcase

***Joga os dados na impressora e seta a porta que vai utilizar
Set Device to Print
set Print to &print_escolhida


***Essa parte será impressa       *******Teste de impressão*******
clear screen

@1,1 say "Teste de impressão:"
@2,1 say space(12) + "Leandro Missel"

E aí cara, compilei o codigo!

Quando eu seleciono uma das opções do menu ele diz "comando ou nome de arquivo inválido". Então troquei a lógica do programa pra dar um ping ao invés de NET USE, também deu a mensagem. Aí eu ignorei e coloquei um ECHO e funcionou, será que é a versão do clipper?

A versão que eu estou utilizando é a summer 87'

Valeu por enquanto brother!!!

Tá salvando minhas noites de sono heheh

Editado Fevereiro 1, 2008 por lemissel

[Graymalkin]

É, pode ser, eu uso a 5.3e de 1995. Mas, você também poderia jogar tudo para um .bat e tentar executá-lo com o run. Todavia, parece que você já resolveu o caso, então beleza. :)

Ah, Clipper rulez!

Abraços,

Graymalkin