[Resolvido]Barra de ferramenta num Report PopUp

Galera,

Existe alguma forma de posiocionarmos uma barra de ferramenta visivel dentro do relatório no modo pop up?

Já tentei de várias as formas... Colocando a barra de ferramenta na janela de propriedades, também pela IDE do VBA e nada, não consegui.

A visualização dos Forms e Reports no modo pop up é fantástica. A unica desvantagem é essa na visualização dos relatórios.

Se voce estiver chamando o relatoirio a partir do formulario.
Eu costumo fazer o sequinte,desabilito a funcao pop up do relatorio.E fecho o formulario ao abrir o relatorio.E abro o formulario novamente ao fechar o relatorio.

Boa dica Scandinavo!!

Usarei essa técnica, até onde eu descubra uma melhor.

Um outra alternativa
no evento do ao abrir do seu relatorio

fors!seuformulario.visible = false

no evento ao fechar
fors!seuformulario.visible = true

Eu havia iniciado este tópico em Maio do corrente ano e de lá para cá, fiz muitas experiências para tentar exibir um relatório em modo popup, mas, que pudesse conter a barra de ferramenta com o botão fechar, porque o relatório em modo popup o usuário só tem o X no canto superior direito para sair do relatório, além de ser meio deselegante é também confuso, pois o usuário sempre fica na dúvida se vai fechar só o relatório ou a aplicação inteira e o pior é que ele até poderá fechar tudo se der dois cliques como é de costume da maioria dos usuários ainda pouco familiarizado com a aplicação.

As soluções sempre estão muito próximas e para alcançá-las basta uma sacada:

Eu saquei algo muito simples, muito usado por todos que deu certo para este caso, veja:

- Faço uma consulta, da consulta faço meu relatório, copio todo o meu relatório e colo em um formulários.

Então:

Visualizo os dados do relatório exatamente como tal no formulário, no formulário coloco vários controles entre eles um botão pra mandar imprimir que manda o relatório direto para a impressora.

BINGO: Ficou profissional a coisa, dá um pouco de trabalho, mas, as interfaces do sistema em tempo de execução é ótima.

Abraço a todos.

Rapaz também queria essa função para o access 2010, no 97 tenho e funciona uma beleza... O meu problema era para emissão de umas OS que poderiam variar de impressora, algumas rotinas conseguia até mudar a impressora mas não configurar o tamanho do papel dai encontrei essa rotina a qual tenho usado (isso no 2010)

Ela configura e personaliza um menu de atalho, tem funcionado bem...

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

Pablo,

Testou no 2003?

No 2010 em modo popup, fica visível a barra na parte superior do relatório ou só aparece apertando o botão inverso do mouse?

Opa!

Não, não testei no 2003, na verdade até estou precisando do 2003....

Eu o uso no 2010, ele só aparece clicando no botão direito do mouse...