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

[Pablo César]

Seguramente, isso acontece porque o aplicativo está configurado para trabalhar com A4.

[anacatacombs]

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

[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?!!

[marbio]

Ola galerinha

Alguem pode disponibilizar o arquivo USBPRINT nao consigo baixar


Att,

Marbio

[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).

[massa]

como faço pra usar ele ja baixei faço mais o que agora

[Nascimento]

é eu tambem preciso mais tambem para 40 colunas *-)

[Toledo]

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,

[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.

[Itamar M. Lins Jr.]

Olá!
Isso depende da impressora.

Qual é a impressora ?

Saudações,
Itamar M. Lins Jr.

[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.

[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.