How can I let the code pause for user input

[cjamps]

I have the following code if a command button is pushed
DoCmd.OpenReport "RCE", acViewPreview
DoCmd.OutputTo acOutputReport, RCE, "SnapshotFormat(*.snp)", "C:\MyDocuments\" & DocketNumber & "RCE.PDF".

How can I make it pause to see if the user likes the preview in order to save it as a PDF file.

 

[RuralGuy]

Use a MsgBox.

 

[gemma-the-husky]

slip the blue bits in your code

DoCmd.OpenReport "RCE", acViewPreview

while isopen("RCE",acreport)
doevents
wend

if msgbox("Send as PDF",vbyesno) = vbno then exit sub

DoCmd.OutputTo acOutputReport, RCE, "SnapshotFormat(*.snp)", "C:\MyDocuments\" & DocketNumber & "RCE.PDF".

-------
isopen function

look at syscmd function

Function IsOpen(strName As String, Optional objtype As Integer = acForm)
    IsOpen = (SysCmd(acSysCmdGetObjectState, objtype, strName) <> 0)
End Function