Open In Snap Shot Format?

[Bob]

Can this be altered so as it will open in Snap Shot Format:

Private Sub cmdPrint_Click()
If lstModify.value = "" Or IsNull(lstModify.value) Then
MsgBox "Please Select Invoice.", vbApplicationModal + vbOKOnly +
vbInformation
Exit Sub
End If
DoCmd.OpenReport "rptInvoiceModify", acViewPreview
End Sub

Thanks for any help........Bob

 

[JK]

Bob,

Private Sub cmdPrint_Click()

If lstModify.value = "" Or IsNull(lstModify.value) Then
MsgBox "Please Select Invoice.", _
vbApplicationModal + vbOKOnly _
+ vbInformation
Exit Sub
End If

DoCmd.OutputTo acOutputReport, "rptInvoiceModify", _
"Snapshot Format", "Invoice.snp", True

End Sub