[Resolvido]Adicionar botões de ferramenta em tela pop-up

Olá!
Será existe uma maneira de adicionar botões no relatório em janela pop-up?

Como eu coloquei o formulário para abrir neste tipo de tela, o relatório fica por trás, então ativei a opção também de abrir o relatório em tela pop-up.

O problema é que alguns botões como imprimir, exportar em pdf desaparecem. É possível incluir estes na tela?

Eu queria colocar o botão fechar, o de imprimir e o de exportar em pdf. Será que é muito difícil?

Danilo, Pelo que entendi, a sua necessidade é colocar os botões no relatório. Se for isso não tem nenhuma dificuldade é o mesmo processo dos formulários ....

boa noite meu amigo veja se ajuda:

Opa!

Ulisson é exatamente isso, eu gostaria de colocá-los juntos a janela. Apenas não queria colocar dentro do relatório para que, quando imprimir, ele não aparecer.

Eu vou dar uma olhada aqui nesse exemplo do meu chará...

Então....

Pelo exemplo parece ser bem fácil, mas como faz para imprimir só o conteúdo do "detalhe"?

Eu copiei e colei os seus botões para meu formulário, ativei o cabeçalho de relatório e até que dá certo quando coloca para visualizar. Mas se eu faço o mesmo a partir do fomulário daí não funciona. Nem os botões aparecem.

O botão de imprimir do meu formulário foi um colega nosso que fez para mim há muitos anos. Ele está assim:

Código:

Private Sub Comando288_Click()
DoCmd.OpenReport "clientes1", acPreview, , "CódigoCliente = " & Me("CódigoCliente")
End Sub

Amigo,

Selecione os botões e na folha de propriedades em na opção 'exibir quando' defina como 'somente tela', dessa forma não serão impressos com o conteúdo.




Abraços,

Só isso?? --'

Que coisa não? heheh!

Eu fiquei com tanta raiva que cabei seguindo outros caminhos. Mas como são muitos relatórios de formulários que eu vou fazer, nos outros eu vou tentar usar essa técnica. Assim que possível eu posto o resultado

--

Funcionou \o/

Só faltou uma coisa muito importante: Fazer o botão da impressora funcionar e do PDF aahahha!   

Eu vou dar uma pesquisada para ver se descubro....

Muito obrigado pessoal o/

Para gerar PDF utilizo uma macro associada ao botão da seguinte forma:



Abraços,

Para enviar para impressora:



Abraços,

Muito obrigado Ulison!

Eu imaginei que, se usasse simplesmente o Macro de Impressão iria imprimir tudo, assim como aconteceu antigamente. Mas este deu certo blzelinha!

O PDF eu já não encontrei esta ação que você me sugeriu. Eu uso a versão 2013, acho que ou tiraram ou está com outro nome. Daí eu achei um cód. em VB que funcionou. Seria mais legal se ele salvasse com o nome do cliente indicado no formulário. Mas isso é de menos. O cód. que achei foi esse:

Código:

DoCmd.OutputTo acOutputReport, "clientes1", acFormatPDF, strSaida, False, , , acExportQualityPrint

Do mais deu tudo certinhoo  

Amigo,

Tenta adaptar o código abaixo para salvar como o nome que você definir. Utilizo esse no sistema comercial de um cliente.

Qualquer dúvida estou aqui.

Código:

Dim strArquivo As String
Dim strLocal As String
 
strArquivo = "ORCAMENTO-Nº" & Me!IDORC & ".PDF"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "OrcamentoC", acViewPreview, , "IDORC=" & Me!IDORC, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "OrcamentoC", acFormatPDF, strLocal
 
'Fecha o relatório
DoCmd.Close acReport, "OrcamentoC"
Shell ("explorer C:\BigSystem\SysInteg\enviados"), vbMaximizedFocus

Abraços,

Obrigado Ulisson!

Mas eu só consegui fazer funcionar o comando de exportar e acho que para onde que vai. Agora o nome não consegui...

Mas é o de menos eu acho isso. Por enquanto acho que dá para deixar assim.

Por exemplo, esse "IDORC" eu não consegui entender onde que encaixa. Quando eu troco, fala que não foi possivel encontrar este campo. Acredito que ele quem controla o nome do arquivo

Amigo, bom dia!

"IDORC" é o campo chave da minha tabela de orçamento (nesse caso).

Sugestão:
strArquivo = "Cliente-nº" & CódigoCliente & ".PDF"

ou:
strArquivo = "Cliente " & nomedocampocliente & ".PDF"



Abraços,

Xi rapaiz eu não consegui mesmo assim em?!

Acho que cheguei no meu limite em access. Depois do o exportar "simples" em PDF, não estou conseguindo fazer mais nada la....

:/

Eu troquei o IDORC pelo CódigoCliente da minha tabela e depois tentei o que você e sugeriu e em todos os casos deu erro.

Não só isso, mas como também alguns botões de e-mail que eu queria fazer não estou conseguindo tambem, inclusive postei em outras sessões, o pessoal ajudou um monte, mas mesmo assim, ficou tudo parado no meu projeto.

Mas vou continuar tentando....

-
Desculpe minha ignorância no assunto mas eu tentei usar exatamente sua sugestão nesta linha:

Código:

strArquivo = "Cliente-nº" & CódigoCliente & ".PDF"

Porém, aparece a mensagem: O Access não pode localizar o campo "CódigoCliente"... em sua expressão

Amigo,

Seu relatório possivelmente é fonte de uma consulta que por sua vez é fonte de uma tabela. Veja se o campo "CódigoCliente" consta da consulta fonte do relatório.
Certifique-se também se esse é o nome do campo mesmo.


abraços,

Olá amigo!

Desculpa abusar da sua paciencia, mas ainda dá o tal erro. Tenho certeza que o nome do campo está certo, eu ja conferi. Pelo que eu entendi deveria ficar assim o cod:

Código:


Dim strArquivo As String
Dim strLocal As String
 
strArquivo = "ORCAMENTO-Nº" & Me!CAMPO CHAVE & ".PDF"
strLocal = CurrentProject.Path & "\NOME DA PASTA\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "NOME DO RELATORIO", acViewPreview, , "CAMPO CHAVE=" & Me!CAMPO CHAVE, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "NOME DO RELATORIO", acFormatPDF, strLocal
 
'Fecha o relatório
DoCmd.Close acReport, "NOME DO RELATORIO"
Shell ("explorer /caminho da pasta para onde vai o relatório/"), vbMaximizedFocus



CAMPO CHAVE = CódigoCliente
NOME DO RELATÓRIO = clientes1

Eu entendi certo?

Ola!
Embora eu não tenha conseguido por enquanto nomear automaticamente o nome do meu arquivo em pdf, eu vou colocar minha dúvida como resolvida visto que a dúvida principal foi solucionada, blz?

Muito obrigado Ulisson e "chará"reis!!!! hehehe  

Danilo,

Se possível me envio o projeto para que eu possa verificar pra ti.


Abraços,

Blz, Ulisson!

Eu vou postar aqui... Eu acho que dá para testar....

Muitissimo obrigado

Amigo,

Crie um diretório com o nome de "Gerados" no mesmo local onde está a aplicação.

Código:

On Error Resume Next
Dim strArquivo As String
Dim strLocal As String
 
strArquivo = [Nome do Cliente] & Format(Date, "ddmmyyyy") & Format(Time, "hhmmss") & ".PDF"
strLocal = CurrentProject.Path & "\Gerados\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "Clientes1", acViewPreview, , "CódigoCliente=" & CódigoCliente, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "Clientes1", acFormatPDF, strLocal
 
'Fecha o relatório
DoCmd.Close acReport, "Clientes1"
Shell ("explorer C:\SISTEMA\GERADOS"), vbMaximizedFocus 'coloque aqui o endereço onde será gerado o arquivo

Rapaiz vc num vai acreditar, mas aqui não funcionou.

Eu criei a pasta como vc falou e até criei outra em c>sistema>gerados

A pasta abre mas continua vazia....

---

Eu acho que entendi o que aconteceu. Você colocou no VB para ficar como arquivo oculto né?

Sem querer acabei descobrindo...rsss. Na verdade eu não faço ideia o que aconteceu, porque quando eu coloquei para gerar o arquivo, não aparecia em lugar nenhum, agora apareceu tudo kkkkk

Muito obrigado por sua ajuda viu

Bom dia,
Dê o assunto por resolvido.
Falta ainda o Resolvido neste:
http://maximoaccess.forumeiros.com/t19715-enviando-email-com-texto-automatico-e-formatado#146452

Dê seguimento ao pendente:
http://maximoaccess.forumeiros.com/t19476-dados-de-um-formulario-para-outro-automatico#144981

Ola!

Desculpe, achei que já tinha colocado...
(só coloquei e tirei sem querer depois)

Obrigado

Valeu pelo retorno ...