Clipper On Line • Ver Tópico - USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Discussão sobre ferramentas de apoio à programação (Clipper/[x]Harbour)

Moderador: Moderadores

 

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Pablo César » 08 Mar 2013 21:57

Seguramente, isso acontece porque o aplicativo está configurado para trabalhar com A4.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor anacatacombs » 13 Mar 2013 08:04

Ness, poste um pedaço do código. Pode não ser problema no USBPRINT.
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Araújo » 02 Abr 2013 22:45

Sou programador clipper (jurássico), não programava fazia muito tempo!... recebi uma missão para fazer um antigo sistema clipper imprimir no ambiente XP e estava encontrando muita dificuldade até que encontrei o USBPRINT!...fiz alguns testes preliminares e a princípio está funcionando beleza, mas estou com problemas para os relatórios com mais de 132 colunas... vi neste forum que um comentário falando sobre algumas melhorias promovidas na versão USBPrint 10.1 e dentre elas está a opção para imprimir em modo paisagem!... Gostaria de saber qual tag/parâmetro que muda a orientação de impressão para o USBprint?.. Alguem pode me ajudar?!!
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor marbio » 11 Jul 2013 19:35

Ola galerinha

Alguem pode disponibilizar o arquivo USBPRINT nao consigo baixar

Att,

Marbio
Nota de Moderação:
Pablo César: Mensagem re-editada. Enviar por email, resolver através de meios privados são práticas não aceitas aqui no fórum. Favor ler a "Regra Geral do Fórum" (itens 10,11,12 e 13)
Sempre há uma solucao para os nossos problema clipper.....
Avatar de usuário

marbio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 200
Data de registro: 29 Jul 2004 16:26
Curtiu: 0 vez
Mens.Curtidas: 0 vez

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Pablo César » 11 Jul 2013 21:54

Olá Márbio,

O arquivo para download na primeira mensagem, substituí para que seja possível o download. Não sabíamos que o link que apontava endereço externo ao fórum deixara de existir. Agora você pode baixá-lo na primeira mensagem (pena que os fontes nunca foram disponibilizados).
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor massa » 29 Jun 2014 22:50

como faço pra usar ele ??? ja baixei faço mais o que agora
massa
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 27 Jun 2014 21:04
Cidade/Estado: franco da rocha/sp
Curtiu: 1 vez
Mens.Curtidas: 0 vez

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Nascimento » 30 Jun 2014 17:05

é eu tambem preciso mais tambem para 40 colunas *-)
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Toledo » 30 Jun 2014 20:02

massa escreveu:como faço pra usar ele ???


Conteúdo do Help: USBPRINT/?
USBPRINT for Windows - Versão: 9.0





 Formato da Fonte  Definição TAG  Valor Padrão Epson 
 Normal  [NORMAL]  = CHR(18) 
 Condensado  [COMPRIME]  = CHR(15) 
 Expandido  [EXPANDE]  = CHR(14) 
 Negrito (Liga)  [NEGRITOLIGA]  = CHR(27)+"E" 
 Negrito (Deslig)  [NEGRITODESL]  = CHR(27)+"F" 


SINTAX: USBPRINT |<Arq_Impr>|</LIST"Arq">|</EDIT>| [Parametros]

/LIST"Arq" = Lista Impressoras Instaladas --> Default: Printers.txt
/EDIT = Definição de TAGs
/? | ? = AJUDA modo Janela
/HELP = AJUDA modo Texto

PARAMETROS:
/DEF = Impr. Padrão (Default)
/SEL = Mostra impr. Instaladas
/SEL"Impr" = Especifica Impr.
/DEL = Apagar Arq. Impressão
/T2 = Interface por Janela

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Fernando Borges » 26 Mar 2021 15:36

Prezados colegas, não estou conseguindo usar o USBPRINT, alguém poderia me ajudar. Segue abaixo a rotina que estou usando para imprimir e não dá certo. Preciso que todas as linhas imprimam em negrito. Segue abaixo:

                   ARQ_PRN="CP"+STRZERO(M->CUP_SAI,6)+".PRN"
                    M->TIPO_PRN = "A"
                    SET PRINTER TO &ARQ_PRN
                    set device to printer
                    SETPRC(0,0)
                    LINHA=PROW()
                    @ LINHA,000 SAY "[COMPRIME];[NEGRITOLIGA]"
                    LINHA=LINHA+1
                    @ LINHA,001 say "---------------------------------------------------------"
                    LINHA = LINHA + 1
                    @ LINHA,001 SAY " DOCUMENTO AUXILIAR DE VENDA -        Venda a Vista"
                    LINHA = LINHA + 1
                    @ LINHA,001 SAY " DOCUMENTO NAO FISCAL - "
                    @ LINHA,030 SAY "N§ do Cupom.: "+strzero(numer,6)
                    LINHA = LINHA + 1
                    @ LINHA,001 say "---------------------------------------------------------"
                    LINHA = LINHA + 1
                    @ LINHA,001 say SUBST(EMPRESA,1,25)+"- Telefone: (34)3351-5638"
                    LINHA = LINHA + 1
                    @ LINHA,001 say SUBST(M->END_EMP,1,25)+"- WhatsApp: 99923-0818"
                    LINHA = LINHA + 1
                    @ LINHA,001 SAY "Data:"
                    @ LINHA,007 SAY M->DAT_HOJE
                    @ LINHA,020 SAY "Hora: "+TIME()
                    @ LINHA,040 SAY "Venda a vista"
                    LINHA = LINHA + 1
                    @ LINHA,001 say "---------------------------------------------------------"
                    LINHA = LINHA + 1
                    @ LINHA,001 say "Cliente..: "+M->CLIE
                    LINHA = LINHA + 1
                    @ LINHA,001 say "Vendedor.: "+STR(M->FUN_SAI,3)+" - "+PESQ(STR(M->FUN_SAI,3),"3",2,"NOM_FUN")
                    LINHA = LINHA + 1
                    @ LINHA,001 say "---------------------------------------------------------"
                    LINHA = LINHA + 1
                    @ LINHA,001 say "Descricao                   Qtd  V.Unit.  Vr. Total"
                    LINHA = LINHA + 1
                    @ LINHA,001 say "---------------------------------------------------------"
                    LINHA = LINHA + 1
                    b=1
                    DO WHILE b <= ele
                       M->CLI_SAI = 0
                       M->TIP_SAI = 1
                       M->PAG_SAI = M->DAT_HOJE
                       M->TIR_SAI = "P"
                       M->PRO_SAI = M1[b]
                       M->QTD_SAI = M3[b]
                       tot1 = m3[b]*m4[b]
                       @ linha,001 say PESQ(STR(M->PRO_SAI,6),"5",3,"SUBST(DES_EST,1,25)")
                       @ linha,029 say m3[b] pict "999"
                       @ linha,033 say m4[b] pict "9,999.99"
                       @ linha,043 say tot1 pict "99,999.99"
                       linha = linha + 1
                       b=b+1
                    ENDDO
                    @ LINHA,001 say "---------------------------------------------------------"
                    LINHA = LINHA + 1
                    @ linha,013 say 'Valor Total...: R$'
                    @ linha,042 say m->totger+m->desc pict '999,999.99'
                    LINHA=LINHA+1
                    if m->desc>0
                       @ linha,013 say 'Valor Desconto: R$'
                       @ linha,042 say m->desc pict '999,999.99'
                       LINHA=LINHA+1
                    endif
                    @ linha,013 say 'Total a Pagar.: R$'
                    @ linha,042 say m->totfin pict '999,999.99'
                    linha = linha + 1
                    @ LINHA,001 say "---------------------------------------------------------"
                    linha=linha+2
                    @ linha,003 say "Local Entrega: "+M->LOCAL
                    linha = linha + 4
                    @ LINHA,001 say "---------------------------------------------------------"
                    linha = linha + 8
                    @ linha,001 say " "
                    @ linha,001 say " "
                    SET PRINTER OFF
                    SET DEVICE TO SCREEN
                    RUNCMD:="USBPRINT "+"CP"+STRZERO(M->CUP_SAI,6)+".PRN"
                    __RUN(RUNCMD)


Desde já agradeço.

Fernando Borges.
Nota de Moderação:
Itamar M. Lins Jr.: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
Fernando Borges
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 38
Data de registro: 29 Set 2004 16:43
Cidade/Estado: Sacramento/MG
Curtiu: 0 vez
Mens.Curtidas: 0 vez

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Itamar M. Lins Jr. » 26 Mar 2021 16:51

Olá!
Isso depende da impressora.

Qual é a impressora ?

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Fernando Borges » 26 Mar 2021 17:48

é uma impressora térmica 40col. da marca Control iD, mas pelo que já fiz os testes nela, ela aceita os comandos, porque coloquei só a opção de [COMPRIMIDO] usando o USB.EXE antigo e ela aceitou. Agora que baixei o USBPRINT.EXE nova versão é que não estou conseguindo usar os comandos e muito menos fazer imprimir em negrito.

Atenciosamente.

Fernando Borges.
Fernando Borges
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 38
Data de registro: 29 Set 2004 16:43
Cidade/Estado: Sacramento/MG
Curtiu: 0 vez
Mens.Curtidas: 0 vez

USBPRINT Nova Versão - Solução p/ Impressão USB via Clipper

Mensagempor Itamar M. Lins Jr. » 26 Mar 2021 18:50

Olá!
Procurei nos manuais, não achei.
Só ligando para o suporte, ou fazer teste criando os comandos de negrito no próprio relatório que vc usa.
? chr(27)+chr(69) + "ligar negrito"
? chr(27)+chr(70) + "desligar negrito"

ou
? chr(27)+chr(69) +chr(1)  + "ligar negrito"
? chr(27)+chr(70) +chr(0) +  "desligar negrito"
ou
? chr(27)+chr(69) +"1"  + "ligar negrito"

Só trocar ai no texto onde tem [NEGRITOLIGA] por "chr(27)+chr(69)" e testar.

Vi esses comandos no manual de Elgin PAGINA 21.
https://www.bztech.com.br/arquivos/manual-programacao-impressora-nao-fiscal-elgin-i9.pdf

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Anterior



Retornar para Ferramentas de Apoio

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro