MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

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

    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 22/2/2011, 17:47

    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.


    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 22/2/2011, 17:50

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 22/2/2011, 17:56

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 22/2/2011, 18:28


    Muito simples, com menos instruções;


    'imprime direto
    DoCmd.OpenReport "rp6Vnd1a", acNormal

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 22/2/2011, 18:47

    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....



    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 22/2/2011, 19:44

    Esta instrução não imprime direto ?

    DoCmd.OpenReport "rp6Vnd1a", acNormal

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Instruções SQL como utilizar...
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 22/2/2011, 20:43

    Boa noite, Jr Wano

    E o código de impressão é lido?
    Cumprimentos,
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 22/2/2011, 21:19

    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.



    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 22/2/2011, 21:30

    Novamente, JrWano

    Se a imagem é sempre a mesma, coloque a imagem directo no relatório.
    Cumprimentos,
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 22/2/2011, 21:46

    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,

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 22/2/2011, 21:51

    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?
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 22/2/2011, 22:07

    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,
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 22/2/2011, 22:14

    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.
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 22/2/2011, 22:20

    Vieira,

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


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

    Mensagem  Convidad 22/2/2011, 22:25

    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

    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 23/2/2011, 00:59

    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

    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 23/2/2011, 01:14

    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
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 23/2/2011, 16:41

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 23/2/2011, 18:32

    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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano 23/2/2011, 19:26

    JPaulo,

    Funcionou muito bem.

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

    Um grande abraço a todos

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 23/2/2011, 19:48

    Obrigado pelo retorno amigo, o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Relatorio Não Imprime Imagem no Cabeçalho Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 23/2/2011, 19:50

    Amigão

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

    Grande Abraço

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:58