
Как известно картинки масштабируются без сохранения пропорций.
Попытался решить эту проблемку
Присоедененую BaseFieldDB.odb зарегистрировать. Полный текст макросов на форме BINDATA в BaseFieldDB.odb
Как это работает:
Сначала на форме опрашивается поле ID чтобы определить активную запись
oForm = muDoc.DrawPage.Forms(0)
IdField = oForm.findColumn("ID")
IdValue = oForm.getString(IdField)
получаем рисунок и пишем его на диск
Подробнее