How to Get Print Scaling (Zoom) factor

[RobGodfrey]

I have been trying to adapt some code to get the print scaling/zoom factor from an existing worksheet named "48mm Classic Partition" that is normally hidden and part of a protected workbook and then using this to apply to a second worksheet (eg "AnotherSheet").

Please Login or Register  to view this content.

It gets stuck though after unhiding the 48mm worksheet and starting the PrintPreview (although its not clear exactly when) - then it will not continue unless I go into the VBA editor (eg by clicking on the VBA Editor Task Bar Tab) - when pressing Esc allows it continue. Any ideas?

[greyman007]

OldPrintScale = ActiveSheet.PageSetup.Zoom
LockWindowUpdate 0
Sheets("AnotherSheet").Activate
ActiveSheet.PageSetup.Zoom = OldPrintScale
I'm new to VBA but that looks like a circular reference