Getting form to enter print preview on currently applied filters

[jaywan91]

So I have this form "frmMain3" that I am trying to get to open print preview with filters I have already applied when I click on a button "Print". Is there a way to do that? Here is my code so far:

Private Sub Print_Click()

Dim myform As Form
 Set myform = Screen.ActiveForm
    DoCmd.SelectObject acForm, myform.Name, True
    DoCmd.SelectObject myform, acPreview
    DoCmd.SelectObject acForm, myform.Name, False
 
End Sub

I keep getting a Compile Error: Type mismatch

 

[missinglinq]

Perhaps

DoCmd.SelectObject myform, acPreview

should be

DoCmd.SelectObject myform.Name, acPreview

as well?

Linq ;0)>

 

[jaywan91]

Perhaps

DoCmd.SelectObject myform, acPreview

should be

DoCmd.SelectObject myform.Name, acPreview

as well?

Linq ;0)>

I changed my code to:

Private Sub Print_Click()

Dim myform As Form
    Set myform = Screen.ActiveForm
    DoCmd.SelectObject acForm, myform.Name, True
    DoCmd.SelectObject myform.Name, acViewPreview
    DoCmd.SelectObject acForm, myform.Name, False
 
End Sub

And I'm getting:

"Run-time error '13':
Type Mismatch"