PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

impressão com usb

https://pctoledo.org/viewtopic.php?t=9076

Página 1 de 1

impressão com usb

Enviado: 09 Fev 2009 15:42
por AntonioCarlosAvare
desculpem postar novamente este tópico mas possuo um pequeno comercio e o sistema foi desenvolvido em clipper o programador me deixou os fontes , comprei uma impressora jato de tinta e não consigo imprimir como devo mudar no programa para imprimir?
esse é um pedaço do programa
desde já muito grato pela atenção e ajuda..

Código: Selecionar todos

CLOSE ALL
DO WHILE .T.
   set color to w/b+
   @ 00,00 CLEA TO 24,80
   @ 00,00 CLEA TO 24,79
   @ 00,01 say "                                                                               "
   set color to w/b+
   @ 01,01 SAY "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
   @ 02,01 say "º                                                                             º"
   @ 03,01 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
   @ 04,01 SAY "º                                                                             º"
   @ 05,01 SAY "º                                                                             º"
   @ 06,01 SAY "º                                                                             º"
   @ 07,01 SAY "º                                                                             º"
   @ 08,01 SAY "º                                                                             º"
   @ 09,01 SAY "º                                                                             º"
   @ 10,01 SAY "º                                                                             º"
   @ 11,01 SAY "º                                                                             º"
   @ 12,01 SAY "º                                                                             º"
   @ 13,01 SAY "º                                                                             º"
   @ 14,01 SAY "º                                                                             º"
   @ 15,01 SAY "º                                                                             º"
   @ 16,01 SAY "º                                                                             º"
   @ 17,01 SAY "º                                                                             º"
   @ 18,01 SAY "º                                                                             º"
   @ 19,01 SAY "º                                                                             º"
   @ 20,01 SAY "º                                                                             º"
   @ 21,01 SAY "º                                                                             º"
   @ 22,01 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
   @ 23,01 SAY "º                                                                             º"
   @ 24,01 SAY "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
   fundo1R()
   setcolor("gr+/b")
   @ 02,22 say "DELPORT - MAQUINAS INDUSTRIAIS LTDA."
   set color to w/b+
   @ 03,02 SAY "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
   SET COLOR TO W/B+
   WCONF = SPAC(1)
   set color to w/b+
   @ 08,28 TO 13,51 DOUBLE
   SET COLOR TO GR+/R
   @ 09,29 SAY "                      "
   @ 10,29 SAY "   AGUARDE EMITINDO   "
   @ 11,29 SAY "       RELATORIO      "
   @ 12,29 SAY "                      "
   set color to w/b+
   SET DEVI TO PRINT
   SELE 1
   USE CLIENTE
   INDE ON NOME TO CLIENTER
   USE
   USE CLIENTE INDE CLIENTER
   WLIN = 99
   DO WHILE .NOT. EOF()
      IF WLIN > 60
         @ 01,01 SAY "Data: "
         @ 01,07 SAY DATE()
         @ 01,21 SAY "  DELPORT  -  MAQUINAS INDUSTRIAIS LTDA       Hora: "
         @ 01,73 SAY TIME()
         @ 02,01 SAY "                    -----------------------------------------                   "
         @ 03,01 SAY "                              Listagem de Clientes                              "
         @ 05,01 SAY "================================================================================"
         @ 06,01 SAY " CODIGO  NOME                                     CIDADE                 "
         @ 07,01 SAY "================================================================================"
         WLIN = 09
      ENDIF
      @ WLIN,02 SAY CODIGO
      @ WLIN,09 SAY NOME
      @ WLIN,50 SAY CIDADE
      WLIN = WLIN + 1
      SKIP
   ENDDO
   SET COLOR TO
   EXIT
ENDDO
SET DEVI TO SCREE
RETU



//--------------------------//
  function fundo1R()
//--------------------------//

  fun_do:=" DELPORT "
**n:=(len(fun_do))
  n:=1
  fun_do=fun_do+space(n)
  fun_do :=subs(fun_do+replicate(fun_do,1800/len(fun_do)),1,1800)
  setcolor("b/wgb")
  for i = 4 to 21
      @i,02 say subs(fun_do,i*77-16,77)
      @i,02 say replicate(subs(fun_do,1,0),09)
      fundo=subs(fun_do,1)+subs(fun_do,1,0)
  next
  set color to
  return nil

------------------------------------
Nota da Moderação:(Sygecom)
Topico editado para colocar dentro da TAG [ CODE ]

Re: impressão com usb

Enviado: 09 Fev 2009 17:20
por sygecom
Bem vindo ao Fórum Antonio,
Primeiro pelo que pude perceber você não é programador e nem conhece de clipper, então do meu ponto de vista primeiro você tem que saber se esta compilando direitinho seu sistema, se o clipper esta instalado e com os SET configurados, apartir dai podemos ver como mudar e o que mudar no seu codigo fonte.

Re: impressão com usb

Enviado: 09 Fev 2009 17:53
por Bisteca
Não sei se entendi direito, mas tente isso.
Para imprimir em impressoras conectadas nas portas USB, vá em...
iniciar
configurações
impressoras e aparelhos de fax
clique com o botão direito do mouse na impressora(USB) que deseja usar para imprimir
propriedades
portas
clique em ativar pool de impressão
marque as opções da impressora que vai usar para imprimir e marque também a opção LPT1
aplicar
ok

Pronto toda vez que o sistema enviar comandos para LPT1, ele será redirecionado para a impressora USB.

Espero ter ajudado...

Re: impressão com usb

Enviado: 10 Fev 2009 03:01
por AntonioCarlosAvare
não deu certo sera que tem outra maneira .
obrigado pela atenção

Re: impressão com usb

Enviado: 10 Fev 2009 03:10
por Maligno
Acho que a questão é: você tem conhecimento suficiente para modificar o programa, a ponto de prepará-lo para utilizar uma solução qualquer pra imprimir em USB? Há várias soluções boas; gratuitas até. Mas elas demandam algumas modificações nos fontes. É preciso conhecer a linguagem. Se a resposta for sim, meu conselho é que pesquise no fórum sobre a ferramenta chamada PRWin, que é grátis e muito boa. Muito já foi comentado sobre ela. É só pesquisar.

Mas se a resposta for não, meu conselho é que você procure um programador que conheça minimamente a linguagem a fim de fazer essas modificações. Aliás, isso pode ficar até mais barato que uma solução "caseira".

Em tempo: algumas impressoras não têm tabelas internas de caracteres ASCII, comum às impressoras que imprimem em DOS. Sendo assim, tudo deve ser impresso no modo gráfico, o que pode ser feito apenas em algumas soluções. O PRWin é uma delas.

Re: impressão com usb

Enviado: 10 Fev 2009 08:03
por AntonioCarlosAvare
obrigado vou tentar o PRWIN

Re: impressão com usb

Enviado: 10 Fev 2009 22:37
por sygecom
Olá Antonio,

O Prwin é uma otima solução, basta vc redirecionar a impressão para arquivo em uma pasta que o PRWIN fica monitorando assim que o arquivo é liberado o PRWIN imprime.

Vamos dizer que por exemplo o PRWIN esta monitorando a pastas SISTEMA em C:\ Para direcionar a impressão para a pasta C:\SISTEMA baseado no seu exemplo ficaria assim:

Código: Selecionar todos

    CLOSE ALL
    DO WHILE .T.
       set color to w/b+
       @ 00,00 CLEA TO 24,80
       @ 00,00 CLEA TO 24,79
       @ 00,01 say "                                                                               "
       set color to w/b+
       @ 01,01 SAY "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
       @ 02,01 say "º                                                                             º"
       @ 03,01 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
       @ 04,01 SAY "º                                                                             º"
       @ 05,01 SAY "º                                                                             º"
       @ 06,01 SAY "º                                                                             º"
       @ 07,01 SAY "º                                                                             º"
       @ 08,01 SAY "º                                                                             º"
       @ 09,01 SAY "º                                                                             º"
       @ 10,01 SAY "º                                                                             º"
       @ 11,01 SAY "º                                                                             º"
       @ 12,01 SAY "º                                                                             º"
       @ 13,01 SAY "º                                                                             º"
       @ 14,01 SAY "º                                                                             º"
       @ 15,01 SAY "º                                                                             º"
       @ 16,01 SAY "º                                                                             º"
       @ 17,01 SAY "º                                                                             º"
       @ 18,01 SAY "º                                                                             º"
       @ 19,01 SAY "º                                                                             º"
       @ 20,01 SAY "º                                                                             º"
       @ 21,01 SAY "º                                                                             º"
       @ 22,01 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
       @ 23,01 SAY "º                                                                             º"
       @ 24,01 SAY "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
       fundo1R()
       setcolor("gr+/b")
       @ 02,22 say "DELPORT - MAQUINAS INDUSTRIAIS LTDA."
       set color to w/b+
       @ 03,02 SAY "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
       SET COLOR TO W/B+
       WCONF = SPAC(1)
       set color to w/b+
       @ 08,28 TO 13,51 DOUBLE
       SET COLOR TO GR+/R
       @ 09,29 SAY "                      "
       @ 10,29 SAY "   AGUARDE EMITINDO   "
       @ 11,29 SAY "       RELATORIO      "
       @ 12,29 SAY "                      "
       set color to w/b+
       SET DEVI TO PRINT
       set print to c:\sistema\nome_arq.txt
       SELE 1
       USE CLIENTE
       INDE ON NOME TO CLIENTER
       USE
       USE CLIENTE INDE CLIENTER
       WLIN = 99
       DO WHILE .NOT. EOF()
          IF WLIN > 60
             @ 01,01 SAY "Data: "
             @ 01,07 SAY DATE()
             @ 01,21 SAY "  DELPORT  -  MAQUINAS INDUSTRIAIS LTDA       Hora: "
             @ 01,73 SAY TIME()
             @ 02,01 SAY "                    -----------------------------------------                   "
             @ 03,01 SAY "                              Listagem de Clientes                              "
             @ 05,01 SAY "================================================================================"
             @ 06,01 SAY " CODIGO  NOME                                     CIDADE                 "
             @ 07,01 SAY "================================================================================"
             WLIN = 09
          ENDIF
          @ WLIN,02 SAY CODIGO
          @ WLIN,09 SAY NOME
          @ WLIN,50 SAY CIDADE
          WLIN = WLIN + 1
          SKIP
       ENDDO
       SET COLOR TO
       EXIT
    ENDDO
    SET PRINTER TO
    SET DEVI TO SCREE
    RETU



    //--------------------------//
      function fundo1R()
    //--------------------------//

      fun_do:=" DELPORT "
    **n:=(len(fun_do))
      n:=1
      fun_do=fun_do+space(n)
      fun_do :=subs(fun_do+replicate(fun_do,1800/len(fun_do)),1,1800)
      setcolor("b/wgb")
      for i = 4 to 21
          @i,02 say subs(fun_do,i*77-16,77)
          @i,02 say replicate(subs(fun_do,1,0),09)
          fundo=subs(fun_do,1)+subs(fun_do,1,0)
      next
      set color to
      return nil

Re: impressão com usb

Enviado: 10 Fev 2009 22:41
por sygecom
Antonio,
Não esqueça de fazer um Back-up antes de mexer nos seus FONTES( .PRG ) e para compilar você deve ter o Clipper instalado e configurado. Boa sorte.
Todos os horários são UTC-03:00
Página 1 de 1

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB