Here's the code behind the button
Code:
Private Sub Command2_Click()
10 On Error GoTo Err_Command2_Click
Dim stDocName As String
Dim iOption As Integer
20 stDocName = Me.Combo0.Value
'frame optPreview = 1 (Preview)
'frame optPrint = 2 (Normal)
30 iOption = IIf(Me.Frame3 = 1, acViewPreview, acViewNormal)
'Debug.Print iOption 'for debugging
40 DoCmd.OpenReport stDocName, iOption
Exit_Command2_Click:
50 Exit Sub
Err_Command2_Click:
60 MsgBox Err.Description
70 Resume Exit_Command2_Click
End Sub
Also note there i a frame (called Frame3) on the form which allows for Preview or Print
there are 2 options
'frame optPreview = 1 (Preview)
'frame optPrint = 2 (Normal)
Hope this helps