VBA acPreview vs acPages

[PauloGuerra]

Exmos

Tenho o seguinte comando associado a um botão:

Private Sub Command182_Click()
On Error GoTo Err_Command182_Click

    Dim stDocName As String

    stDocName = "DESCRITIVO_RESUMO"
    DoCmd.OpenReport stDocName, acPreview (QUERO APENAS OBTER A 1ª PÁGINA)
    
            
Exit_Command182_Click:
    Exit Sub

Err_Command182_Click:
    MsgBox Err.Description
    Resume Exit_Command182_Click
    
End Sub

Mas preciso criar uma condição por forma a apenas obter a primeira página no comando "acPreview", ou seja tenho algumas páginas na pré-visualização e quero apenas obter a primeira.

 

thanks

Editado Fevereiro 3, 2018 por PauloGuerra