Impressora nao encontrada no PosPrinter

[alessandro pancotte]

Amigos,

Tenho a seguinte situação.

A) Um computador com uma impressora Bematech MP 4200 th

Outro computador que manda imprimir na impressora citada acima

Aqui no nosso escritorio tambem temos uma bematech mp 4200 th que esta instalada num pc e os demais pcs imprimem nela qdo precisa ser feito algum teste

Ocorre que neste cliente qdo o nosso software manda imprimir pelo posprinter da erro "FIle Acess Denied" ou "Impressora Não encontrada [\\Caixa02\mp4200]"

Nossos sistemas estao usando o acbr baixado em Julho/2017

O interessante é que aqui  na nossa rede funciona, mas no cliente da "file acces denied"

Para fazer outro teste eu acabei de atualiar meu acbr, baixei as atualizacoes do svn em outra pasta

Fechei o delphi, executei o apaga acbr

Renomeei minha pasta de acbr dez 2016 para acbr 

Executei a instalacao de todos os componente

Abri o projeto acbr posprinter teste.exe dei um build no projeto

Agora aparece impressora nao encontrada [\\projeto-pc\mp-4200 th]

Deixei com RAW na frente, tirei o RAW e segue o problema.

Vi em outro post dizendo que havia algumas falhas do acbrdevice mas que tinham sido corrigidas em out/2016, imagino que este acbr que baixei ja esteja atualizado

svn://svn.code.sf.net/p/acbr/code

Tem algo que estou deixando de fazer...

 

[alessandro pancotte]

Pessoal,

Na minha opinião o que esta errado é este paragrafo dentro do acbrdevice / GetPrinterRawIndex / retornaporta

      if pos('\\', copy(VName, 1, 2)) > 0 then  //se for impressora na rede.
      begin
        VName := copy(VName, 3, Length(VName));
        VPos := pos('\', VName);
        VName := copy(VName, VPos + 1, Length(VName));
      end;

      if SameText(PrnName, VName) then
      begin
        Result := I;
        Break;
      end;

Na configuracao do acbrteste eu coloquei   RAW:\\Projeto-pc\MP-4200 TH

No paragravo if pos ('\\' ele retira o nome da maquina deixando somente o nome da impressora na variavel VName

E logo abaixo no if sametext(prnname, vname) ele compara se são iguais.

Mas nunca vao ser porque a variavel prnname recebe o nome inteiro sem o raw, conforme citado abaixo.

PrnName := Porta;
  if (copy(UpperCase(PrnName), 1, 4) = 'RAW:') then
    PrnName := copy(PrnName, 5, Length(PrnName)) ;

A meu ver nao tem muito sentido o que foi feito, ou eu nao entendi o porque disso

[Daniel Simoes]

Você está usando o RAW de maneira errada...

Informe nele o nome da Impressora conforme instalada no Painel de controle do Windows 

[alessandro pancotte]

Daniel, 

Quando executo o teste ele mesmo ja carrega o nome da impressora com o raw, mas eu fiz este teste e como eu citei acima, eu comentei o texto onde ele monta a Vname e dai funcionou

 

Segue as imagens de como estou usando o o nome da impressora

Segue o device alterado

ACBrDevice.pas

[alessandro pancotte]

Pessoal no acbrdevice que citei no post anterior eu comentei este paragrafo abaixo.

 if pos('\\', copy(VName, 1, 2)) > 0 then  //se for impressora na rede.
      begin
        VName := copy(VName, 3, Length(VName));
        VPos := pos('\', VName);
        VName := copy(VName, VPos + 1, Length(VName));
      end;

Qual a razao de ele existir, ou a variavel prnname é de deveria conter somente o nome da impressora compartilhada?

 

[Daniel Simoes]

O que exatamente, você está escrevendo na propriedade porta ?

De acordo com a imagem que você exibe... o correto seria: "RAW:MP-4200 TH em Projeto-pc"

@Waldir Paim,

Acho que você que implementou o bloco em questão, que remove o caminho da Rede, no caso de impressão RAW... poderia por favor avaliar esse post ?

[Waldir Paim]

@Daniel Simoes

Posso avaliar sim, ainda hoje me organizo para fazer uns testes aqui.

[Waldir Paim]

@alessandro pancotte

Fiz um ajuste e agora primeira testa pelo nome e só se não encontrar faz o teste para verificar se é impressora na rede.

 

Segue unit alterada.

ACBrDevice.pas

[Daniel Simoes]

Apliquei uma simplificação no código proposto pelo Waldir... por favor façam alguns testes...

 

 

ACBrDevice.pas

[Waldir Paim]

Segue pequena correção no código.

ACBrDevice.pas

[Daniel Simoes]

Boa pegada... obrigado... já está no SVN...

 

[alessandro pancotte]

ok VOU TESTAR