[AccessD] Simple Print Preview Question - Why Asking question

You could always write a public sub:

Public Sub OpenReport(ReportName as String)
   DoCmd.OpenReport ReportName, acPreview
   DoCmd.Maximize
   DoCmd.RunCommand acCmdZoom100
End Sub

Then you only have to

Do a CTRL+H and replace every

DoCmd.OpenReport ReportName, acPreview

with

OpenReport(stDocName)



On Mon, Aug 30, 2010 at 3:45 PM, Bud Goss <bgoss711 at ameritech.net> wrote:
>
>
>
>
>
> Thanks to all for your posts.
>
> To answer Charlotte's question as to what I am trying to accomplish.
>
> I have an old database with print previews coded in about 30 locations in the database.
>
> The user now wants to have these print previews displayed at 100% magnification. I was trying to avoid making code changes in 30 places in this database.
>
> Looks like I am out of luck on this one.
>
> Thanks again for the help.
>
> Bud
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>