Clipper On Line • Ver Tópico - Função Útil para impressão

Função Útil para impressão

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Função Útil para impressão

Mensagempor JoséQuintas » 22 Nov 2016 07:27

PROCEDURE Main

   SET PRINTER TO test.txt
   SET DEVICE TO PRINT
   Negrito( .T. )
   @ pRow(), 1 SAY "CONTA"
   @ pRow(), 16 SAY "NOME DA CONTA"
   @ pRow(), 48 SAY "FONTE"
   @ pRow(), 54 SAY "AGENCIA"
   @ pRow(), 62 SAY "F.FIN"
   @ pRow(), 68 SAY "FT.CONTRAP."
   @ pRow(), 80 SAY "ORG.U."
   @ pRow(), 87 SAY "APLIC"
   @ pRow(), 93 SAY "BSD"
   @ pRow(), 97 SAY "DT.ABERTU."
   @ pRow(), 108 SAY "DT.ENCERR."
   @ pRow(), 119 SAY "CONTRATO/CONVÊNIO"
   @ pRow(), 140 SAY "OFÍCIO SOLICITANTE"
   @ pRow(), 166 SAY "OBJETO"
   @ pRow(), 212 SAY "CATEGORIA"
   Negrito( .F. )

   RETURN

FUNCTION Negrito( lOn )

   LOCAL nRow, nCol

   nRow := pRow()
   nCol := pCol()
   @ pRow(), pCol() SAY iif( lOn, Chr(27)+'(s3B', Chr(27)+'(s-3B' )
   SetPrc( nRow, nCol )

   RETURN NIL


test.png


Não dá pra ver, mas o texto começa na coluna 7 e termina na 226, 220 caracteres.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Função Útil para impressão

Mensagempor asimoes » 22 Nov 2016 07:31

Fazendo um teste simples:

PrintLine(.T., 000, "0123456789")
PrintLine(.F., 010, "COLUNA 10" )
@ PRow()+1, 010 SAY "---------"

Resulta:
0123456789COLUNA 10
          ---------
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Função Útil para impressão

Mensagempor JoséQuintas » 22 Nov 2016 07:33

Teste a última que postei.
Aproveita pra mixar, colocar negrito em apenas uma palavra.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Função Útil para impressão

Mensagempor asimoes » 22 Nov 2016 07:43

Quintas,

Funcionou o seu exemplo.
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Função Útil para impressão

Mensagempor asimoes » 22 Nov 2016 08:00

Quintas,

O maior desafio é colocar o negrito em uma posição qualquer no texto por exemplo negritar "NOME DA CONTA" e "CONTRATO/CONVÊNIO"

Quintas a tua função funcionou para situação acima. Vlw
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Função Útil para impressão

Mensagempor janio » 22 Nov 2016 14:55

aSimoes,

Estou gostando da sua função! Bem legal!

A diferença entre a função prow() seria o Picture, que nesse caso da pra definir logo na frente!

Na sua função usaria o Transform???

Janio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Função Útil para impressão

Mensagempor asimoes » 22 Nov 2016 15:14

Jânio, Você pode passar o texto com transform, ou na própia linha

@Prow(), 1 SAY TABELA->Codigo PICTURE "@R 9999-9"

Ou

@Prow(), 1 SAY Transform(TABELA->Codigo, "@R 9999-9")
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Anterior



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 20 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