Jag skulle vilja komma åt funktionen att förhandsgranska ett formulär (inkl data) via VBA. Jag kan inte hitta något om det någonstans men nog borde det väl gå. Någon som vet?

Aktuellt formulär:
<code>
Private Sub Command65_Click()
On Error GoTo Err_Command65_Click

DoCmd.RunCommand acCmdPrintPreview


Exit_Command65_Click:
Exit Sub

Err_Command65_Click:
MsgBox Err.Description
Resume Exit_Command65_Click

End Sub
</code>
Annat formulär:
<code>
Private Sub Command66_Click()
Dim MyForm As Form
On Error GoTo Err_Command66_Click
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, "Form2", True
DoCmd.RunCommand acCmdPrintPreview
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Command66_Click:
Exit Sub

Err_Command66_Click:
MsgBox Err.Description
Resume Exit_Command66_Click

End Sub
</code>

Tack Andreas för hjälpen!

Det är dock så att jag har ett obundet formulär så om jag kör den första koden som du angett så kommer inte informationen med i förhandsgranska... Koden du föreslog hittade jag men det gick som sagt inte...

Däremot så ditt andra alternativ ändrade jag lite i och då funkade det! Om man har de förutsättningar som jag beskriver så kör följande kod istället för Andreas alternativ 1:

Dim myform As Form
Set myform = Screen.ActiveForm
DoCmd.SelectObject acForm, myform.name, True
DoCmd.RunCommand acCmdPrintPreview

Tack för hjälpen!