Denunciar VBA acPreview vs acPages em VBA Postado Fevereiro 3, 2018 · Editado Fevereiro 3, 2018 por 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
VBA acPreview vs acPages
em VBA
Postado · Editado por 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