RESOLVIDO RUN-TIME ERROR 438

JLAUROSOUZA 29/03/2011 11:32:12
#369572
Esta dado este erro na linha Abaixo:


OLE1.object.ActiveSheet.PrintOut Copies:=1, Collate:=True


o metodo [Ô]ActiveSheet.PrintOut[Ô] Deveria Existir no [Ô]object[Ô], mais naum existe, como resolvo isso?

Arquivo com Erro Anexo, o Erro é na impressao.
EDERMIR 29/03/2011 16:22:41
#369618
Provavelmente uma das referências está errada para sua necessidade.
JLAUROSOUZA 29/03/2011 16:24:57
#369619
é Amigo EDERMIR, isso eu tô ligado, mais qual?

eu tô kerendo é saber o q estou realmente errado, pq ja tentei de tudo q eu sapi e naum consigo.

Help!!!!
JLAUROSOUZA 29/03/2011 16:45:40
#369621
Amigos, Descobrir que o Projeto Funciona para arquivos de Excel, mais do word naum.

alguem sabe pq?
MARCELO.TREZE 29/03/2011 17:04:22
#369624
porque activesheet é celula ativa, e o word não tem celula.
JLAUROSOUZA 29/03/2011 17:05:55
#369625
BLZ Marcelo!!!

Amigo, Voce sabe como posso Imprimir um documento do word exibido em um objeto de recipiente OLE?
MARCELO.TREZE 29/03/2011 17:26:57
#369630
vc pode imprimir direto

No Menu Projects| References selecione a opção : Microsoft Word 9.0 Object Library e clique no botão OK.

No formulário padrão insira um botão de comando(cmdimprimir) e a seguir digite o código abaixo no evento click do mesmo 

Private Sub cmdimprimir_Click() 
Dim word As New word.Application
With word
  .Documents.Open [Ô]c:    este    este.doc[Ô]
  .Visible = False
  .PrintOut
  .Quit wdDoNotSaveChanges
End With
Set word = Nothing

End Sub



No código criamos uma instância do objeto Word , abrimos o documento teste.doc , não permitimos a visualização do Word(.Visible = False) , começamos a impressão(.PrintOut) e saímos sem salvar(.Quit wdDoNotSaveChanges)
JLAUROSOUZA 29/03/2011 18:03:01
#369633
Resolvido amigos, ao invez de utilizar um objeto OLE utilizo uma WebBrowser, com isso resolvi todos meus problemas.

anexo um projeto simple.
Tópico encerrado , respostas não são mais permitidas
Voltar