yasmin Posted November 16, 2006 Report Share Posted November 16, 2006 Bom dia pessoal, procurei em busca varios exemplos de como imprimir em tdosprn em rede e seguindo os exemplos mais usandos fiz da seguinte forma o1310:=Tdosprn():New("\\maq_3\Epson\LPT1") e não imprimi nada. O que estou fazendo de errado pois o mesmo relatorio ja o fiz para arquivo e Tprinter e funcionou. 1º) USO WINDOWS XP 2º) NA MINHA MAQUINA ESTA INSTALADA UMA LEXMARK EM LPT1 3º) GOSTARIA DE MANDAR O RELATORIO PARA OUTRA MAQUINA DA REDE QUE POSSUI INTALADA UMA EPSON LX300. Marcelo FW 1.92,Clipper 5.2D,WS Quote Link to comment Share on other sites More sharing options...
yasmin Posted November 16, 2006 Author Report Share Posted November 16, 2006 Bom dia pessoal, procurei em busca varios exemplos de como imprimir em tdosprn em rede e seguindo os exemplos mais usandos fiz da seguinte forma o1310:=Tdosprn():New("\\maq_3\Epson\LPT1") e não imprimi nada. O que estou fazendo de errado pois o mesmo relatorio ja o fiz para arquivo e Tprinter e funcionou. 1º) USO WINDOWS XP 2º) NA MINHA MAQUINA ESTA INSTALADA UMA LEXMARK EM LPT1 3º) GOSTARIA DE MANDAR O RELATORIO PARA OUTRA MAQUINA DA REDE QUE POSSUI INTALADA UMA EPSON LX300. Marcelo FW 1.92,Clipper 5.2D,WS Quote Link to comment Share on other sites More sharing options...
Kbelo Posted November 16, 2006 Report Share Posted November 16, 2006 citação:Bom dia pessoal, procurei em busca varios exemplos de como imprimir em tdosprn em rede e seguindo os exemplos mais usandos fiz da seguinte forma o1310:=Tdosprn():New("\\maq_3\Epson\LPT1") e não imprimi nada. O que estou fazendo de errado pois o mesmo relatorio ja o fiz para arquivo e Tprinter e funcionou. 1º) USO WINDOWS XP 2º) NA MINHA MAQUINA ESTA INSTALADA UMA LEXMARK EM LPT1 3º) GOSTARIA DE MANDAR O RELATORIO PARA OUTRA MAQUINA DA REDE QUE POSSUI INTALADA UMA EPSON LX300. Marcelo FW 1.92,Clipper 5.2D,WS id=quote>id=quote>É só mapear a impressora e colocar ela como padrão Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Quote Link to comment Share on other sites More sharing options...
aferra Posted November 16, 2006 Report Share Posted November 16, 2006 (se não funcionar), complementando o que o Marcelo disse, faça assim: cFileTxt:="OSE.PRN" cPorta:=PrnGetPort() lPrint:=.T. IF LEFT(nSistema,10)=="Windows XP" .OR. LEFT(nSistema,12)=="Windows 2000" oPrn:=TDosPrn():New(cFileTxt) ELSE oPrn:=TDosPrn():New(cPorta) END oPrn:Say(0,0,"seu texto") .... .... .... oPrn:EndPage() oPrn:End() IF LEFT(nSistema,10)=="Windows XP" .OR. LEFT(nSistema,12)=="Windows 2000" WAITRUN("CMD /C COPY /B " + cFileTxt + " " + cPorta, 0 ) FERASE(cFileTxt) ELSE WAITRUN("CAMMAND /C COPY /B " + cFileTxt + " " + cPorta, 0 ) END Um Grande Abraço Alessandro F. Silvaid=blue> E-mail :aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get + CDX MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
Kbelo Posted November 16, 2006 Report Share Posted November 16, 2006 citação:(se não funcionar), complementando o que o Marcelo disse, faça assim: cFileTxt:="OSE.PRN" cPorta:=PrnGetPort() lPrint:=.T. IF LEFT(nSistema,10)=="Windows XP" .OR. LEFT(nSistema,12)=="Windows 2000" oPrn:=TDosPrn():New(cFileTxt) ELSE oPrn:=TDosPrn():New(cPorta) END oPrn:Say(0,0,"seu texto") .... .... .... oPrn:EndPage() oPrn:End() IF LEFT(nSistema,10)=="Windows XP" .OR. LEFT(nSistema,12)=="Windows 2000" WAITRUN("CMD /C COPY /B " + cFileTxt + " " + cPorta, 0 ) FERASE(cFileTxt) ELSE WAITRUN("CAMMAND /C COPY /B " + cFileTxt + " " + cPorta, 0 ) END Um Grande Abraço Alessandro F. Silvaid=blue> E-mail :aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get + CDX MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP id=quote>id=quote>Só pra completa não seria WAITRUN("COMMAND /C COPY /B " + cFileTxt + " " + cPorta, 0 ) Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Quote Link to comment Share on other sites More sharing options...
yasmin Posted November 16, 2006 Author Report Share Posted November 16, 2006 Marcelo como faço mara mapear uma impressora na rede, me descuipe mas nuca fiz isso. Marcelo FW 1.92,Clipper 5.2D,WS Quote Link to comment Share on other sites More sharing options...
Kbelo Posted November 16, 2006 Report Share Posted November 16, 2006 citação:Marcelo como faço mara mapear uma impressora na rede, me descuipe mas nuca fiz isso. Marcelo FW 1.92,Clipper 5.2D,WS id=quote>id=quote>Voce pode entrar em "Meus Locais de rede" ir em "exibir computadores do meu grupo de trabalho" acessar a maquina desejada ai ira aparecer a impressora que esta instalada clique com o botão direto do mouse "Conectar". Ou Voce pode ir no painel de controle - impressoras - adicionar uma nova impressora - impressora da rede - ai é só seleciona a impressora pois ele vai te mostrar as impressoras instaladas. Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted November 16, 2006 Report Share Posted November 16, 2006 De uma olhada aqui http://www.fivewin.com.br/exibedicas.asp?id=658 Giovany Vecchi - Jales - SP FWH 2.6 /Clipper 5.3b /Blinker 5.0 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 /PellesC 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.