Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание узких полей печати. / 10 сообщений из 10, страница 1 из 1
31.08.2015, 16:22
    #39039827
Konstantin_RV
Konstantin_RV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Доброго дня.
Возникла проблема с заданием узких полей печати документа.
Моё приложение ругается "Object required:'Application'
Делаю через
Код: vbnet
1.
2.
3.
4.
5.
6.
With ActiveSheet.PageSetup
   .LeftMargin = Application.InchesToPoints(0.25)
   .RightMargin = Application.InchesToPoints(0.25)
   .TopMargin = Application.InchesToPoints(0.75)
   .BottomMargin = Application.InchesToPoints(0.75)
End With


Может кто подскажет, что нужно сделать? Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 16:44
    #39039851
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Видимо, вы задали собственную переменную по имени Application, которая мешает вам обратиться собственно к Application
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 17:02
    #39039868
Konstantin_RV
Konstantin_RV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Собственных переменных с таким именем нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 17:45
    #39039919
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Konstantin_RVМоё приложение ругается

что у вас за приложение?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 17:45
    #39039920
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
приложите тестовый файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 17:51
    #39039928
Konstantin_RV
Konstantin_RV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Приложение - SCADA- система WinCC 7.3. В нем необходимо создать отчет в Excel формате. Отчет создал, но хочется по крупнее, а для этого надо задать поля.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 17:56
    #39039932
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Так вам нужно вместо Application использовать объект, через который вы, собственно, подключились.

Непонятно тогда, кстати, откуда взялось ActiveSheet - на него в первую очередь должно было ругаться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 17:56
    #39039934
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Кусок кода, что вы предоставили - это из книги Excel. Вам видимо необходимо обратиться к Excel, как к серверу автоматизации , загрузить туда отчет и задать необходимые параметры.

ищите по форуму
Код: vbnet
1.
CreateObject("Excel.Application")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2015, 21:14
    #39040031
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Konstantin_RV, можете заменить на числа. Вопрос с ActiveSheet остается:
Код: vbnet
1.
2.
3.
4.
5.
6.
With ActiveSheet.PageSetup
   .LeftMargin = 18
   .RightMargin = 18
   .TopMargin = 54
   .BottomMargin = 54
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2015, 13:10
    #39040489
Konstantin_RV
Konstantin_RV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание узких полей печати.
Спасибо всем откликнувшимся.
Приложение установлено на другом ПК, поэтому ActiveSheet взял из макроса.
Поместил свойство .PageSetup сразу после создания файла и все заработало.
В чем разница, от того что было, так и не понял.
Все спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание узких полей печати. / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 147ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155807]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 14ms
total:  147ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]