NESCAPEMENT

[rafaelot]

Bom dia,

Estou tentando imprimir um texto em 90 graus em um relatório usando o TPrint, mas não estou conseguindo de jeito nenhum.

Estou usando aquele tal de NESCAPEMENT e não muda nada na aparência do negócio.

Alguém pode me ajudar.

[rafaelot]

Bom dia,

Estou tentando imprimir um texto em 90 graus em um relatório usando o TPrint, mas não estou conseguindo de jeito nenhum.

Estou usando aquele tal de NESCAPEMENT e não muda nada na aparência do negócio.

Alguém pode me ajudar.

[soares289]

Não sei se entendi direito, mais você quer imprimir um testo na vertical? tipo...

s

o

a

r

e

s

2

8

9

Se for isso, e vc não conseguir usar o TPrint, você pode montar uma rotina que pegue o texto na horizontal e converte ele para a vertical.

Tipo, cria um array com todas as linhas do texto.

Pega o tomanho da maior linha e faz tipo isso

Ae faz assim

for c=1 to nMaiorLinha

For c1=1 to len(aLinhas)

if c > len(aLinhas[c1]

cTexto += ' '

else

cTexto += substr(aLinhas[c1],c,1)

endif

next

cTexto += chr(13) + chr(10)

next

e imprime o cTexto.

[]'s, T+.

Carlson A. Soares - SP - SP

FiveWin 7.05 - xHarbour .961 - SQLRDD

Se precisar de ajuda estamos ai.

SoftWare OpenSource, o Futuro começa assim.

[soares289]

É kra, testei aqui e funcionou, se é oque vc esta tentando fazer é escrever o texto em pé.

nMaiorLinha := 0

aLinhas := {"Mensagem da linha1","Casa no Campo","Mesa de café da manha","FiveWin Brasil","Outra mensagem que","Pelomenos 20 linhas"}

for c=1 to len(aLinhas)

if len(aLinhas[c]) > nMaiorLinha

nMaiorLinha := len(aLinhas[c]

endif

next

cTexto := ''

for c=1 to nMaiorLinha

For c1=1 to len(aLinhas)

if c > len(aLinhas[c1])

cTexto += ' '

else

cTexto += substr(aLinhas[c1],c,1)

endif

next

cTexto += chr(13) + chr(10)

next

MsgInfo( cTexto )

O problema é que se for um arquivo muito grande, alem de demorar vai gerar varios problemas com o salto de pagina.

Carlson A. Soares - SP - SP

FiveWin 7.05 - xHarbour .961 - SQLRDD

Se precisar de ajuda estamos ai.

SoftWare OpenSource, o Futuro começa assim.

[Luiz Arruda (ICO)]

Tem que definir junto com o fonte.

DEFINE FONT oFont1 NAME "arial" SIZE 15,15 BOLD OF oPrn NESCAPEMENT xxx (xxx=a posição q vc quer)

Luiz Arruda - Corumbá/MS

FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65

ico.corumba@gmail.com

Vamos Aderir:"Retorne avisando se a dica funcionou"id=blue>

Editado por - ico on 25/09/2007 10:36:53

[aferra]

Olá rafaelot.

seja bem vindo ao forum.

tente desta forma

nVert:=oPrn:nVertRes()/100

DEFINE FONT oFnt1 NAME "COURIER NEW" SIZE 0,-nVert NESCAPEMENT 900

nLinha:=4.5

nColuna:=1.5

oPrn:cmSay(nLinha,nColuna,"TEXTO",oFnt1)

Alessandroid=blue>

FW20d+CL53b+Blinker7+@Say+CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

V ENCONTRO DE PROGRAMADORES FIVEWIN - NOVEMBRO/2007 - EU VOUid=red>

[rafaelot]

Não gente, se fosse isso eu já tinha resolvido, eu quero fazer assim como na imagem

Como eu faço?

[aferra]

olá.

da forma que eu passei, veja este link.

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11037

Lá tem dois problemas em um rsrsrsrsrsrs..... resolvidos....

Alessandroid=blue>

FW20d+CL53b+Blinker7+@Say+CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

V ENCONTRO DE PROGRAMADORES FIVEWIN - NOVEMBRO/2007 - EU VOUid=red>

[Luiz Arruda (ICO)]

se for mesmo

que tá na imagem..

é deste jeito..

DEFINE FONT oFont1 NAME "arial" SIZE 15,15 BOLD OF oPrn NESCAPEMENT 900

oprn:say(950,5,"DESSE JEITO",ofont1,,nRgb(200,0,0))

Luiz Arruda - Corumbá/MS

FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65

ico.corumba@gmail.com

Vamos Aderir:"Retorne avisando se a dica funcionou"id=blue>

Editado por - ico on 25/09/2007 15:24:23