Solution
This issue occurs because DIAdem is not pulling the latest scaling or zoom from the VIEW Panel.
To avoid this:
- Activate the VIEW sheet of interest with View.Sheets(x).Activate where x is the sheet index.
- Insert a WndShow("VIEW") command before transferring the VIEW sheet to the REPORT Panel.
- This forces DIAdem to update the scaling to the latest values.
The script should resemble the following:
Call View.Sheets(1).Activate
Call WndShow("VIEW")
Call ScriptStart(ResourceDrv & "VwLayTrans", "VWTransViewRep", False)
Report.ActiveSheet.Name = View.Sheets(1).Name