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