PC Toledo

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

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

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

Página 2 de 2

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

Enviado: 08 Mar 2013 21:57
por Pablo César
Seguramente, isso acontece porque o aplicativo está configurado para trabalhar com A4.

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

Enviado: 13 Mar 2013 08:04
por anacatacombs
Ness, poste um pedaço do código. Pode não ser problema no USBPRINT.

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

Enviado: 02 Abr 2013 22:45
por Araújo
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?!!

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

Enviado: 11 Jul 2013 19:35
por marbio
Ola galerinha

Alguem pode disponibilizar o arquivo USBPRINT nao consigo baixar


Att,

Marbio

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

Enviado: 11 Jul 2013 21:54
por Pablo César
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).

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

Enviado: 29 Jun 2014 22:50
por massa
como faço pra usar ele ??? ja baixei faço mais o que agora

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

Enviado: 30 Jun 2014 17:05
por Nascimento
é eu tambem preciso mais tambem para 40 colunas *-)

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

Enviado: 30 Jun 2014 20:02
por Toledo
massa escreveu:como faço pra usar ele ???
Conteúdo do Help: USBPRINT/?
USBPRINT for Windows - Versão: 9.0
&nbspFormato da Fonte&nbsp&nbspDefinição TAG&nbsp&nbspValor Padrão Epson&nbsp
&nbspNormal&nbsp&nbsp[NORMAL]&nbsp&nbsp= CHR(18)&nbsp
&nbspCondensado&nbsp&nbsp[COMPRIME]&nbsp&nbsp= CHR(15)&nbsp
&nbspExpandido&nbsp&nbsp[EXPANDE]&nbsp&nbsp= CHR(14)&nbsp
&nbspNegrito (Liga)&nbsp&nbsp[NEGRITOLIGA]&nbsp&nbsp= CHR(27)+"E"&nbsp
&nbspNegrito (Deslig)&nbsp&nbsp[NEGRITODESL]&nbsp&nbsp= CHR(27)+"F"&nbsp
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,

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

Enviado: 26 Mar 2021 15:36
por Fernando Borges
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:

Código: Selecionar todos

                   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.

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

Enviado: 26 Mar 2021 16:51
por Itamar M. Lins Jr.
Olá!
Isso depende da impressora.

Qual é a impressora ?

Saudações,
Itamar M. Lins Jr.

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

Enviado: 26 Mar 2021 17:48
por Fernando Borges
é 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.

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

Enviado: 26 Mar 2021 18:50
por Itamar M. Lins Jr.
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.

Código: Selecionar todos

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

Código: Selecionar todos

? 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/manu ... gin-i9.pdf


Saudações,
Itamar M. Lins Jr.
Todos os horários são UTC-03:00
Página 2 de 2

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB