ник: Mak&S
Задача - напечатать адрес и название компании в строго определённом месте. Длина строки может быть от 40 до 200 символов. Выровнять по вертикали надо по нижнему краю. Стандартными методами это не сделать поэтому написал простенький код. Загвоздка только в методе MOVE - ругается на этом месте и всё тут - "Введённое значение не подходит для данного свойства"
'Company - название поля
'В свойствах поля Company поставить сжатие - Да
'x-левая граница контрола величина постоянная - находится экспериментально
'y-нижняя граница расположения контрола величина постоянная - находится экспериментально
Const x = 100
Const y = 100
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
TopNew = y + Company.Height
Company.Move x, TopNew
End Sub
|
В чём может быть дело?