BBran said:
I cannot get that to work either, any ideas?
Shift f2 dont' work for me either. I not aware of a keyboard shortcut in
2007.
However, why not code your own?
You ahve to add ONE line to every reprot.
so, in the reports keydown even...add:
Private Sub Report_KeyDown(KeyCode As Integer, shift As Integer)
Call MyZoom(KeyCode, shift)
End Sub
Then, create a standard code module. Lets call it basRZoom
Simply paste in the follwing code:
Option Compare Database
Option Explicit
Sub MyZoom(Mykey As Integer, shift As Integer)
Dim zoomList As Variant
Static zPtr As Integer
Dim bolchange As Boolean
On Error GoTo MyZoom_Error
zoomList = Array(0, acCmdZoom25, acCmdZoom50, acCmdZoom75, acCmdZoom100,
acCmdZoom150, acCmdZoom200)
If zPtr = 0 Then zPtr = 3
If shift And acCtrlMask Then
bolchange = True
Select Case Mykey
Case vbKeyUp
zPtr = zPtr + 1
If zPtr > UBound(zoomList) Then
zPtr = 1
End If
Case vbKeyDown
zPtr = zPtr - 1
If zPtr = 0 Then
zPtr = UBound(zoomList)
End If
Case Else
bolchange = False
End Select
If bolchange Then
DoCmd.SelectObject acReport, Screen.ActiveReport.Name
DoCmd.RunCommand zoomList(zPtr)
Mykey = 0
End If
End If
On Error GoTo 0
Exit Sub
MyZoom_Error:
Exit Sub
End Sub
Now, when viewing a report opened in print preview, the ctrl up arrow, and
the ctrl-down arrow key will zoom in or out....
