Antonio . Old Tmetafile +This change solve in my brother printer.
.......
METHOD PaintMeta() CLASS TPreview
local aSizes
.....
// nAspect := ::nHorzSize() / ::nVertSize()
aSizes:=::oDevice:GetPhySize()
nAspect:= aSizes[1]/aSizes[2] // changes for Zoom .