[Resolvido]Relatorio Não Imprime Imagem no Cabeçalho

Alguem já passou por isso?

Office 2003
O código: DoCmd.OpenReport "rp6Vnd1a", acViewNormal, "", "", acNormal .... não imprime o relatório (Não dá nenhuma mensagem de erro)

O código: ...acViewPreview..., visualiza o relatório normal, e quando uso o Ctrl+P ele imprime.

Tentativas até agora para solucionar o problema:
O relatório não tem nenhum formato: >
Passei os antivirus Avast e Avira: nada encontrado
Reinstalei o Office 2003, continuou o mesmo problema
Testei no Office 2010, mesma coisa
Outros fronts que até agora estavam funcionando normal, agora o mesmo problema.

Teste em outro PC:
Instalei um front mais antigo, funcionou normal
Instalei este front, deu o mesmo problema
Abri o front antigo que tinha funcionado normal, agora não funcionou, deu o mesmo problema

A unica coisa nova que inclui (exceto muitas alterações no VBA) foram as Dlls para salvar em PDF (do Lebans)
Exclui as Dlls e os modulos pertinentes: continuou o mesmo problema.

Vou continuar com os testes, mas se alguem puder dar uma idéia, agradeço muito.

Fica difícil assim opinar algo, mas se é só esse front, experimente importar tudo para uma nova BD. Por vezes resulta.

Outra situação que também pode tentar se a anterior não der certo:

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000266

Mas faça sempre um backup antes de utilizar a aplicação acima.

Muito simples, com menos instruções;


'imprime direto
DoCmd.OpenReport "rp6Vnd1a", acNormal

'visualiza na tela
DoCmd.OpenReport "rp6Vnd1a", acViewPreview

Amigos,
Fiz a reparação do Windows XP SP3, o problema continua
Só para constar,está instalado o SP3 do Office 2003

Vieira,
Já tinha feito a importação dos obj. para um novo BD: não resolveu
O mesmo problema está dando nos fronts antigos, que até então funcionavam perfeitamente, nos quais nada foi alterado.
Vou aplicar o Access Database Mechanic, conforme me indicou.

JPaulo,
Já tinha lido um tópico respondido por vc., aconselhando o código com a redução, e coloquei-os em alguns relatórios, mas o problema continua.

Agradeço a atenção, e continuo tentando....

Esta instrução não imprime direto ?

DoCmd.OpenReport "rp6Vnd1a", acNormal

Então o problema não é do seu Office, garanto-lhe.

Boa noite, Jr Wano

E o código de impressão é lido?
Cumprimentos,

Boa Noite Alexandre
Sim o código de impressão é lido, pois aparece a cx.imprimindo...
Só que não vai nada para a impressora


Amigos,
ACHEI O PROBLEMA:
Todos os relatórios (mais de 150) tem a logo da Empresa, com exceção de uns 4 ou 5
O problema está no código abaixo, o qual funciona normal a bastante tempo, de repente começaram os problemas,

Evento ao Abrir do relatório: =rpLogo()

Public Function rpLogo()
DoCmd.Maximize
Screen.ActiveReport.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)
End Function

Testei direto:
Private Sub Report_Open(Cancel As Integer)
Me.ImLogo.Picture = "E:\3300TERC TRABALHO\WanoSRV\Logomarca.jpg"

e tambem assim:
Me.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)

Ambos funcionaram

Então o problema está aqui: Screen.ActiveReport.ImLogo.Picture =

Esse código me é de grande utilidade, então peço a ajuda de vcs. para que eu possa corrigi-lo e continuar usando uma Public Function.

Novamente, JrWano

Se a imagem é sempre a mesma, coloque a imagem directo no relatório.
Cumprimentos,

Alexandre,

A Imagem não é a mesma, é uma sistema só para vários Clientes (cada qual com sua Logo)

E pra complicar é multi Empresa, em dois Clientes o front esta na matriz e nas filiais

O caminho da logo fica gravado na tabela de Cadastro da Empresa

O que está difícil é que o código está correto, pois visualiza normal e imprime com o Ctrl+P

Abraços,

Então se fica gravado no cadastro da empresa, não seria mais fácil ter essa ligação feita no evento do cabeçalho do Relatório, indo buscar o caminho da imagem ao form de cadastro?

Vieira,

Não sei se entendi direito sua sugestão, mas veja se é isso:

No cabeçalho do relatório > Ao formatar: = rpLogo()

Public Function rpLogo()
DoCmd.Maximize
Screen.ActiveReport.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)
End Function


Fiz o teste e não funcionou, continua não imprimindo.

Abraços,

A ideia era mais ou menos essa, agora penso que o problema poderá estar no screen.activeReport, uma vez que você já detectou que funciona sem essa chamada, embora não atenda ao que pretende.

Eu uso um form cadastro para os clientes e o logo é inserdo no form cadstro através de um controle imagem. Na tabela fica o caminho, dando a oportunidade de o cliente localizar o logo, inseri-lo e ou altera-lo. Depois, para cada relatório é chamado através do caminho armazenado na tabela.

Vieira,

Obrigado pela atenção, continuo aqui tentando...
Estou sem alternativas, qualquer sugestão é muito bem vinda

você já tentou fazer direto sem o Screen.ActiveReport ?

no evento ao formatar e ao mesmo tempo no evento ao imprimir


Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Me.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)
End Sub

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
Me.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)
End Sub

Ricardo,

Testei como sugeriu e funcionou sim, mas só no evento ao formatar já é suficiente.

Mas preciso usar o Screen.ActiveReport, pois são muitos os relatórios e teria que criar um módulo para cada um.

O front está com 180 forms e mais de 100 reports e cresce a cada dia, estamos nos esforçando para não dividi-lo

Já estamos aqui colocando a função em cada relatório, mas será apenas um paliativo, continuamos tentando resolver com o Screen

Vieira,

Usei seu programa "Referencias" (Copia as Referencias ao directorio da minha base de dados), e retornou 4 Dlls: dao360.dll, MSACC.OLB, stdole2, e VBE6.DLL

Quando as Dlls estão na mesma pasta do front, é necessário registra-las ?

A pergunta póde parecer fora do foco do post, mas estamos tentando o que for para resolver o problema de impressão

Achamos uma alternativa para substituir o screen,
Public Function rpLogo()
Reports!rp6Vnd1a.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)

mas precisamos de ajuda pra fazer o código referenciando o nome do Reports:
acho que seria algo parecido com isso:

No evento ao abrir do relatório: =rpLogo(NomeReports)

Public Function rpLogo(???? As ????) As ????
DoCmd.Maximize
???????.ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)
End Function

Nosso prazo está esgotado, então espero continuar contando com a ajuda dos amigos

Amigo Walter, eu não tinha entendido a sua duvida no inicio.

Veja se é isto;


Num modulo:

Public Function rpLogo(strName As String)
'By JPaulo ® Maximo Access
DoCmd.Maximize
Dim rpt As Report

Set rpt = Reports(strName)

rpt!ImLogo.Picture = DLookup("[cmhLogo]", "[E]", "[CdE] = " & Forms![Menu]!CdE)
End Function


No evento VBA ao formatar no cabeçalho do seu relatorio;

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
rpLogo ("SeuRelatorio")
End Sub

JPaulo,

Funcionou muito bem.

Agradeço muito a vc. e a todos que contribuíram neste post.

Um grande abraço a todos

Obrigado pelo retorno amigo, o forum agradece.

Amigão

As DLL's são para viajar na pasta da aplicação. Só isso. Não precisam de registro.

Grande Abraço