Open Report at 150% Zoom

[M.A.Halim]

I want to Open a report at a zoom of 150%
I worte the following code but I Think I did some mistake!!!

Dim RptSalesPerformance As String
RptSalesPerformance = "Sales Performance"
DoComd.OpenReport RptSalesPerformance,AcViewPreview,,,150% 'This Referres to
the zoom I need.
But I think it shouldn't be this way, I tried to Play around this code but
couldn't.
Any Help?
Thanks A lot.

 

[Peter Hibbs]

Try -

Dim RptSalesPerformance As String
RptSalesPerformance = "Sales Performance"
DoComd.OpenReport RptSalesPerformance, AcViewPreview
RunCommand acCmdZoom150

HTH

Peter Hibbs.

 

[M.A.Halim]

Yes it worked Thanks Alot