ACS_RTF.ch

Versão 1.25

Word Viewer 7.1	x	Word Pad

 

Crie seu relatório em um arquivo no formato da extensão RTF (Rich Text Format) e depois mande o Word Viewer 7.1 ou o WordPad abrir e imprimir o seu relatório! Tudo via Clipper!!! É mole ou quer mais?! Tudo bem: mude a fonte, a cor, o alinhamento horizontal, adicione lista com marcadores... quer mais?! Não precisa incluir configuração de impressora no seu sistema, pois é o Windows que vai  imprimir na impressora padrão instalada... quer mais?!

Word Viewer 7.1 Freeware Downloads realizados: 806 wd95vw71.exe - 2,13Mb   O Word Viewer é um aplicativo Freeware que a Microsoft desenvolveu para que todos os usuários de computador do mundo pudessem visualizar os arquivos do Microsoft Word do seu pacote Microsoft Office. Atenção: Esta versão está sendo disponibilizada para trabalharmos com arquivos RTF, pois sua última versão não aceita a linha de comando /p para imprimirmos diretamente do Clipper. Veja mais em Microsoft.com

Já percebeu que você poderá imprimir em impressoras de rede?! O Word Viewer imprimirá na Impressora Padrão da sua máquina, que pode ser qualquer impressora de rede instalada, além da local, desde que selecionada manualmente no Windows. E... a propósito, sabe aquela lentidão para imprimir em rede?! Adivinha??? Sumiu com esta solução!!!  Quer mais ainda?!

 Então veja como é FÁCIL neste exemplo:

// INCLUIR ESTA LINHA EM TODO PROGRAMA DE RELATORIO PARA USAR RTF
#INCLUDE "ACS_RTF.CH"
CLS
fRTF := "TMP"+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+".RTF"
SET PRINT TO &fRTF

SET DEVICE TO PRINT
SET PRINTER ON
LL := 0
* SEMPRE IMPRIMIR ESTAS 03 LINHAS NESTA ORDEM APENAS UMA VEZ
* PARA GERAR O ARQUIVO RTF
@ LL++,00 SAY cTABFON
@ LL++,00 SAY cTABCOR
@ LL++,00 SAY cACENTOS

@ LL++,00 SAY cPAISAGEM // Se quiser modo paisagem

@ LL++,00 SAY MARGEM(3,2,3,2) // Funcao retorna a string c/ o codigo

**
@ LL++,00 SAY "PRIMEIRA LINHA DO TEXTO NORMAL" + cENTER // Toda linha deve terminar com "cENTER"
@ LL++,00 SAY cNEG_ON + "SEGUNDA LINHA DO TEXTO EM NEGRITO" + cNEG_OFF + cENTER
@ LL++,00 SAY cITA_ON + "TERCEIRA LINHA DO TEXTO EM ITALICO" + cITA_OFF + cENTER
@ LL++,00 SAY cSUB_ON + "QUARTA LINHA DO TEXTO EM SUBLINHADO" + cSUB_OFF + cENTER
@ LL++,00 SAY cNEG_ON + cITA_ON + cSUB_ON + "QUINTA LINHA DO TEXTO EM NEGRITO, ITALICO E SUBLINHADO" + cNEG_OFF + cITA_OFF + cSUB_OFF + cENTER
@ LL++,00 SAY cENTER // Linha em branco
@ LL++,00 SAY cCOURIER + "COURIER NEW" + cENTER
@ LL++,00 SAY cTIMES + "TIMES NEW ROMAN" + cENTER
@ LL++,00 SAY cVERDANA + "VERDANA" + cENTER
@ LL++,00 SAY cDRAFT10 + "DRAFT 10cpi" + cENTER
@ LL++,00 SAY cDRAFT12 + "DRAFT 12cpi" + cENTER
@ LL++,00 SAY cENTER

@ LL++,00 SAY "VEJA TODOS OS COMANDOS DISPONIVEIS ABRINDO O ARQUIVO ACS_RTF.CH"+ cENTER

* SEMPRE IMPRIMIR ESTA LINHA NO FINAL
@ LL,00 SAY cFIM

SET DEVICE TO SCREEN
SET PRINTER OFF
SET PRINT TO

// EXEMPLO P/ ABRIR O ARQUIVO NO Word Viewer SILENCIOSAMENTE:
// ATENÇÃO: O Word Viewer precisa estar no PATH do Autoexec.bat

cABRE := "START /m WordView.EXE "+ fRTF  // No Windows XP, remova "START /m" do comando.
//RUN (cABRE)

// EXEMPLO P/ ABRIR E IMPRIMIR ARQUIVO NO Word Viewer SILENCIOSAMENTE E FECHAR AUTOMATICAMENTE:
cIMPRIME := "START /m WORDVIEW.EXE "+ fRTF + " /p"  // No Windows XP, remova "START /m" do comando.
RUN (cIMPRIME)

 

Prestou atenção?! É Muito simples, é só inserir um arquivo de cabeçalho ACS_RTF.CH no início de cada programa de relatório e usar as variáveis de construção conforme programa exemplo. Você nunca imaginou que seria tão fácil!!!

Você pode até pensar: "Não gostei, já tenho um sistema pronto e vou ter que mexer em todos os meus relatórios...". Sim, vai, mas depois disso nunca mais você precisará mexer neles para absolutamente nada! Nunca mais se preocupar em configurar uma nova impressora; se ela imprime no DOS ou não; como imprimir em modo paisagem; etc, etc, etc. Sabe aquela rotina "Configurar Impressora"? Esqueça dela!

Se você tem uma função para fazer relatório que mostre-o na tela, imprima e grave em arquivo (Quase todo sistema no mercado faz isso), você poderá implementar uma rotina dentro da sua função para automatizar este processo e não modificar uma só linha do seu sistema. Ao invés disso, você também pode adquirir o TEXTO RICO.

Além disso, veja estas características:

Características da solução:

• 03 Fontes do Windows: Courier New, Times New Roman e Verdana;

• 07 Cores: Azul, Vermelho, Verde, Preto, Cinza, Prateado e Amarelo;

• Códigos de acentuação;

• Estilos de fonte: Negrito, Itálico e Sublinhado;

• 07 Tamanhos de Fonte: 6, 7, 8, 9, 10, 11 e 12;

• Alinhamento horizontal: À Esquerda, Centralizado e À Direita;

• Lista com marcadores;

• Imprime em MODO PAISAGEM ou Retrato (padrão);   

• Define margens: superior, inferior, esquerda e direita;  

• 02 Fontes do MS-DOS: DRAFT 10cpi e DRAFT 12cpi;

• Permanece na tela do MS-DOS ao imprimir!

• EJECT (comando para "saltar" para outra página)

• Facílimo de usar!!!

Observação: As fontes do MS-DOS e do Windows podem ser alternadas a qualquer hora na mesma página!!! Você pode imprimir algumas palavras na fonte VERDANA para dar maior destaque, por exemplo, e o resto em DRAFT para imprimir mais rápido. Essa foi ótima, não?!

Preste atenção: Todos os itens acima são obtidos SEM A INTERVENÇÃO DO USUÁRIO, você prepara todo o layout e programa todo o seu relatório e o manda imprimir no Word Viewer DIRETAMENTE DO SEU SISTEMA EM CLIPPER e ainda: o usuário nem percebe que é o Word Viewer quem está imprimindo. Isto não é fantástico?!

Abra o arquivo ACS_RTF.CH para ver todas as variáveis de construção disponíveis.

Configurar o sistema para cada tipo de impressora nunca mais!!!

Isso sim é uma solução decente!!!

Você imprimirá em qualquer impressora USB, Windows Only ou qualquer outra que quiser e ainda por cima abusar das fontes e estilos de impressão do Windows!

Se o seu sistema é grande demais, não se preocupe com o comando RUN. Ele executará uma programa do Windows (Word Viewer) e não do MS-DOS, isto é, será usado a memória do Windows (RAM Estendida/Expandida) para rodar o Word Viewer, sem prejuízo algum para o Clipper (RAM base/memória convencional/primeiros 640Kb RAM). Esta assertiva já foi testada com programas grandes compilados com o RTLINK, nativo do Clipper, com sucesso!

 

Funciona com qualquer versão do Clipper!!!

Funciona com qualquer versão do Windows usando o WordPad!

Funciona com qualquer versão do Windows usando o Word Viewer 7.1!

 

Livre de Royalties! Você poderá usar em todos os seus sistemas, em quantas cópias quiser, sem pagar nada extra!

Você não precisará linkeditar nada no seu programa, nem instalar nada no computador do seu cliente ou no seu.

Inafortunadamente, não é possível uma solução simples para inserção de imagens, sem embargo, é possível SIM e um exemplo é apresentado no arquivo TST.PRG de exemplo que acompanha o download.

DICA PARA IMPRESSORAS MATRICIAIS: Imprima nas fontes DRAFT 10cpi ou DRAFT 12cpi para alcançar a velocidade normal de impressão do Clipper no MS-DOS com a sua impressora ou instale uma impressora do tipo GENÉRICA / SOMENTE TEXTO.

Atenção: Esta dica foi testada com sucesso em uma Epson Action Printer 2000. Para testar agora mesmo se funcionará com a sua matricial, selecione-a como "impressora padrão" e abra o WordPad para ver se aparece as fontes DRAFT na lista de fontes disponíveis do WordPad, elas devem ter um ícone de impressora (ao invés de um "T" de "True Type"), indicando que são fontes nativas da sua impressora.

 

Download inclui: ACS_RTF.CH e o programa exemplo TST.PRG (Tudo o que você precisará).

Desenvolvido por Anderson Cardoso Silva, webmaster deste site.

 

Veja agora alguns comentários sobre esta solução:

 

"Parabéns. É mais fácil do que eu imaginava. Além disso, os relatórios ficam mais profissionais.
Um abraço e obrigado."

---------------------------------------------------- Milton Xavier - Fortaleza/CE

 

"Prático e fácil. Permite gerar relatórios de qualidade sem a necessidade de saber a configuração da impressora."

---------------------------------------------------- Wanderson Ferreira - Belo Horizonte/MG

 

"Achei muito interessante, e resolverá meus problemas com impressoras USB e ainda poderei enviar fax via computador.
Excelente, obrigado."

---------------------------------------------------- Lauro Santana

 

VOLTOU A ESTAR A VENDA! 26/05/2004

A pedidos, a solução ACS_RTF.CH voltou a ser vendida!

 

 Valor do Investimento: R$ 499,00

Caso você tenha adquirido o TEXTO RICO e porventura queira o ACS_RTF.CH, basta depositar a diferença.

Nosso sistema de controle interno e entrega imediata consiste no seguinte:

 

1o. Imprimir e pagar o Boleto Bancário, preenchendo o formulário abaixo: 

 

2o. Preencha o formulário abaixo e clique em [Enviar confirmação]:

 

 

3o. Opcionalmente, além do 1o. e 2o. passo, envie uma mensagem de texto para o meu celular (82) 9994-8124, dizendo: "Imprimir com ACS_RTF.CH - Pagamento efetuado! ponha_seu_email_aqui".
 

Esclarecemos que o passo 3o. serve para a pronta verificação de emails recebidos com as informações do passo 2o., i.e., o passo 2o. é mais importante que o passo 3o. e portanto, não deve ser desconsiderado, até porque não posso adivinhar para qual email devo enviar o Texto Rico e, também, não solicitarei qualquer informação pelo celular que enviou a mensagem. Caso o comprador queira informar o seu email pelo celular, o mesmo deverá fazer a ligação do seu próprio aparelho. Agradeço a compreensão de todos.

Nossa conta de email nunca fica esgotada, todos os emails enviados são recebidos.

 

ATENÇÃO! As pessoas que necessitarem desta solução de caráter urgente devem realizar o depósito em dinheiro diretamente no caixa. Outras transações como DOC ou cheque não aparecem no extrato automaticamente e podem causar inconvenientes de mora (1 ou 2 dias para compensação ou mais para confirmação do depósito). Antecipe sua aquisição hoje mesmo.

 

 

Após fazermos a verificação pela internet com o banco, o download será enviado por email!

Agradeço o incentivo.

 

 

---