Ir para conteúdo
Fórum Script Brasil
  • 0

Gerar Arquivo Doc - Delphi 7 + Sql Server


lmroot

Pergunta

Bom dia pessoal, meu sistema gera os orçamento em quick report, eu estou querendo gerar esses orçamentos em arquivo DOC para enviar via email e meus fornecedores responderem nesse mesmo arquivo, onde eu posso achar alguma documentação que explique sobre esse assunto.

Obs,: estou usando Delphi 7 e SQLServer 2000

Att,

LMRoot.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest --felipe --
Bom dia pessoal, meu sistema gera os orçamento em quick report, eu estou querendo gerar esses orçamentos em arquivo DOC para enviar via email e meus fornecedores responderem nesse mesmo arquivo, onde eu posso achar alguma documentação que explique sobre esse assunto.

Obs,: estou usando Delphi 7 e SQLServer 2000

Att,

LMRoot.

//EXPORTAR PARA WORD
procedure TForm1.Button1Click(Sender: TObject);
        var
            ArquivoSalvar:olevariant; //local e nome para salvar arquivo
            s:olevariant; //facilitar trabalho
            back : olevariant;
begin
        msword := createoleobject('word.application'); //abre aplicativo
        msword.documents.add; //adiciona novo documento
                if MSWord.ActiveWindow.View.SplitSpecial <> 0 then
                   MSWord.ActiveWindow.Panes[2].Close;
                if (MSWord.ActiveWindow.ActivePane.View.type = 1) or
                   (MSWord.ActiveWindow.ActivePane.View.type = 2) or
                   (MSWord.ActiveWindow.ActivePane.View.type = 5) then
                   MSWord.ActiveWindow.ActivePane.View.type := 3;
        s := msword.selection; //variavel para facilitar trabalho
        MSWord.ActiveWindow.ActivePane.View.SeekView := 9; //habilita o cabeçalho
        s.typetext('Cabeçalho habilitado');
        msword.activewindow.activepane.view.seekview := 10; //habilita o rodapé
        s.typetext('rodapé habilitado');
        msword.activewindow.activepane.view.seekview := 0; //habilita o texto
        s.typetext('texto habilitado');
        msword.activedocument.PageSetup.Orientation := wdOrientLandscape;  //página em landscape
        s.Font.Name := 'Times New Roman'; //tipo de letra
        s.Font.Size := 12;    //tamanho de letra
        s.Font.Bold := True;    //negrito
        s.Font.italic := True;    //italico
        s.font.Subscript := false;      //subescrito
        s.font.Superscript := false;   //sobrescrito
        s.font.Underline := true;     //sublinhado
        s.font.color := clGreen;    //cor da letra
        s.paragraphFormat.alignment := wdAlignParagraphJustify; //alinha o texto a esquerda
                //esquerda=0, centro=1, direita=2, wdAlignParagraphJustify
        s.typetext(#9); //tab
        s.typeparagraph;
        s.tables.add(s.range,linhas,colunas); //cria tabela i linhas, j colunas
        s.tables.item(1).columns.item(2).setwidth(100,wdAdjustNone);
                //comprimento da segunda coluna sem modificar a posição do texto
        s.tables.item(1).cell(2,3).range.insertAfter('escrito na posição 2,3');
                //escreva na posição 2,3
//      s.cells.autofit; //alinha conforme coluna
        s.tables.item(1).cell(i,j).select; //seleciona celula i,j
        s.moveright;  //move para direita
        s.moveright;
        s.typetext('escrito fora da tabela');
        //notas de rodapé
//        s.footnotes.add(msword.selection.range,emptyparam,'texto');
        //notas de cabeçalho
//        s.endnotes.add(msword.selection.range,emptyparam,'texto');
        //comentário
//        s.comments.add(msword.selection.range,'texto');
//        s.PageSetup.TopMargin := 10;  //margem superior
//        s.PageSetup.leftMargin := 100; //margem esquerda
//        s.PageSetup.rightMargin := 80; //margem direita
//        s.PageSetup.BottomMargin := 60; //magem abaixo
        msword.application.visible :=true; //mantem visivel o documento word
        ArquivoSalvar := 'c:\teste.doc';
        MSWORD.ActiveDocument.SaveAs(arquivosalvar); //salva sem perguntar
//      msword.documents.save; //abre janela para salvar
//      msword.ActiveDocument.PrintOut(false); //imprime direto, sem perguntar
//      msword.ActiveDocument.PrintPreview; //vizualizar impressão
//        msword.Quit  // finaliza aplicação

nunca usei esse codigo mas deve ser util, altere a seu gosto

Link para o comentário
Compartilhar em outros sites

  • 0
Bom dia pessoal, meu sistema gera os orçamento em quick report, eu estou querendo gerar esses orçamentos em arquivo DOC para enviar via email e meus fornecedores responderem nesse mesmo arquivo, onde eu posso achar alguma documentação que explique sobre esse assunto.

Obs,: estou usando Delphi 7 e SQLServer 2000

Att,

LMRoot.

Exportando do Quick Report para word, HTML, excel e TXT

Na clausula uses, acrescente a unit QRExport

Exportando para HTML:

QuickReport.ExportToFilter(TQRHTMLDocumentFilter.Create('c:\teste.html'));

Exportando para DOC ou TXT:

QuickReport.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.doc'));

QuickReport.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.txt'));

Exportando para XLS:

QuickReport.ExportToFilter(TQRXLSFilter.Create('c:\teste.xls'));

Voce tambem pode usar o SaveDialog para salvar o quick report em pdf

if SaveDialog1.Execute then

QRCarteiraG.ExportToFilter(TPDFFilter.Create(SaveDialog1.FileName + COPY(SaveDialog1.Filter,6,4)));

Obs: O quick report na opção de salvar , pode adicionar automaticamente qualquer editor que estiver instalado no seu micro

exemplo:

QuickReport file (QRP)

Lotus 123 file (WK1)

Quattro File (WQ1)

Excell File (XLS)

Bitmap File (BMP)

JPEG File (JPG)

RTF File (RTF)

HTML File (HTM)

CSS2 File (HTM)

Adobe PDF File (PDF)

Todos esses editores estão instalados no meu micro e eles aparecem no quick report, me dando a opção de salvar o quick report em qualquer uma dessas extenções ... ok ?

Link para o comentário
Compartilhar em outros sites

  • 0

Só para complementar, cabe salientar que se faz necessário que estes filtros estejam disponíveis no QuickReport. Isto pode variar conforme a versão.

A versão que acompanha o D6 e D7 (Standard) possui apenas os filtros (componentes a serem adicionados ao form) para exportar TXT (TQRTextFilter), CSV (TQRCSVFilter) e HTML (TQRHTMLFilter). Do site do fabricante QUSoft:

"The Standard version of Quick Report 3 is distributed with Delphi 6 and 7 and C++Builder 6 as well as earlier versions of these products."

A versão Professional, esta sim, tem vários filtros (ref. QuickReport 4 Product Information):

"Output modes - reports may be sent directly to a printer, saved in document format for later viewing, or saved as HTML, PDF, XML, CSV, XL, WMF or ASCII format. HTML and PDF may be streamed for fileless output."

Obs: O quick report na opção de salvar , pode adicionar automaticamente qualquer editor que estiver instalado no seu micro

exemplo:

QuickReport file (QRP)

Lotus 123 file (WK1)

Quattro File (WQ1)

Excell File (XLS)

Bitmap File (BMP)

JPEG File (JPG)

RTF File (RTF)

HTML File (HTM)

CSS2 File (HTM)

Adobe PDF File (PDF)

Todos esses editores estão instalados no meu micro e eles aparecem no quick report, me dando a opção de salvar o quick report em qualquer uma dessas extenções ... ok ?

HDelphi, esta situação não tenho conhecimento, poderia informar que versão você utiliza e se há algum procedimento para viabilizar este recurso? Ou você tem instalado o plug-in eDocEngine da GNostice (que não acompanha a instalação do Delphi)?
Link para o comentário
Compartilhar em outros sites

  • 0
Só para complementar, cabe salientar que se faz necessário que estes filtros estejam disponíveis no QuickReport. Isto pode variar conforme a versão.

A versão que acompanha o D6 e D7 (Standard) possui apenas os filtros (componentes a serem adicionados ao form) para exportar TXT (TQRTextFilter), CSV (TQRCSVFilter) e HTML (TQRHTMLFilter). Do site do fabricante QUSoft:

"The Standard version of Quick Report 3 is distributed with Delphi 6 and 7 and C++Builder 6 as well as earlier versions of these products."

A versão Professional, esta sim, tem vários filtros (ref. QuickReport 4 Product Information):

"Output modes - reports may be sent directly to a printer, saved in document format for later viewing, or saved as HTML, PDF, XML, CSV, XL, WMF or ASCII format. HTML and PDF may be streamed for fileless output."

Obs: O quick report na opção de salvar , pode adicionar automaticamente qualquer editor que estiver instalado no seu micro

exemplo:

QuickReport file (QRP)

Lotus 123 file (WK1)

Quattro File (WQ1)

Excell File (XLS)

Bitmap File (BMP)

JPEG File (JPG)

RTF File (RTF)

HTML File (HTM)

CSS2 File (HTM)

Adobe PDF File (PDF)

Todos esses editores estão instalados no meu micro e eles aparecem no quick report, me dando a opção de salvar o quick report em qualquer uma dessas extenções ... ok ?

HDelphi, esta situação não tenho conhecimento, poderia informar que versão você utiliza e se há algum procedimento para viabilizar este recurso? Ou você tem instalado o plug-in eDocEngine da GNostice (que não acompanha a instalação do Delphi)?

Bem lembrado Micheus ... delculpe ..esqueci de dizer que tenho instalado no meu micro o

TExtraFilters for QuickReport para o delphi 5, 6 e 7, mas percebi que ele anexa ao quick report outros filtros alem dos que ele tem, dependendo do que estiver instalado no micro. ok ?

Obs : ele é shareware.

http://www.softpedia.com/progDownload/TExt...load-59076.html

http://www.torry.net/pages.php?s=86

http://www.waler.com/download.htm

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...