[Resolvido]Ocultar flash de impressão

Olá pessoal!

Tenho uma aplicação que cria documento pdf em massa. Quando executo a ação, enquanto o código está trabalhando, fica aparecendo aquela mensagem flash padrão informado que o computador está imprimindo.

Tem como ocultar aquela mensagem?

grato

Olá Ronaldo

Aqui está o que deseja:

Em um módulo básico:

Código:


Option Compare Database
Option Explicit
Private Declare PtrSafe 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 PtrSafe Function InvalidateRect Lib "User32" ( _
    ByVal hwnd As Long, _
    ByRef lpRect As Long, _
    ByVal bErase As Long _
        ) As Long
Private Declare PtrSafe Function UpdateWindow Lib "User32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function GetDesktopWindow Lib "User32" () As Long
Private Declare PtrSafe Function IsWindow Lib "User32" _
         (ByVal hwnd As Long) As Long

'' Module level declarations here to SendMessage, etc...
'' Code on form to output pdf file
'fncScreenUpdating state:=False
'DoCmd.OutputTo acOutputReport, , acFormatPDF, RptFullPath
'fncScreenUpdating state:=True
'' Function to suppress "Printing" window
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


Quando for imprimir (gerar os arquivos .PDFs)

DoCmd.OutputTo acOutputReport, "NomeRelatorio", acFormatPDF, Caminho\NomeArquivo.PDF"
fncScreenUpdating State:=True

{ }'s

Balem

Obrigado pela atenção, mas não funcionou.

Criei um módulo com o código e chamei a função onde me orientou, mas não deu.

Poste o código que colocou, as duas partes, para eu analisar

Aguardo...

O código no módulo mantive como orientou.

No form onde solicito a criação de pdf é uma função de repetição. Simplesmente ao código que uso, acrescentei a linha que chama a função.

Do While Not rs.EOF
   idMatriculaAluno = rs("idMatricula")
   nomeAluno = rs("nomeAluno")
   contadorEnvio = contadorEnvio + 1
   msgEnvio = "Gerando e Salvando Boletim " & contadorEnvio & " de " & contaEmail & "."
   Me.txtMsg = msgEnvio
   ArquivoBoletim = Left(nomeAluno, InStr(nomeAluno, " ") - 1) & idMatriculaAluno & ".pdf"
   DoCmd.OpenReport nomeDoRelatorio, acViewPreview, , "idMatrícula=" & idMatriculaAluno, acHidden 'Abre o relatório devidamente filtrado e oculto
   DoCmd.OutputTo acOutputReport, nomeDoRelatorio, "PDFFormat (*.pdf)", strDestinoBoletins & ArquivoBoletim, False ' Gera arquivo pdf do relatório.
   fncScreenUpdating State:=True
   DoCmd.Close acReport, nomeDoRelatorio 'Fecha o relatório
   rs.MoveNext
Loop

Verifique isso:

O PtrSafe na declaração é usado no windows 64, se for 32 (x86), retire ele.

retire essa linha, pois creio não precisar dela, já que tem  a imagem do recibo  no formulário:
DoCmd.OpenReport nomeDoRelatorio, acViewPreview, , "idMatrícula=" & idMatriculaAluno, acHidden 'Abre o relatório devidamente filtrado e oculto
Dica: Use o relatório apenas para imprimir,  exibir na tela somente nos formulários.

Experimente tirar essa linha, pois creio  que não precisa:
DoCmd.Close acReport, nomeDoRelatorio 'Fecha o relatório

Teste, retorne se conseguiu.

Ainda não funcionou!

Então, disponibilize uma parte do teu projeto com 3 registros, para imprimir os 3 pdfs.

tabela, formulário e relatório.

Bom dia Noob

No meu Windows 10 64, e com o Office 2013 32, também continua a aparecer aquela mensagem flash padrão, depois de aplicar a sua dica.

Obrigado

Olá Assis

Digo o mesmo para ti, meu amigo.

Disponibilize um exemplo com alguns registros para eu poder testar.

Aguardando...

Balem

Olá Noob

Aqui está o meu exemplo

O código da sua Função está no Módulo "Impressao"

Obrigado

Amigos

Eu usei essa função a alguns anos.

Na época  pesquisei no google e encontrei ela.

Para o que eu queria, para a impressão de um único registro,

funcionou perfeitamente.

Agora, tentei usá-la pra vários registros e também não deu certo.

Sugiro que procurem no google, mas em ingles, dificilmente irão encontrar em portugues.

{ }'s

EDITANDO: Achei esse exemplo, vejam se funfa pra vocês.

access.mvps.org/access/api/api0037.htm

copiar e colocar no navegador

Balem

Não consegui. Mantive como está. não achei nada para resolver.