[Resolvido]Não aparece botão para impressão

Boa tarde
Tenho um relatório que funciona perfeitamente.
Decidi incluir nele um "Botão" para impressão do mesmo.
Acontece que não consigo fazer a visualização deste botão e consequentement não consigo imprimir este relatório.
Utilizo o access 2010.
O que estou fazendo de errado.
Agradeço desde já a sua ajuda.

Abraços

Marcelo

Amigão, veja nesse tópico uma sugestão a qual postei ao amigo Dilson, não consegui fazer aparecer o botão para impressão durante a visualização do relatório no access 2010 daí utilizo essa saída, que esta me atendendo a contento...

http://maximoaccess.forumeiros.com/t449-resolvidobarra-de-ferramenta-num-report-popup

Sds,


Pablo

Bom dia Pablo

Acessei o local que me indicastes, mas poderias me descrever melhor aonde coloco os comandos indicados?

Abraço

Marcelo

Você está abrindo o relatório em modo Relatório ou em modo de impressão? Modo de impressão não permite clicar em nada.

Estou abrindo em modo relatório.

Amigão o que vc me perguntou antes:

o Código:

Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl

' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)

With cmbRightClick

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Impressão Rápida"

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Selecionar Impressora"

' Add the Page Setup... command.
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Configurar Página"

' Add the Mail Recipient (as Attachment)... command.
Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Enviar como anexo no e-mail"

' Add the PDF or XPS command.
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Salvar como PDF/XPS"

' Add the Close command.
Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Fechar Relatório"
End With

Set cmbControl = Nothing
Set cmbRightClick = Nothing

Faça a execução passar por ele, numa tela de Splash, na abertura de um formulário principal, numa função, basta o VB ler o código uma vez...

Ele esta setado para criar o menu chamado: AtalhoRelatorio

Na configuração do seu relatório, nas propriedades do mesmo, no item Barras de Menus de Atalho, coloque o nome do menu "AtalhoRelatorio"...

Como funciona:

Você ira colocar um botão para visualizar o relatório (eu coloco como pop up), quando vc abrir o relatório, clique com o botão direito do mouse que o menu será apresentado...

Comentário:

Achei que os usuário teriam problemas para assimilar a função, mas foi muito bem aceito, possibilitando a seleção da impressora e geração de PDF do relatório visualizado...

Bem espero que lhe ajude...

Sds,


Pablo

Ok, vou experimentar e volto a te dar retorno.

Obrigado por enquento.

Abraço

Marcelo

Grande Pablo

Funcionou muito bem, fiquei muito satisfeito com a sua solução.

Obrigado e parabéns.

Abraço

Marcelo

Valeu amigão, obrigado pelo retorno...

Como dizia Dada Maravilha... "Toda problemática, tem um solucionática!!!!"

Para quem quizer saber como fica vai ai um print screen da tela...

Desculpe chamar novamente Pablo.

Acontece que num programa funcionou muito bem.

Foi incluir em outro programa e estou recebendo o erro na linha:
Dim cmbRightClick As Office.CommandBar = O tipo definido pelo usuário não foi definido.

Aonde estou errando?

Abraço

Marcelo

Surgiu um outro probleminha.
Estou utilizando uma função para não abrir o fundo do access qdo rodo meus programas.
Acontece que com esta função, clico na tecla direita do mouse e ele não abra a sua função....

Abraço

Marcelo

O problema do erro consegui resolver, apenas não resolvi o problema qdo uso a função para não aparecer o fundo access.
Pelo que vi na imagem que vc enviou, também não faz aparecer o fundo do access. Podes me dizer como faz?

Abraço
Marcelo

Amigão conseguiu esconder a janela do access???

Segue o exemplo que o amigo JPAULO me forneceu...

Em um módulo cole o código:

Global Const SW_HIDE = 0
Global Const SW_SHOW = 1

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

E depois de seu formulário inicial chame a função com a constante respectiva

Sds

Pablo

Boa tarde Paulo

Somente não entendi quando falas para "E depois de seu formulário inicial chame a função com a constante respectiva"?
Como faço isto?

Abraço

Marcelo

Desta maneira:

No seu formulário de splash por exemplo, chame essa função a partir do abrir do form...

'OCULTA JANELA ACCESS
Call FSetAccessWindow(SW_HIDE)

Sds,


Pablo

Coloquei no "Open" de meu formulário inicial e não consegui fazer funcionar.
Continua aparecendo o fundo do access.

Coloca logo após a chamada da função:

DoCmd.Restore

....

Não sei o que está aontecendo, mas com estes comando o programa até parou de rodar.
Eu utiliza um outro exemplo para esconder janela do access,que me foi enviado pelo JPaulo, descrito abaixo:
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

Mas com esta função não consigo fazer aparecer a sua função de impressão.

Só um pitaco que pode dar certo, quem sabe e resolver esse problema

Porque não torna a janela do access transparente? Fica igual como se escondida e quem sabe, resolve?

Veja este exemplo do Grande Criquio

http://maximoaccess.forumeiros.com/t865-formularios-e-janela-do-access-transparente

Boa idéia

Vou tentar e dou retorno.

A função até funciona, mas notei que esconder o fundo fica bem melhor.

Você colocou op valor em zero?
Call AccessTransparente(0) e fica igual ao mesmo código de esconder a janela