Introdução
Olá Pessoal, este é meu primeiro artigo no "Planeta Delphi" e o assunto a ser abordado será "Imprimindo Documentos do Word no WebBrowser" onde nós criaremos uma aplicação passo a passo, demonstrando este Recurso interessante e simples de se desenvolver.
Pré-requisitos
Destinado a todos níveis de conhecimento.
Visualizando e Imprimindo documentos do Word, usando
o componente WebBrowser
Criar uma Nova Aplicação:
Inserindo os Componentes a serem Usados
|
-
Insira um MainMenu
Deverá ficar da mesma forma que a imagem exibida.
Troque a Propriedade:
O Nosso Form ficará dessa Forma:
Troque as Seguintes Propriedades do Panel e tire o Caption do mesmo.
BevelOuter |
bvNone |
Height |
40 |
Inserindo o Componente TWebBrowser
|
-
Esse é o principal componente de nossa aplicação, apartir dele abriremos os documentos do Word e usaremos algumas funções para que Possamos configurar a página e imprimirmos o documento do Word aberto, apartir de nossa aplicação.
-
Não iremos aprofundar bastante nossos conhecimentos neste artigo sobre o componente WebBrowser, ele que é um componente muito poderoso e fácil de trabalhar, para quem não sabe este componente é muito usado para se criar Browser's (Navegadores de Internet) entre outras muitas Utilidades.
Selecionar o componente como nos mostra a figura e inseri-lo no Form.
Configurando o Componente OpenDialog1
|
Faça como nos mostra a figura acima, ou seja aplicamos um filtro ao OpenDialog1 para que ele só filtre arquivos do Word.
Ou seja ele chamará o Opendialog e quando você clicar em OK
ele abrirá o documento no WebBrowser do nosso Form.
Insira as Seguintes Funções
|
WBImprimir = Chama a caixa de diálgo para impressão do documento.
WBConfigurarPagina= Chama a caixa de piálogo para configuração da página.
Evento NavigateComplete2 do WebBrowser
|
-
Neste evento iremos colocar um comando para que quando o documento
for aberto, ou seja, "Navegação Completa" ele desative a visualização de
Caracteres inutilizáveis em nosso documento, ex: o "Símbolo de Parágrafo".
Vamos até o evento NavigaComplete2 do WebBrowser, e iremos inserir a seguinte linha de Código:
Evento Onclick do Botão "Configurar Página"
|
-
Neste evento chamaremos a função WBConfigurarPagina, para que seja aberto a caixa de Diálogo Configurar Página, então vá até o evento Onclick, e digite o seguinte código:
Evento Onclick do Botão "Imprimir"
|
-
Neste evento chamaremos a função WBImprimir, para que seja aberto a caixa de Diálogo para Impressão do documento, então vá até o evento Onclick, e digiteo seguinte código:
PRINT DA APLICAÇÃO E FONTE PARA DOWNLOAD
|
Bom pessoal, espero que vocês tenham gostado deste Artigo, é um artigo interessante e simples de se desenvolver, em breve estarei lançando outros Artigos e um Curso Online de como Criar um Navegador de Internet Avançado, passo a passo.
Qualquer dica ou crítica postem nos comentários.
Abração a Todos !!!!
Atenciosamente,
Kennedy Tedesco P.
Moderador de Conteúdo (www.planetaDelphi.com.br).
Email: Kennedy@delphi.eti.br
|