Impressao Zebra/Argox via RDP

[jbinfo]

Boa tarde pessoal, blz?

Estou com um problema na impressão das etiquetas via RDP. Uso o PRINTFILERAW, mas ele não consegue mandar pra impressora...alguem tem outra maneira de impressão?

 

Obrigado

Leandro JBI

 

[kapiaba]

Tente assim:

Kleyber escreveu:
	
   cPorta := PrnGetPort()
	   cPrinter := PrinterPortToName( cPorta )
	   if empty(cPrinter)
	      cPrinter := PrinterPortToName( "USB002" )
	      if empty(cPrinter)
	         cPrinter := PrinterPortToName( "USB001" )
	      endif
	   endif
	   oPrin := TDosPrn():New("minuta.txt")
   oPrin:StartPage()
   ...
   ...
	
   ...
   ...
   oPrin:EndPage()
	   oPrin:End()
	
   PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Etiquetas" )
	

[kapiaba]

Essa eu não sabia:

 

Remote Desktop Protocol (ou somente RDP) é um protocolo multi-canal que permite que um usuário se conecte a um computador rodando o Microsoft Terminal Services (antigo Terminal Service).

[jbinfo]

 

Tente assim:

 

Kleyber escreveu:
	
   cPorta := PrnGetPort()
	   cPrinter := PrinterPortToName( cPorta )
	   if empty(cPrinter)
	      cPrinter := PrinterPortToName( "USB002" )
	      if empty(cPrinter)
	         cPrinter := PrinterPortToName( "USB001" )
	      endif
	   endif
	   oPrin := TDosPrn():New("minuta.txt")
   oPrin:StartPage()
   ...
   ...
	
   ...
   ...
   oPrin:EndPage()
	   oPrin:End()
	
   PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Etiquetas" )
	

 

Valeu pelo retorno Dr....

Não seria a mesma coisa de selecionar a impressora? Nome dela? Ou esta função manda para a porta de impressão?

Obrigado

Leandro JBI

 

 

[kapiaba]

Vaja se ajuda:

http://fivewin.com.br/index.php?/topic/24746-impressora-zebra-s4m/&do=findComment&comment=274805

http://fivewin.com.br/index.php?/topic/21590-comando-para-impressora-s4m-zebra/&do=findComment&comment=262484

http://fivewin.com.br/index.php?/topic/20871-impressã£o-etiqueta-zebra-zlp-2844-lenta/&do=findComment&comment=257739

http://fivewin.com.br/index.php?/topic/17862-impressora-stripe-s4m/&do=findComment&comment=56424

[kapiaba]

Pocure também, por impressão Argox:

[rochinha]

Amiguinhos,

 

kapiaba

Como é que eu insiro uma imagem no post? não encontrei maneira. Deve ser fácil, mas este pobre velhinho, sacumé...

jbinfo

Quando você configura uma acesso via RDP/TS você pode configurar os recursos locais, ou seja, da máquina acessante como compartilháveis.

Outra maneira é você compartilhar a impressora requerida para ser visível também pelo RDP/TS.

[kapiaba]

my dear friend [a]Rochinha, simples:

http://imgur.com/

ou:

https://uploaddeimagens.com.br
 

[jbinfo]

 

Amiguinhos,

 

kapiaba

Como é que eu insiro uma imagem no post? não encontrei maneira. Deve ser fácil, mas este pobre velhinho, sacumé...

jbinfo

Quando você configura uma acesso via RDP/TS você pode configurar os recursos locais, ou seja, da máquina acessante como compartilháveis.

Outra maneira é você compartilhar a impressora requerida para ser visível também pelo RDP/TS.

Boa noite Dr., tudo bem?

Ja fiz isso, ela sobe redirecionada, aparece certinha. quando vou imprimir, seleciono a impressora mas não manda...nas normais vai tranquilo, só na Argox e Zebra que não funciona!

Valeu pelo retorno.

 

 

 

[rochinha]

Amiguihos,

jbinfo

Veja nas configurações do drive delas se estão como spool ou impressão direta, inverta e teste.

Outra coisa, ainda nas configurações procure algo sobre RAW e ative.

[jbinfo]

Vou testar Rochinha....valeu

[edutraini]

Bom dia 

Eu tenho um problema na impressao da Argox

Se ela nao estiver padrao a impressão não sai  correto mesmo escolhendo a  impressora  antes de imprimir pela rotina abaixo

Sempre  tenho que deixar ela Padrão 

Ainda não descobri o porque

 

 cPorta := PrnGetPort()
	   cPrinter := PrinterPortToName( cPorta )
	   if empty(cPrinter)
	      cPrinter := PrinterPortToName( "USB002" )
	      if empty(cPrinter)
	         cPrinter := PrinterPortToName( "USB001" )
	      endif
	   endif
	   oPrin := TDosPrn():New("minuta.txt")
   oPrin:StartPage()
   ...
   ...
	
   ...
   ...
   oPrin:EndPage()
	   oPrin:End()
	
   PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Etiquetas" )

[kapiaba]

Eduardo,

FUNCTION DefaultPrinter() // MODIFIQUEI A PRINTER.PRG E FUNCIONA...
	   LOCAL nPrn, nRet
	   // Abre a tela para a seleção da impressora
   /*
   GetPrintDC( GetActiveWindow() )
	   // Coloca a impressora selecionada como Default do Windows
   SetDefaultPrinter( PRNGETNAME() )
   */
	   nRet := PrinterSetUp()
	   nPrn := PrnGetName()
	   IF( nRet # 0 )
	      // NADA A FAZER MUDA O DEFULT DA IMPRESSORA EM TEMPO REAL. 15/08/2016(Magda)
      SetDefaultPrinter( PRNGETNAME() ) // MUDA O DEFAULT DA IMPRESSORA
	      MsgInfo( OemToAnsi( "Aten‡Æo Usu rio:                        " )+CRLF+ ;
               OemToAnsi( "Sua Impressora DEFAULT(PadrÆo) ‚:       " )+CRLF+ ;
                        ( "-> " + nPrn                               ),      ;
               OemToAnsi( "Sua Impressora DEFAULT(PadrÆo) ‚...     " ) )
	      sGetDefaultPrinter := GetDefaultPrinter()
	      // ? PrnStatus( sGetDefaultPrinter )
	      IF PrnStatus( sGetDefaultPrinter ) = 4096
	         // Verifica se SPOOLER esta desligado e tenta liga-lo
         MsgRun( sGetDefaultPrinter +": "+isprint( GetDefaultPrinter() ) + ;
                         " ou Spooler Desligado.", "Status da Impressora", ;
                 {|| WinExec( "NET START SPOOLER", 7 ) } )
	      ENDIF
	      //? GetPrinter()
	   ELSE
	      MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                         " )+CRLF+ ;
               OemToAnsi( "VERIFIQUE SUA IMPRESSORA SE ESTµ LIGADA. " )+CRLF+ ;
               OemToAnsi( "OU SE ESTµ INSTALADA CORRETAMENTE...     " )+CRLF+ ;
               OemToAnsi( "TEM ALGUMA COISA ERRADA COM A IMPRESSORA?" )+CRLF+ ;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...          " ),      ;
               OemToAnsi( "VERIFIQUE SUA IMPRESSORA SE ESTµ LIGADA. " ) )
	      RETURN( .F. )
	   ENDIF
	RETURN NIL