DESAFIO IMPRESSAO (Ainda Acredito no Clipper)

[managercorp]

Todos os meus relatorios sao em 132 colunas, apenas coloco o chr de comprimido e pronto, tudo OK.
So que fiz uma opcao no meu menu de impressao onde o usuario escolhe, tela, impressora, impressora de rede, usb, ou WINDOWS.
neste ultimo caso WINDOWS eu abro o WORDVIEW OU O NOTEPADE OU O WORDPAD, ate aqui tudo bem, so que o problema e que os relatorios saem desconfigurados uma vez que eles sao para 132 colunas e nestes programa do windows ele so aparecem com 80 colunas, jogando o excesso para a linha de baixo o que bagunca todo o relatorio.
PELO AMOR DE DEUS ALGUEM SABE COMO POSSO INFORMAR A ESTES APLICATIVOS QUE SAO 132 COLUNAS E NAO 80.
Ja tentei TXT, RTF, etc, nada funciona, tem de ter algum modo de quando eu jogar o arquivo e ja ir com letras comprimidas.
Programo tambem em delphi mas continuo apostando e acreditando no CLIPPER. Por favor se alguem tiver alguma ideia, por mais absurda que pareca pode ser um caminho, me dem um toque.

[And]

Dei uma olhada no WordPad e vi que em [/b]Exibir->Opções[/b] tem guias com o formato de arquivo e a opção de [/b]quebra automática de linha[/b], escolha o formato que vc usa e marque a opção sem quebra automática e faça o teste.

Dê retorno dizendo se funcionou.[/b]

[managercorp]

Virei a Noite ate as 06:40 da manha, mas enfim resolvi.
Estou gerando um .rtf
primeiro abri um arquivo no word em formato rtf
depois coloquei meu nome, depois coloquei em negrito, depois ...... etc...
todos os comandos que ele gerol eu vi pelo edit no arquivo meuteste.rtf
foi so colocar os mesmos controles no meu programa e pronto
impressao do clipper em windows, com cores, negritos, logomarca. fotos. etc. etc...
Atencao: a fonte tem de ser courier new com tamanho 6
e a pagina tem de ser configurado para tamanho do papel largura=20cm
********** deixa eu explicar melhor *********
voce entra no word.
coloca o logotipo ou foto desejada
coloca um rodape
coloca uma linha de cabecalho etc.
depois voce salva em formato ex: meuteste.rtf
ai voce abre pelo edit no dos o arquivo meuteste.rtf
recorta todas as linhas que aparecer, nao se assuste que e tudo
meio maluco, cheio de codigo.
voce guarda isto em um arquivo ex: arqrtf.dbf, com uma variavel de 300 caracteres chamada dados.
PRONTO..
todas vez qie voce for gerar um relatorio voce primeiro
grava estas linhas que voce ja guardou
e so depois comeca a imprimir o seu relatorio normalmente como
voce faz no clipper.
exemplo:
set printer to relatorrio.rtf
use arqrtf.dbf
go top
linha=1
do while .not. eof()
@ linha,00 say dados
linha=linha+1
skip
enddo
* pronto as primeiras linhas ja foram aqueles codigos guardados
agora e so continuar abrindo os seus arquivos
e sair imprimindo tudo
no final voce vai ter um arquivo relatorio.rtf
e so abrir ele no wordview.exe ou no proprio winword.exe
FICOU FILE, TRADUZINDO E TUDO QUE O TEXTORICO QUE CUSTA R$ 250.00 REAIS FAZ.
*******
O bizu principal e aquelas linhas que voce guarda do modelo de rtf que voce cria, quando voce copia estas linhas por seu texto, ela ja joga tudo, tamanho do papel, fonte, tela, cores, tudo, tudo mesmo, igualzinho o modelo que voce criou no word.
qualquer duvida estamos ai.
*********
AI QUE SONO, SAO 27 HORAS NO AR. VOU DORMIR, SATISFEITO

[managercorp]

VOU COLOCAR O RESULTADO NO MEU SITE
DEM UMA OLHADA FICOU DO CACETE MESMO
www.managercorp.com.br/rtf

---- se voce olhar e nao achar e porque ainda nao terminei de colocar, pois preciso dormir ----

[And]

Ok.






:xau

[Stanis Luksys]

VOU COLOCAR O RESULTADO NO MEU SITE
DEM UMA OLHADA FICOU DO CACETE MESMO

BAIXEI E Ó... FICOU MESMO!!!!! TA DE PARABÉNS!!!
:{
Quando eu precisar de algo parecido já sei a quem recorrer... rs

Fui...

[mbrigatti]

Puxa vida colega é 10 mesmo, vou seguir o seu esquema e ver como se comportam relatórios de várias páginas. Suas 27 horas realmente valeram a pena.

[support sistemas]

Marcelo segui sua dica e realmente e genial era isso que eu precisava valeu :xau

[Clipper]

Parabéns Alexandre !

Ficou muito bom realmente !

Com certeza foram 27 horas que valeram a pena.

Até logo.

Marcelo

[Paulao]

Valeu amigo , são pessoas assim que enrriquecem o forum.

[Paulao]

Valeu amigo , são pessoas assim que enrriquecem o forum.

[managercorp]

NO LUGAR DE VOCE PULAR LINHA ASSIM:
@ LINHA,10 SAY 'XXXXX'
LINHA=LINHA+1
VOCE FAZ UMA FUNCAO CHAMADA PULA, ASSIM
*********
FUNCTION PULA
LINHA=LINHA+1
IF LINHA > 100
SETPRC(0,0)
@ LINHA,00 SAY '\par \par \page'
linha=linha+1
endif
return(0)
********
atencao: este string \par \par \page
e para o word pula a pagina.
ele realmente faz isto, faz a quebra de pagina perfeito

[Ricardo Sales Ribeiro]

Amigo Alexandre!

Estou precisando desta sua ajuda agora, fiz todos os precedimentos e não consegui.

Por favor, mandei para seu e_mail minhas dúvidas.

Aguardo seu pronunciamento

[Grings]

O que aconteceu de errado? É trabalhoso trabalhar assim, cada linha nova vc tem que colocar /PAR e assim vai...

[managercorp]

Depois que postei a minha solucao para imprimir o clipper
em formato word, direto para o windows
minha caixa postal e meu celular nao param de receber
chamados, algums agradecendo , mais a maioria com
duvidas sobre como fazer, pois nao entenderam.

Por conta disso estou disponibilizando no link abaixo
o download da solucao completa zipada
ela ja vem com o Wordview

Apos executar o RTF.exe e so clicar no lapis amarelo que aparece
no menu da barra superior e o texto vai doreto para o Word

www.managercorp.com.br/rtf