[Resolvido]botão imprimir, visualizar cancelar

boa noite pessoal gostaria de fazer opções com três botões
imprimir, visualizar cancelar eu encontrei um que se era usado para salvar dados alterado mais não consegui adaptar em bd


desde já obrigado

Bom dia,

algo parecido com isso.

If MsgBox("Deseja imprimir esse documento ?" & vbCrLf & _
" Sim = Imprimir " & " Não = Visualizar " & " Cancelar = Cancelar", vbQuestion + vbYesNoCancel, Me.Caption) = vbYes Then

'Se sim, vai imprimir
strDocName1 = "SeuRelatórioAqui" ' nome do relatório
strFilter = "SuaChavePrimária=Forms!SeuFormulário!SuaChavePrimária" 'filtro aplicado no relatorio
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

'Se não, vai visualizar
Else
stDocName = "SeuRelatórioAqui"
strFilter = "SuaChavePrimária=Forms!SeuFormulário!SuaChavePrimária" 'filtro aplicado no relatorio
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
End If

AoErro:
Select Case err.Number
Case 3061: Resume Next
End Select


Obs....não testei !!

Bons estudos

bom dia Silvio farei o teste e retorno muito obrigado

boa tarde caro Silvio eu me perdi na opção cancelar como ficaria se for sim then
else
seria não
e a opção cancelar
como ficar


obs.: está opção estou usando para no menu para imprimir um relatório com a opção de visualizar antes

desde ja obrigado

O cancelar...simplesmente cancela qualquer ação do botão, ou seja, ela fecha e não imprime.

bom dia Silvio estou passando para te agradecer pela ajuda, mais um passo na frente com meu sistema graças a ajuda de vocês obrigado problema resolvido