How can I setup a macro to print preview reports at 66%

[davesaint86]

I setup a macro to open (print preview) a report and setup the RunCommand to Zoom the report to 75%. 75% is still too big. 50% is too small. 66% seems to be perfect. There is not a customized Zoom selection feature under RunCommand. Does anyone know of a solution to resolve what I'm trying to do which is(when I select a command button I want my report to open up in the print preview mode at 66%)?

 

[jfischer]

This is somewhat undocumented, but works:

Private Sub Preview_Click()
  Dim stDocName As String

  On Error GoTo Err_Preview_Click

  stDocName = "rptMyReport"     'Specify report name
  DoCmd.OpenReport stDocName, acPreview
  Reports(stDocName).ZoomControl = 66  'Open preview at 66%

Exit_Preview_Click:
  Exit Sub

Err_Preview_Click:
  MsgBox "Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
  Resume Exit_Preview_Click    
End Sub

 

[jfischer]

Sorry. You wanted a macro solution. In a Module, add a new function as follows.

Function CustomZoom(iZoomPercent As Integer) As Boolean
  Dim stDocName As String

  On Error GoTo CustomZoom_Err
  CustomZoom = True
  stDocName = "rptMyReport"     'Specify report name
  DoCmd.OpenReport stDocName, acPreview
  Reports(stDocName).ZoomControl = 66  'Open preview at 66%

CustomZoom_Exit:
  On Error Resume Next
  Exit Function

CustomZoom_Err:
  CustomZoom = False
  MsgBox "Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
  Resume CustomZoom_Exit
End Function

Then, in your macro, add a new line with an action RunCode and function name: CustomZoom(66)