- Código:
Private Sub DespFM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error GoTo Err
Me.Refresh
Dim stDocName As String
Dim Msg As String
Msg = MsgBox(" Que Deseja fazer? " & vbCrLf & " Clique (Sim) para imprimir " & vbCrLf & " (Não) para visualizar" & vbCrLf & " (Cancel) para sair", vbYesNoCancel + vbQuestion, "Opções")
Select Case Msg
Case vbYes
DoCmd.OpenReport "Rel_MapaDespesa", acViewNormal
Case vbNo
'DoCmd.RunCommand acViewPreview
DoCmd.OpenReport "Rel_MapaDespesa", acViewPreview
Case Else
End Select
Err:
End Sub
Utilizo este código para selecionar o modo de abrir o relatório.
é possível, em vez da box ter as opções "sim - não -Cancelar"
ter "Visualisar - Imprimir - Saír" ?
Luís Antunes