impressao com as fontes de codigo de barras

[MAMP2]

agora deu este

[kapiaba]

Pronto. Você é estudante(aprendiz)?

#include "FiveWin.ch"
	#Define PAD_LEFT            0
#Define PAD_RIGHT           1
#Define PAD_CENTER          2
	FUNCTION testa_etiqueta()

Regards, saludos.

Edited April 4, 2023 by kapiaba

[MAMP2]

deu este agora

[kapiaba]

Leia com calma: tem tudo o que voce precisa no modulo, calma...

//
// * Menu principal Sistema de Controle de Transporte - SCT999
//
	#include "FiveWin.ch"
#include "font.ch"    // nao precisa
#include "fileio.ch"
#include "SSay.ch"
#include "Image.ch"
#include "Mail.ch"
#include "CdoSys.ch"   // nao conheco seve para? Para que serve?
#include "webserv.ch"
#include "Tsbutton.ch" // nao recomendo o uso.  se nao, retire, ocupa memoria
#include "gColors.ch"  // voce usa mesmo?  se nao, retire, ocupa memoria
#include "label.ch"    // voce usa mesmo?
	#define CLR_LGREEN    nRGB( 190, 215, 190 )
#define CLR_LGRAY     nRGB( 230, 230, 230 )
#Define PAD_LEFT            0
#Define PAD_RIGHT           1
#Define PAD_CENTER          2
	#xcommand printerset() => printersetup()
	STATIC nLib, oget, oget1, oTimer, obut, obut1, obarra, oTot1, oTot2, oTot3, oTot4, osay_pb, osay_exu, oTimer_l
	
FUNCTION testa_etiqueta()
	   te_drive = "c:\sct2"
   te_term  = "TERM-01"
   te_esc_imp = "S"
   sal_lin = 11
   sal_col = 4.5
   linha   = sal_lin
   coluna  = sal_col
   te_numero = 0
   te_nome = Space( 10 )
	   DEFINE FONT MEMVAR->rec_sen NAME "Courier New" SIZE 10, 15 BOLD
	   DEFINE DIALOG oDlg3 FROM 10, 15  TO 17, 70                                ;
      TITLE "Controle de acesso : " + MEMVAR->te_drive + " Terminal : " +    ;
      MEMVAR->te_term FONT MEMVAR->rec_sen
	   oDlg3:lHelpIcon := .F.
	   @ linha, coluna SAY "NUMERO : " OF oDlg3 PIXEL UPDATE
	   coluna += sal_col * 09
   @ linha, coluna GET oget VAR MEMVAR->te_numero PICT "9999999999"          ;
      UPDATE SIZE sal_col * 12, 10 OF oDlg3 PIXEL
	   coluna += sal_col * 12
   @ linha, coluna SAY "NOME   : " OF oDlg3 PIXEL UPDATE
	   coluna += sal_col * 08
   @ linha, coluna GET oget1 VAR MEMVAR->te_nome PICT "@!"                   ;
      SIZE sal_col * 12, 10 OF oDlg3 PIXEL VALID cont_etique() UPDATE
	   ACTIVATE DIALOG oDlg3 CENTERED
	// FECHE AS FONTES AQUI
	RETURN NIL
	FUNCTION cont_etique()
	   LOCAL ip_caixa // => oPrn
   // Desnecessario se ja estiver instalada na bandeja de FONTES.
   LOCAL cFONT39r := AllTrim( MEMVAR->te_drive ) + "\Code39r.ttf"
   // se e MEMVAR, e depois da LOCAL
   // MEMVAR ip_caixa
   // AddFONTResource( cFONT39r ) // desncessario se ja esta instalada.
   MEMVAR->oDlg3:End()
	   IF MEMVAR->te_esc_imp = "S"
      PRINTERSETUP()
   ENDIF
	   // MUDEI EM: 04/04/2023 - Joao
   PRINT ip_caixa NAME "Teste etiqueta codigo de barras" PREVIEW MODAL
	   IF Empty( ip_caixa:hDC )
      MsgStop( "Impressora com problemas" )
      ip_caixa:End()
      CLOSE
      RETURN NIL
   ENDIF
	   // ponha antes da impressao
   // te_prn_esc = Upper( PrnGetNAME() ) //???? reveja isso, sei la... kkkk
	   // Organizacao e Metodo.    // MUDEI EM: 04/04/2023 - Joao
   DEFINE FONT dl_cx_fo1 NAME "Calibri"     SIZE 12, - 12 BOLD OF ip_caixa
   DEFINE FONT dl_cx_fo2 NAME "Arial"       SIZE 12, - 14 BOLD OF ip_caixa
   DEFINE FONT dl_cx_fo3 NAME "Arial"       SIZE 14, - 14 BOLD OF ip_caixa
   DEFINE FONT dl_cx_fo4 NAME "Arial Black" SIZE 40,  25 BOLD OF ip_caixa
   DEFINE FONT dl_cx_fo5 NAME "Courier New" SIZE 27, - 12 BOLD OF ip_caixa
   DEFINE FONT dl_cx_fo6 NAME "Arial"       SIZE 10, - 10 BOLD OF ip_caixa
   DEFINE FONT cFONT39r  NAME "Code39r"     SIZE 60, - 70      OF ip_caixa
   // Caneta do Preview    // MUDEI EM: 04/04/2023 - Joao
   DEFINE PEN dl_caneta1 WIDTH 05 COLOR CLR_BLACK             OF ip_caixa
	   // MUDEI EM: 04/04/2023 - Joao
   ip_caixa:SetPage( 9 )   // -> A4 //9
   ip_caixa:SetPortrait()  // -> Vertical(Retrato)
	   sal_lin  := ip_caixa:nVertRes() / 66
   sal_col  := ip_caixa:nHorzRes() / 60
   PAGE
	   lin_lis := sal_lin * 2
   /* // Modelo:
   **\oPrn:Say( nLinha * ResLinha,  nColuna * ResColuna,                  ;
   **\  "Orçamento Nº.: " + ALLTRIM( nProposta ), oFont, ,               ;
   **\   CLR_BLACK, , PAD_CENTER )
   */
   // MUDEI EM: 04/04/2023 - Joao o que e esse "*"
   ip_caixa:Say( lin_lis, sal_col * 3, "*" + StrZero( te_numero, 10 )     ;
      + "*", cFONT39r, , CLR_BLACK, , PAD_CENTER )
	   lin_lis += sal_lin * 20
   ip_caixa:Say( lin_lis, sal_col * 3, te_nome, dl_cx_fo4, , CLR_BLACK, , PAD_CENTER )
	   ENDPAGE
	   ENDPRINT
	// MUDEI EM: 04/04/2023 - Joao
	RETURN NIL // ( .T. ) // VERDADEIRO PORQUE? TEM VALID()? OXXYYYYYY kkkkk
// fin / end

Regards, saludos.
 

[MAMP2]

deu certo theotokos, a unica coisa que eu fico "confuso"

é porque com estes espacos em branco funciona?

só nao entendi isto, voce sabe porque?

 

 

 

 

marcos.prg

[MAMP2]

estes anexos foram por engano, desculpa

[MAMP2]

deu certo theotokos, so fiquei confuso

com uma coisa, porque com os espacos em branco funcionou?

tem alguma explicacao pra isto?

 

[gilmer]

Bom Tarde,

   Cada ttf de código de barras tem suas instruções de como utilizar, necessário verificar a documentação do fornecedor.

 

   

[MAMP2]

oi kapiaba, como diz gonzaguinha, "sou um eterno aprendiz"

desculpa as vezes chuto de "canela"

acho que é porque sou "Sao Paulino" kkkkk

[MAMP2]

boa tarde gilmer, as outras TTFs, nao funcionam assim

estes espacos em branco no nome me fugiu a compreensao

mas tudo certo, funcionando, nao tenho questionamentos,

é apenas uma curiosidade.

 

[kapiaba]

25 minutos atrás, MAMP2 disse:

oi kapiaba, como diz gonzaguinha, "sou um eterno aprendiz"

desculpa as vezes chuto de "canela"

acho que é porque sou "Sao Paulino" kkkkk

Kkkkkkkkk IKE TUDO. kkkkkkkk

[Theotokos]

5 horas atrás, MAMP2 disse:

deu certo theotokos, so fiquei confuso

com uma coisa, porque com os espacos em branco funcionou?

tem alguma explicacao pra isto?

 

é como Gilmer dissse, cada ttf tem sua instrução.... neste caso a fonte adiocionada ao windows, fica dessa forma, que fiz foi verificar no editor de texto (Word) forma que aparece lá, mas se vc verificar as instruções do .ttf