jbinfo Posted March 8, 2018 Report Share Posted March 8, 2018 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 8, 2018 Report Share Posted March 8, 2018 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" ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 8, 2018 Report Share Posted March 8, 2018 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). Quote Link to comment Share on other sites More sharing options...
jbinfo Posted March 8, 2018 Author Report Share Posted March 8, 2018 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 9, 2018 Report Share Posted March 9, 2018 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 9, 2018 Report Share Posted March 9, 2018 Pocure também, por impressão Argox: Quote Link to comment Share on other sites More sharing options...
rochinha Posted March 9, 2018 Report Share Posted March 9, 2018 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 9, 2018 Report Share Posted March 9, 2018 my dear friend [a]Rochinha, simples: http://imgur.com/ ou: https://uploaddeimagens.com.br Quote Link to comment Share on other sites More sharing options...
jbinfo Posted March 13, 2018 Author Report Share Posted March 13, 2018 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. Quote Link to comment Share on other sites More sharing options...
rochinha Posted March 13, 2018 Report Share Posted March 13, 2018 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. Quote Link to comment Share on other sites More sharing options...
jbinfo Posted April 11, 2018 Author Report Share Posted April 11, 2018 Vou testar Rochinha....valeu Quote Link to comment Share on other sites More sharing options...
edutraini Posted April 11, 2018 Report Share Posted April 11, 2018 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" ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 11, 2018 Report Share Posted April 11, 2018 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.