Задание размеров границ рабочего листа в Excel97

[Wasup!]

Некоторое время назад делал в Excel 97 макрос форматирующий лист и выставляющий его область печати. Один раз изменил область печати вручную и записал все действия в макрос, и из него вставил такой код:

Код: Выделить всё

With w.PageSetup
    .PrintArea = "a1:J10"
    .LeftMargin = 0.35
    .RightMargin = 0.35
    .TopMargin = 0.35
    .BottomMargin = 0.35
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape
End With

Сейчас в Excel 2000 метод .LeftMargin = 0.35 начал вызывать ошибку. Посмотрел в help`е, там написано, что размеры полей задаются в точках. И нужно использовать функцию.LeftMargin = Application.CentimetersToPoints(0.35).
Посмотреть, как было в Excel97, возможности нет. Может кто-то посмотреть, что написано про метод PageSetup.LeftMargin в help`е к Excel 97, в чем задаются размеры?
Есть ли в нем функция Application.CentimetersToPoints()?

[GSerg]

Есть.
И задавать точно так же надо в точках. Это было всегда.

[Wasup!]

Здравствуйте, продолжу здесь, чтобы не заводить новую тему, поскольку вопрос похожий.

Есть программа на VB, которая выполняет запрос к базе данных, сохраняет результат в книгу Excel и выполняет над ним форматирование. Для установки границ листа при печати используется примерно такой код:

Код: Выделить всё


Sub test()
Dim e   As Excel.Application
Dim b   As Workbook
Dim w  As Worksheet

Set e = Excel.Application
Set b = e.Workbooks.Add
Set w = b.Sheets(1)

With w.PageSetup
    .PrintArea = "a1:J10"
    .LeftMargin = e.CentimetersToPoints(0.35)
    .RightMargin = e.CentimetersToPoints(0.35)
    .TopMargin = e.CentimetersToPoints(0.35)
    .BottomMargin = e.CentimetersToPoints(0.35)
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape
End With

Set w = Nothing
Set b = Nothing
Set e = Nothing

End Sub


Все работало нормально, но сейчас начала выдаваться ошибка
на строке .PrintArea = "a1:J10": "1004 нельзя установить св-во printarea класса pagesetup"
На последующих строках то же самое, то есть при любой попытке задать свойство в pagesetup возникает ошибка.
Раньше программа выполнялась на компьютере с Excel 2000 (9.0 2812), сейчас Excel 2000 (9.0 6926 SP-3)
Скажите, в чем может быть ошибка? Может быть какие-то настройки запрещающие редактирование границ листа? Или не так установлено какое-то свойство объекта Application, Workbook, Worksheet?

[uhm]

Дурацкий вопрос, но все равно задам на всякий случай: есть ли у тебя хоть один принтер, установленный на данном компьютере?

[Wasup!]

Вопрос совсем не дурацкий. Нет, не установлен

А как лучше сделать проверку, установлен или нет принтер?

Код: Выделить всё

On error resume next
...
if err.number = 1004 then
msgbox "Не установлен принтер"
else
msgbox "Ошибка " & err.number & " " & err.description
end if

Или можно каким-то другим методом проверить наличие принтера, и в зависимости от этого выдать сообщение?

[alibek]

Если офис XP, то попробуй проверить Printers.Count.

[Wasup!]

Excel используется 2000 в нем такой коллекции нет.
Но сама программа на VB6.0, в нем есть коллекция Printers, member of class global. Подразумевает ли это, что в скомпилированном коде метод
printers.count будет работать вне зависимости от версии Excel и количетва установленных принтеров?