[Resolvido]Não exibir mensagem de gravação ou centraliza-la.

Boa noite.
Gostaria de saber se tem como não exibir a mensagem de gravação desta linha de comando VBA Access.
DoCmd.OutputTo acOutputReport, "relatorioumped", acFormatPDF, strLocal, False
Porque ela aparece descentralizada ou se possivel centralizar a sua exibição?
Obrigado...

Ivair

Bem vindo ao fórum.

Experimente:

Docmd.SetWarnings False
DoCmd.OutputTo acOutputReport, "relatorioumped", acFormatPDF, strLocal, False
Docmd.SetWarnings True

Abraços

Boa tarde Balem

Obrigado pela resposta, mas infelizmente não deu certo.
Eu estou tentando resolver, mas se vc tiver outras dicas eu agradeço.

Abraços...

Ivair

Copie e anexe a imagem da mensagem.

Abraços

Boa Tarde Balem

Pelo que eu entendi vc quer saber o que está escrito na Msg.
Então aparece o caminho aonde está sendo gravado o arquivo PDF.

Obrigado...

Abra o relatório.

Quando aparecer a mensagem, aperte a tecla PrintScreen, isso irá colocar a imagem da tua tela na memória do computador.

Abra o Paint e cole essa imagem que está na memória, apertando a tecla shift(mantenha ela apertada) e a tecla V.

Uma vez que apareceu a imagem no Paint. salve-a.
Comprima a imagem usando um programa para zipa-la.
Pode usar o Winrar, mas escolha a opção zip.
Logo abaixo da página onde você digita tuas mensagens, tem 2 botões.
O primeiro você escolhe o arquivo zipado e o segundo, você faz o envio para o site.
Assim que ele tiver sido enviado só irá aparecer o nome do arquivo.

Então é só enviar a mensagem que o anexo vem junto.

A mensagem a que amigo se refere é a caixa de diálogo de impressão que alerta que está imprimindo. Essa não tira desabilitando as mensagens porque é uma ação do Windows, a mesma que aparece quando mandamos imprimir qualquer documento em qualquer programa.

Boa tarde Criquio e Balem
Creio que é isso mesmo que Vc escreveu porque a mensagem aparece e some rapidamante. Não dá nem para fazer como o Balem falou de apertar o PrintScrn.
Se for assim eu acho que não dá nem para centraliza-la, pq ela aparece meio no canto da tela.
Outra coisa sobre como colocar em REDE o programa que eu fiz no Access 2007 para outros usuarios usarem, como eu sou novato preciso abrir um tópico sobre esse assunto, como eu deve proceder.
Obrigado...

Para colocar o access na Rede, existem vários post sobre isso aqui no fórum.

Clique no Buscar ali em cima e escreva Access em rede.

Quanto a mensagem, eu ainda não desisti, estou procurando algo aqui nos meus alfarrábios.

Abraços

Balem
OK, vou buscar sobre o assunto de Access em Rede.
Pergunta: quanto a esse topico que eu abri deixo ele em aberto, até vc ver se descobre alguma solução?
Obrigado...
Abrços

Talvez seja possível via alguma API do Windows fazer isso. Eu mesmo nunca tive que me preocupar com isso.

Exatamente Criquio.

Eu tinha o exemplo disso, mas infelizmente não o encontrei, porém encontrei o site de onde eu tinha pego.

Aqui está.

Abraços

Boa tarde
Entao nao está funcionando essa API no meu Programa.
Vou Explicar colocando os códigos.

BOTAO NO FORM 1

Private Sub Comando34_Click()
If Form_PEDStatus1sub.STATUS1 = "Liberado" Then
DoCmd.OpenForm "formemailCDO" ' ABRE O FORM 2 AONDE TEM CODIGO PARA GERAR O PDF.
Form_FormEmailCDO.GerarPDFAnexarPedido ' AO ABRIR ELE JA GERAR O ARQUIVO PDF
Else
MsgBox "Não será possível enviar o pedido Nº " & Format(Form_PEDStatus1sub.PEDNO, "000000") & "." & " Ele ainda está bloqueado.", vbInformation, "Aviso..."
End If
End Sub


SEGUE O CODIGO PARA GERAR O ARQUIVO PDF NO FORM2

Public Sub GerarPDFAnexarPedido()
Dim strArquivo As String
Dim strLocal As String
Dim varPath As Variant
Dim varPath2 As Variant

strArquivo = "Pedido de Compra Nº- " & Form_PEDStatus1sub.PEDNO & ".pdf"
strLocal = CurrentProject.Path & "\Enviados\" & strArquivo
DoCmd.OpenReport "relatorioumped", acViewPreview, , "pedno = " & Form_PEDStatus1sub.PEDNO, acHidden


DoCmd.OutputTo acOutputReport, "relatorioumped", acFormatPDF, strLocal, False

DoCmd.Close acReport, "relatorioumped"

varPath = Split(strLocal, "\")
For i = 0 To UBound(varPath)
varPath2 = varPath(i)
Next i
Me.TxtAnexo.AddItem strLocal & ";" & varPath2
End Sub

AQUI É A FUNÇAO PARA MINIMIZAR OU NAO EXIBIR A MSG- COLOQUEI ELA NO FORM 2

Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)

End Sub

Ivair

Se puder ler novamente o artigo do AccessWeb, verá que deverá criar um formulário oculto e nele colocar a função no time.
É justamente esse formulário oculto e seu timer que irá controlar a exibição (ou não) da mensagem.

Veja:

Private Sub Command0_Click()
On Error Resume Next
DoCmd.OpenForm "Form2" ' Formulário que conterá o evento timer
DoEvents: DoEvents: DoEvents
DoCmd.OpenReport "Sales by Category", acViewNormal
DoCmd.Close acForm, "Form2" ' aqui ele é fechado.
End Sub
where Form2 is the hidden form with the Timer event.

Abraços

Notem tambem que mesmo assim ainda pode aparecer a caixinha de diálogo de impressão. Mesmo que desapareça mais rapidamente do que o normal, como diz no próprio artigo.

Boa noite

Entao eu fiz igualzinho como esta explicado "imprimindo um relatorio" só que em outro BD, mas é como o Criquio falou a msg ainda aparece, no meu programa (BD) nao vai resolver. Outra duvida, o meu Form eu coloquei ele como oculto mas ele ainda aparece. Eu fiz o seguinte cliquei um botao direito em cima do icone do Form e depois cliquei em Ocultar esse Grupo, seria isso não é?
Meu Access é 2007, será que precisa mudar alguma coisa nas Propriedades do Form?

OBS:No meu programa não estou conseguindo resolver acho que vou deixar assim mesmo, paciencia. A msg aparece mas some rapidinho.

Abraços...

Ivair

Dê uma olhada aqui.

Abraços

Bom dia Balem Tudo Bem
Eu dei uma olhada no link que vc me passou, mas confesso que nao sei muito o que fazer. Eu fiz o seguinte copiei as funções e colei em um modulo eu acho que é isso, mas eu nao sei como usar essa rotina abaixo:

Sub PrintDirect()
fncScreenUpdating State:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
fncScreenUpdating State:=True
End Sub

-Deixa ele no modulo?
-Coloca ela em um Botao?
Obs. Eu deixei ela no modulo e coloquei ela em um botao, mas dá dando um erro, e o seguinte: Variável não definida.

Abraços...

Oi Balem
Me parece que essa rotina e para usar no Excel, é isso mesmo?

Sub PrintDirect()
fncScreenUpdating State:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1fncScreenUpdating State:=True
End Sub

Obrigado...

Ela pode ser usada em qualquer programa que tenha VBA. Basta alterar a linha que faz referência à planilha para a linha que exporta o seu pdf. No seu caso, crie um módulo com o restante do código e no seu formulário, aonde você exporta o pdf, coloque essa parte, tirando as linhas da Sub:

fncScreenUpdating State:=False
DoCmd.OutputTo acOutputReport, "relatorioumped", acFormatPDF, strLocal, False
fncScreenUpdating State:=True

O detalhe é que a caixinha do aviso continuará sendo exibida, mas sem o texto dentro dela.

Bom dia

Obrigado Balem e Criquio

Deu Certo, a mensagem sumiu nao está aparecendo nem em branco.
Agora vou dar uma olhada no Tópico Access em Rede, talvez eu vou precisar de ajuda de novo.

Deus os Abençoe...

Abraços..

Que bom que deu certo Ivair.

Valeu pelo retorno.

Por favor, post o código como ficou para outros poderem usufruir dele.

Boa sorte !!!

Bom dia

Então ficou assim

Em um módulo coloquei essas Funções

Option Compare Database

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
.
Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, _
lpRect As Long, ByVal bErase As Long) As Long

Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

----------------------------------------------

Public Function fncScreenUpdating(State As Boolean, Optional Window_hWnd As Long = 0)
Const WM_SETREDRAW = &HB
Const WM_PAINT = &HF

If Window_hWnd = 0 Then
Window_hWnd = GetDesktopWindow()
Else
If IsWindow(hwnd:=Window_hWnd) = False Then
Exit Function
End If
End If

If State = True Then
Call SendMessage(hwnd:=Window_hWnd, wMsg:=WM_SETREDRAW, wParam:=1, lParam:=0)
Call InvalidateRect(hwnd:=Window_hWnd, lpRect:=0, bErase:=True)
Call UpdateWindow(hwnd:=Window_hWnd)
Else
Call SendMessage(hwnd:=Window_hWnd, wMsg:=WM_SETREDRAW, wParam:=0, lParam:=0)
End If

End Function
----------------------------------------------------------------

Ai no Botao do meu form coloquei essa rotina.

Private sub Botao()

Dim strArquivo As String
Dim strLocal As String

strArquivo = "Pedido de Compra Nº- " & Form_PEDStatus1sub.PEDNO & ".pdf"
strLocal = CurrentProject.Path & "\Gerados\" & strArquivo
DoCmd.OpenReport "relatorioumped", acViewPreview, , "pedno = " & Form_PEDStatus1sub.PEDNO, acHidden

fncScreenUpdating State:=False

DoCmd.OutputTo acOutputReport, "relatorioumped", acFormatPDF, strLocal, False

fncScreenUpdating State:=True
DoCmd.Close acReport, "relatorioumped"
End sub

Obrigado...
Abraços...

Mais uma vez, agradeço o retorno

Reitero meus desejos de

Boa sorte!