ANT.CARLOS.SP

Obrigado a todos, finalmente descobri o problema, o cartão do certificado bichou mesmo embora consiga pesquisar o usuário.

Olá boa tarde!
Depois de muito pesquisar e quebrar a cabeça descobri que a Impressora ZEBRA não imrime pelo
nome da impressora e sim somente pelo nome do compartilhamento.
Fiz vários teste de descobri como pegar o nome do compartilhamento.
Na Argox imprime tanto pelo nome da impressora com pelo nome do compartilhamento.

Nota: Para instalar a impressora ZEBRA deixe-a desligada e se preciso for desinstale
todos os drivers q usa USB, pois, depois de tanto instalar e desinstalar descobri
alguns segredos.


Abaixo esta como pegar o nome do compartilhamento.

Obrigado a todo e muito obrigado!

100+

ANT.CARLOS/SP



Nome da Impressora: ZDesigner GC420T (EPL) (1)
Nome do Compartilhamento: ZDesigner



Uses winspool, Printers;
----------------------------------
procedure TFPrincipal.AtivarACBrETQ ;
var aDevice : array[0..255] of char;
    aDriver : array[0..255] of char;
    aPort : array[0..255] of char;
    ahDMode : THandle;
    fone, NomComp : String;
    posi : Integer;

var PrinterInfo: PPrinterInfo2;
    PrnHandle :THandle;
    PrnInfo2 :PPRINTERINFO2;
    PrnInfoSize :DWord;
    NomeImpcomp : String;


begin
  NomComp := Nome_do_Computador;
  Printer.GetPrinter(aDevice, aDriver, aPort, ahDMode);  //...Pega a Impressora padrao

  if OpenPrinter(aDevice, PrnHandle, nil) then begin
     GetPrinter(PrnHandle, 2, nil, 0, @PrnInfoSize);
     PrnInfo2 := AllocMem(PrnInfoSize);

     if GetPrinter(PrnHandle, 2, PrnInfo2, PrnInfoSize, @PrnInfoSize) then
          Label8.Caption := PrnInfo2^.pServerName +' | ' +
          PrnInfo2^.pPrinterName +' | ' +
          PrnInfo2^.pShareName
     else
        Label8.Caption := 'Falhou...';
     NomeImpcomp := PrnInfo2^.pShareName;
     ClosePrinter(PrnHandle);
     FreeMem(PrnInfo2, PrnInfoSize)
  end;

  with ACBrETQ do begin
     DPI           := TACBrETQDPI(cbDPI.ItemIndex);
     Modelo        := TACBrETQModelo(cbModelo.ItemIndex) ;
     //Porta         := cbPorta.Text ; caso seja COM ou LPT

     //ACBrETQ.Porta := '\\192.168.0.100\ZDesigne';  //........>funcionou
     //ACBrETQ.Porta := '\\'+NomComp+'\'+'ZDesigne'; //........>funcionou
     ACBrETQ.Porta := '\\'+NomComp+'\'+NomeImpcomp;  //........>funcionou

     LimparMemoria := ckMemoria.Checked ;

     Ativar ;
  end;
end;
---------------------------------
 

Olá, era isto que procurava, muito obrigado!
 
  Arquivo ACBrETQEpl2
  =========================
  39         - "3C"
  128       - "1A"  "1B"  "1C"
  EAN8    - "E80" "E82" "E85"
  EAN13  - "E30"  "E32" "E35"
  2 of 5 - "2"  "2C" "2D"
 
  ImprimirBarras(orNormal,'1A', '2', '2', 410, 570, '12345', 60, becSIM);
  ImprimirBarras(orNormal, 'E30', '2', '2', 410, 570, '7896003701685', 60, becSIM);
 
 
 
100+
 
ANT.CARLOS/SP