PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Criar Documento no Word definindo a tabulação #237674

15/06/2004

0

Estou tentando esportar para o word um relatorio de clientes com endereço e telefone:
Gostaria que no word aparece-se com tabulações, como no exemplo abaixo:

Jose Barbosa da Silva
Rua Tal, 525 ......................... 444-4444
Maria Barbosa da Silva
Rua G, 320 ........................... 444-2222

No exemplo acima não aparece, mas gostaria que o nome da rua começa-se a ser mostrado em baixo da segunda letra no nome do cliente.

Ou seja, tem que ter uma tabulação para iniciar o nome da rua, e uma tabulação para mostrar o numero do telefone.. Sendo que esta ultima deve ser precedida de pontos (.....)..

E o documento deve aparecer em duas colunas..
Como posso mudar o código abaixo para realizar este relatório.

[b:20298183a7]procedure[/b:20298183a7] TForm1.BitBtn2Click(Sender: TObject);
var
MSWord: Variant;
[b:20298183a7]begin[/b:20298183a7]
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.FontSize(8);//muda o tamanho da fonte
Tacliente.first;
[b:20298183a7]While[/b:20298183a7] not Tacliente.eof do
[b:20298183a7]Begin[/b:20298183a7]
MSWord.FontSize(8);
MSWord.insert(TaClienteNome.value+#13);
MSWord.FontSize(8);
MSWord.insert(9+TaClienteEndereco.value);
MSWord.insert(9 +Taclientefone.value+13); //tab mais o telefone
Tacliente.next;
[b:20298183a7]End;[/b:20298183a7]
MSWord.FileSaveAs(´c:\lixo\test.doc´, 3); //Salva o arquivo
[b:20298183a7]End;[/b:20298183a7]

OBS: uso [b:20298183a7]9[/b:20298183a7] para executar as tabulações..

Agora como posso definir o local dessas tabulações, com prenximento de pontos (....) , o texto em duas colunas..

Outra coisa. Do jeito que esta a cima, na hora de salvar no word, ele diz que não é um formato válido.. Como deixar um formato válido..

Aceita outras sugestões...
Desde já agradeço a atenção de todos.


Sistemp

Sistemp

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar