Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

Meu aplicativo trabalha com o Access oculto com a função abaixo:

Código:

Global Const SW_HIDE = 0
Declare PtrSafe 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

Nunca precisei visualizar relatórios, mas agora estou com essa necessidade, no entanto ao abrir com o comando abaixo abre atrás da tela devido a estar com o Access oculto, saberiam como contornar essa situação?

Código:

DoCmd.OpenReport strNomeRelFuncPrinter, acViewPreview, , , acDialog

Simples, basta desocultar o Access.

No evento "ao abrir" do relatório

Código:


'desocultando
Call FSetAccessWindow(255)

No evento "ao fechar" do relatório

Código:


'ocultando
call FSetAccessWindow(SW_HIDE)

Outra possibilidade é abrir o relatório como janela independente (pop-up) e janela restrita. Essas propriedades ficam na guia "outra" da folha de propriedades.

Olá DamascenoJr,

Muito obrigado pelo retorno.
Tentei das duas formas, mas infelizmente nenhuma funcionou...

Parafraseando o membro Alexandre Neves: "não façamos o que já está feito".

Anexe um pequeno exemplo com estrutura similar ao seu banco original. Assim conheceremos melhor como está estruturado seus objetos e a ajuda será mais objetiva.

Concordo contigo, vou separar essa parte e depois posto...
Abraços

Eloirp, algum avanço?

Aguardamos retorno...

Olá Damasceno, infelizmente não houve avanço...
as soluções apontadas não resolveram o problema e ainda não consegui encontrar uma...

Olá Eloirp

Eu uso este código num módulo e funciona pra mim

Código:

Sub OpenReport(ReportName As String, Optional View As Integer, Optional _
    FilterName As String, Optional WhereCondition As String)

    Dim loFormArray() As String
    Dim loForm As Form
    Dim intCount As Integer
    Dim intX As Integer
    
    For Each loForm In Forms
        If loForm.Visible Then
            ReDim Preserve loFormArray(intCount)
            On Error Resume Next
            loFormArray(intCount) = loForm.Name
            'loForm.Visible = False
            intCount = intCount + 1
        End If
    Next
    
    DoCmd.OpenReport ReportName, acPreview, FilterName, WhereCondition
    DoCmd.RunCommand acCmdZoom100
    Do While IsVisible(acReport, ReportName): DoEvents: Loop
    
    For intX = intCount - 1 To 0 Step -1
        Forms(loFormArray(intX)).Visible = True
    Next

End Sub

Function IsVisible(intObjType As Integer, strObjName As String) As Boolean
Dim intObjState As Integer
    intObjState = SysCmd(acSysCmdGetObjectState, intObjType, strObjName)
    IsVisible = intObjState And acObjStateOpen
End Function

No form faço a impressão desta forma:

Código:

OpenReport ("NomeRelatorio")

Saludos

Olá Franklim,

muito obrigado pelo help!

Testei e dá erro no módulo:

IsVisible

'Sub' ou "Function' não definido!

Adicionar ao modulo

Código:

Function IsVisible(intObjType As Integer, strObjName As String) As Boolean
Dim intObjState As Integer
    intObjState = SysCmd(acSysCmdGetObjectState, intObjType, strObjName)
    IsVisible = intObjState And acObjStateOpen
End Function

Eloirp, algum avanço aqui? A dica do FranklinJSP resolveu?

Aguardamos...