Report Display

  • Thread starter Thread starter Burt
  • Start date Start date
B

Burt

Hi,

When I preview a report, it comes up, I guess you call it
in minimum mode. That is you see one whole page of the
report, then you have to click on the report to zoom in to
see the details.

Question:
Is there a way of having the report come up in the zoom
mode, and keep it there even if you click on the report?

Thanks in advance for any help,

Burt
 
I like to do this with code behind the report:


Option Compare Database
Option Explicit

Private Sub Report_Activate()
On Error GoTo ProcError

DoCmd.Maximize

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub

Private Sub Report_Deactivate()
On Error GoTo ProcError

DoCmd.Restore

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub
______________________

You should also include a Report_NoData event procedure to handle no records found:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ProcError

MsgBox "No records match this selection criteria.", 0, "Your title here"
DoCmd.CancelEvent

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub




Tom
_______________________________


Hi,

When I preview a report, it comes up, I guess you call it
in minimum mode. That is you see one whole page of the
report, then you have to click on the report to zoom in to
see the details.

Question:
Is there a way of having the report come up in the zoom
mode, and keep it there even if you click on the report?

Thanks in advance for any help,

Burt
 
-----Original Message-----
I like to do this with code behind the report:


Option Compare Database
Option Explicit

Private Sub Report_Activate()
On Error GoTo ProcError

DoCmd.Maximize

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub

Private Sub Report_Deactivate()
On Error GoTo ProcError

DoCmd.Restore

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub
______________________

You should also include a Report_NoData event procedure to handle no records found:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ProcError

MsgBox "No records match this selection criteria.", 0, "Your title here"
DoCmd.CancelEvent

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub




Tom
_______________________________


Hi,

When I preview a report, it comes up, I guess you call it
in minimum mode. That is you see one whole page of the
report, then you have to click on the report to zoom in to
see the details.

Question:
Is there a way of having the report come up in the zoom
mode, and keep it there even if you click on the report?

Thanks in advance for any help,

Burt


.
Tom,
Click to expand...

Thanks. I'm going to play with it now

Burt
 
Tom,

The command "DoCmd.Maximize" maximizes the report. But it
still mininizes the report when you click on the report.

Is there additional code I could use?

Burt
 
Hi Burt,

The report should not be minimized by clicking on it. It will be resized to fit the full page on
the screen, but it should not be minimized to the taskbar, unless you click on the minimize
window image in the upper right corner of the report.

I don't know of any way to disable the toggle between size to fit and 100%.


Tom
__________________________________


Tom,

The command "DoCmd.Maximize" maximizes the report. But it
still mininizes the report when you click on the report.

Is there additional code I could use?

Burt
__________________________________


I like to do this with code behind the report:


Option Compare Database
Option Explicit

Private Sub Report_Activate()
On Error GoTo ProcError

DoCmd.Maximize

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub

Private Sub Report_Deactivate()
On Error GoTo ProcError

DoCmd.Restore

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub
______________________

You should also include a Report_NoData event procedure to handle no records found:

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ProcError

MsgBox "No records match this selection criteria.", 0, "Your title here"
DoCmd.CancelEvent

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitProc
End Sub




Tom
_______________________________


Hi,

When I preview a report, it comes up, I guess you call it
in minimum mode. That is you see one whole page of the
report, then you have to click on the report to zoom in to
see the details.

Question:
Is there a way of having the report come up in the zoom
mode, and keep it there even if you click on the report?

Thanks in advance for any help,

Burt
 
Tom,

I don't believe I am explaining myself correctly. I
believe I'm talking about the zoom of the preview report.
Is there a way to control the zoom (i.e. have the report
come up as 150%, rather 100%) of the report preview when
opening the report?

Burt
-----Original Message-----
Hi Burt,

The report should not be minimized by clicking on it. It
Click to expand...
will be resized to fit the full page on
the screen, but it should not be minimized to the
Click to expand...
taskbar, unless you click on the minimize
 
Tom,

I don't believe I am explaining myself correctly. I
believe I'm talking about the zoom of the preview report.
Is there a way to control the zoom (i.e. have the report
come up as 150%, rather 100%) of the report preview when
opening the report?

Burt
will be resized to fit the full page on
taskbar, unless you click on the minimize
Click to expand...

To open the report from an event on a form to a specific Zoom, you can
use:

DoCmd.OpenReport "ReportName" etc...
DoCmd.RunCommand acCmdZoom150

I know of no way to prevent the user from clicking on the displayed
report and preventing it toggling between FitToWindow and it's Zoomed
size.

Look up VBA Help for the other Zoom sizes available.
 
Thanks Fred!

Tom
___________________________

Tom,

I don't believe I am explaining myself correctly. I
believe I'm talking about the zoom of the preview report.
Is there a way to control the zoom (i.e. have the report
come up as 150%, rather 100%) of the report preview when
opening the report?

Burt
will be resized to fit the full page on
taskbar, unless you click on the minimize
Click to expand...

To open the report from an event on a form to a specific Zoom, you can
use:

DoCmd.OpenReport "ReportName" etc...
DoCmd.RunCommand acCmdZoom150

I know of no way to prevent the user from clicking on the displayed
report and preventing it toggling between FitToWindow and it's Zoomed
size.

Look up VBA Help for the other Zoom sizes available.
 
Back
Top