[Resolvido] word , DBCombobox do delphi 7 e impressão

[tomnascimento 0]

Boa noite amigos, sou novo no forum e iniciante em delphi. Tô precisando da ajuda de vcs.

Quero selecionar documentos do word, atraves de um combobox do delphi e imprimi-lo. Tenho seguido um post do forum num entanto da erro.

 

Segue o codigo e o erro: (o que acontece é que esse codigo compila, mas o DBCombobox não lista fica em branco)

 

unit Uficha;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,ShellApi,OleServer,ComObj,ExtCtrls,ADODB,Grids, DBGrids,DB;

 

type

Tfrmficha = class(TForm)

carta: TLabel;

ComboBox1: TComboBox;

Button1: TButton;

imprimir: TButton;

procedure Button1Click(Sender: TObject);

procedure BuscaListaArquivosPasta(pasta, nome : string);

procedure FormShow(Sender: TObject);

procedure imprimirClick(Sender: TObject);

 

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

frmficha: Tfrmficha;

 

implementation

 

{$R *.dfm}

procedure Tfrmficha.BuscaListaArquivosPasta(pasta, nome : string);

var

 

SearchRec: TSearchRec;

intControl: integer;

Name, tipo: string;

begin

intControl:=FindFirst(pasta + '\*' + nome + '*.*', faArchive,SearchRec);

if intControl = 0 then

begin

while (intControl = 0) do

begin

Name:=ExtractFileName(SearchRec.Name);

Tipo:=ExtractFileExt(Name);

 

if (Name <> '') and (tipo = '.doc') then

Begin

ComboBox1.AddItem(Name,Self);

end;

 

intControl:=FindNext(SearchRec);

end;

FindClose(SearchRec);

end;

end;

 

procedure Tfrmficha.FormShow(Sender: TObject);

begin

//BuscaListaArquivosPasta ('Documentos', '' );

BuscaListaArquivosPasta(ExtractFilePath(Application.Exename), '')

 

end;

 

 

procedure Tfrmficha.Button1Click(Sender: TObject);

begin

close;

end;

 

procedure Tfrmficha.imprimirClick(Sender: TObject);

Var WinWord, Docs, Doc: Variant;

arquivo : string;

begin

 

// Pega o nome do arquivo...

arquivo := ExtractFilePath(Application.ExeName) + Combobox1.Text;

 

// Cria objeto principal de controle

WinWord := CreateOleObject('Word.Application');

 

//Não Mostra o Word

WinWord.Visible := False;

 

// Pega uma interface para o objeto que manipula documentos

Docs := WinWord.Documents;

 

// Abre um Documento

Doc := Docs.Open(arquivo);

 

// Imprime

Doc.PrintOut(True);

// Fecha o Word

WinWord.Quit;

 

end;

 

end.

[Matheus Tavares 167]

Boa noite amigos, sou novo no forum e iniciante em delphi.

Primeiramente seja bem-vindo, espero que encontre auxilio para seus estudos aqui.

 

Tô precisando da ajuda de vcs.

Sem problemas, mas aqui é a seção de PHP. Algum moderador precisa mover este tópico para a area de Delphi.

 

Até mais.

[tomnascimento 0]

valeu amigo !