FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Draft, Roman, Italic en tdosprn
artu01
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Draft, Roman, Italic en tdosprn
Posted: Thu Nov 17, 2016 03:04 PM

Gente del foro:

Quisiera que los reportes que hago para una impresora epson lx 350 utilizar ademas del draft
ponerle Negrita, Condensado, Roman, Italic o jugar con los tamaños de CPI
Si alguien tuviese un ejemplo que me pudiese proporcionar se lo agradeceré

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Draft, Roman, Italic en tdosprn
Posted: Thu Nov 17, 2016 03:36 PM
Code (fw): Select all Collapse
    //-> Modo Draft
    @ nLinha, 00 SAY +CHR(18)+CHR(27)+"2"+CHR(27)+"H"          OF oPrn
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Draft, Roman, Italic en tdosprn
Posted: Thu Nov 17, 2016 05:19 PM
UFFA!!! Que dificil encuentrar algo tan antiguo... jejejejejejeje

Code (fw): Select all Collapse
ESC ! n 33 21 Selección maestra de estilos
              Sume los números de los estilos que
              quiera combinar para encontrar el valor
              de n
              n = 0 : 10cpp
                  1 : 12cpp
                  2 : proporcional
                  4 : comprimido
                  8 : negrita
                 16 : doble altura
                 32 : doble anchura
                 64 : cursiva
                128 : subrayado

Chr(27)+"E" Negrito
Chr(27)+"F" Cancelar negrito
Chr(14) Expandido
Chr(20) Canecelar expandido
Chr(15) Condensado
Chr(18) Cancelar condensado
Chr(27)+"M" 12 caracteres por "
Chr(27)+"P" 10 Caracteres por "
Chr(27)+"C"+Chr(xx) determina quantidade de linhas por pagina

Sublinhado = chr(27)+chr(45)+chr(1)
Negrito = chr(27)+chr(69)
Mod default= chr(27)+chr(64)
Condesado = chr(27)+chr(15)
Expandido = chr(27)+chr(33)+chr(48) 10CPI
Expandido = chr(27)+chr(33)+chr(49) 12CPI
Avança Folha = chr(12)
Avança 1 linha = chr(10)

Itálico:
. Ativa: CHR(27)+CHR(52)
. Desativa: CHR(27)+CHR(53)

Sublinhado:
. Ativa: CHR(27)+CHR(45)+CHR(01)
. Desativa: CHR(27)+CHR(45)+CHR(00)

Subscript:
. Ativa: CHR(27)+CHR(69)
. Desativa: CHR(27)+CHR(70)


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Draft, Roman, Italic en tdosprn
Posted: Thu Nov 17, 2016 05:23 PM
Code (fw): Select all Collapse
#xcommand @ <nRow>, <nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> )

FUNCTION IMP_TESTE_MATRICIAL( OpcaoImp )

   LOCAL nLinha, oPrn

   IF MsgYesNo( "Atenção Por Favor:" + CRLF + ;
                "Posso Imprimir?"    + CRLF + ;
                "Impressora Já Está Ligada?", ;
                "Por Favor, Confirme!!!" ) = .F.

      RETURN NIL
   ENDIF

   nLinha      := 0

   // Para Rede de Computadores
   // oPrn:New("\\seuterminal\suaimpressora\LPT1")
   oPrn:= TDosPrn():New( "TESTEIMP.TXT" ) // para ir para um arquivo .txt
   // oPrn:= TDosPrn():New()        // para ir para impressora em definitivo
   // oPrn := TDosPrn():New("lpt1") // para ir para impressora em definitivo
   // Este Comando, Liga a Impressora. NÆo Tirar Nunca
   oPrn:StartPage() // da Start(inicializa) na p gina.
   oPrn:lZeraBuffer := .T.             // Inibe o Pulo da P gina

   //-> Modo Draft
   @ nLinha, 00 SAY +CHR(18)+CHR(27)+"2"+CHR(27)+"H"          OF oPrn
   @ nLinha, 00 SAY " "+CHR(27)+"H" + CHR(27)+"W"+CHR(0)                  + ;
                        CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0)            + ;
                        CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0)      + ;
                        CHR(27)+"5"+CHR(27)+"-"+CHR(0)                    + ;
                        CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ;
                        CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) OF oPrn

   nLinha := nLinha + 1

   DO CASE
   CASE OPCAOIMP = 1
      @ nLinha,01 SAY "A - M o d o  Condensado   com  6 Linhas Por Polegada"+CHR(15)                         OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 2
      @ nLinha,01 SAY "B - M o d o  Carta  com    6   Linhas  Por  Polegada"+CHR(27)+"G"                     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 3
      @ nLinha,01 SAY "C - Modo Carta Condensado  com 6 Linhas por Polegada"+CHR(27)+"G"+CHR(15)             OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 4
      @ nLinha,01 SAY "D - M o d o  Normal  com   8   Linhas  por  Polegada"+CHR(27)+"0"                     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 5
      @ nLinha,01 SAY "E - M o d o  Condensado   com  8 Linhas por Polegada"+CHR(15)+CHR(27)+"0"             OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 6
      @ nLinha,01 SAY "F - M o d o  Carta  com    8  Linhas   por  Polegada"+CHR(27)+"G"+CHR(27)+"0"         OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 7
      @ nLinha,01 SAY "G - Modo Carta Condensado  com 8 Linhas por Polegada"+CHR(15)+CHR(27)+"G"+CHR(27)     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 8
      @ nLinha,01 SAY "H - M o d o   Condensado   c o m   dupla   Impressao"+CHR(15)+CHR(27)+"E"             OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 9
      @ nLinha,01 SAY "I - M o d o  N o r m a l  c o m  d u p l a Impressao"+CHR(27)+"E"                     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 10
      @ nLinha,01 SAY "J - V o l t a  ao  Normal  com 6 Linhas por Polegada"+CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   ENDCASE

   //-> Modo Draft
   @ nLinha, 00 SAY +CHR(18)+CHR(27)+"2"+CHR(27)+"H"           OF oPrn

   oPrn:EndPage()
   oPrn:End()

   //--- imprime no spool do windows, liberando o micro para trabalhar.
   ImpSpool( "TESTEIMP.TXT",, .T. )
   //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro.

RETURN NIL


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
artu01
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: Draft, Roman, Italic en tdosprn
Posted: Thu Nov 17, 2016 08:20 PM

Gracias Joao
Voy a probar!

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

Continue the discussion

Static archive · New replies & topics via GitHub Discussions