Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
lmroot

Gerar Arquivo Doc - Delphi 7 + Sql Server

Question

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.

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 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

Share this post


Link to post
Share on other 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 ?

Share this post


Link to post
Share on other 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)?

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148115
    • Total Posts
      643391
×
×
  • Create New...