ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание узких полей печати.
10 сообщений из 10, страница 1 из 1
Задание узких полей печати.
    #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:22
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #39039851
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Видимо, вы задали собственную переменную по имени Application, которая мешает вам обратиться собственно к Application
...
Рейтинг: 0 / 0
31.08.2015, 16:44
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #39039868
Konstantin_RV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konstantin_RV
Гость
Собственных переменных с таким именем нет.
...
Рейтинг: 0 / 0
31.08.2015, 17:02
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #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:45
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #39039928
Konstantin_RV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konstantin_RV
Гость
Приложение - SCADA- система WinCC 7.3. В нем необходимо создать отчет в Excel формате. Отчет создал, но хочется по крупнее, а для этого надо задать поля.
...
Рейтинг: 0 / 0
31.08.2015, 17:51
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #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, 17:56
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #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
31.08.2015, 21:14
| Ответить | Цитировать | Написать  
Задание узких полей печати.
    #39040489
Konstantin_RV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konstantin_RV
Гость
Спасибо всем откликнувшимся.
Приложение установлено на другом ПК, поэтому ActiveSheet взял из макроса.
Поместил свойство .PageSetup сразу после создания файла и все заработало.
В чем разница, от того что было, так и не понял.
Все спасибо.
...
Рейтинг: 0 / 0
01.09.2015, 13:10
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание узких полей печати.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39039928&tid=2155807]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 15ms
total:  142ms
созд. / загр.: 142ms
x
x
Закрыть


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