|
|
Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Reports are being opened in Preview mode.
There is code in the open event.
I use docmd.maximize at the end of the open event
Report partially opens in magnified font then flickers then opens to fill
the screen in a small font.
I tried turning echo off at the beginning of open then on after the
docmd.maximize - no difference. I tried putting the docmd.maximize at the top
of the open event - no difference. Any ideas?
Here is an example:
Private Sub Report_Open(Cancel As Integer)
On Error GoTo ER
Dim i As Long
DoCmd.Echo False
If Nz([Forms]![frmReportSelection].[Checklist], "") = "" Then
Me.txtChecklist.ControlSource = "='All Checklists'"
Else
Me.txtChecklist.ControlSource =
"=[Forms]![frmReportSelection]![Checklist].[Column](1)"
End If
' Calculate Included Audits for heading
i = GetIncluded() 'This runs a SQL command
Me.Included.ControlSource = "=" & Eval(i)
' Calculate Excluded Audits for heading
i = GetExcluded() 'This runs a SQL command
Me.Excluded.ControlSource = "=" & Eval(i)
DoCmd.Maximize
DoCmd.Echo True
Exit Sub
ER:
DoCmd.Echo True
MsgBox Err.Description, , "Report_Open"
End Sub
|
|
|