[Tasos]

Αλέξανδρε, έτσι:

• MyForm = Το όνομα της φόρμας
• ReportName = το όνομα της Έκθεσης

Private Sub cmdPrintPreview_Click()
    Dim strDocName As String
    strDocName = "ReportName"
    DoCmd.OpenReport strDocName, acViewPreview
    DoCmd.RunCommand acCmdZoom150
    '    Reports(strDocName).ZoomControl = 150  ' Ακαίρεοι αριθμοι  0 - 3000 +-( δεν υποστηρίζεται επίσημα )
End Sub

Αν η φόρμα είναι αναδυόμενη με τον παρακάτω κώδικα η συμπεριφορά των παραθύρων θα είναι πολύ καλύτερη:


Στη φόρμα:

Private Sub cmdPrintPreview_Click()
    Dim strDocName As String
    strDocName = "ReportName"
    DoCmd.Minimize  ' Ελαχιστοποίηση του παραθύρου της φόρμας
    DoCmd.OpenReport strDocName, acViewPreview
    DoCmd.RunCommand acCmdZoom150
    '    Reports(strDocName).ZoomControl = 152   ' Ακαίρεοι αριθμοι  0 - 3000 +-( δεν υποστηρίζεται επίσημα )
End Sub

Στην Έκθεση:

Option Compare Database
Option Explicit

Private Declare Function ShowWindow Lib "user32" ( _
        ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_RESTORE = 9&
Private Const SW_NORMAL = 1&
Private Const SW_MAXIMIZE = 3&

Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize  ' Μεγιστοποίηση του παραθύρου της Έκθεσης
End Sub

Private Sub Report_Close()
    On Error Resume Next
    'επαναφέρει το παράοθυρο της φόρμας από την ελαχιστοποίηση στην προηγούμενη μορφή
    ShowWindow Forms!MyForm.hwnd, SW_RESTORE    'SW_MAXIMIZE 
End Sub

Καλη συνέχεια!

Φιλικά
Τάσος