печать из VBA
-
- Новоприбывший
- Сообщения: 7
- Зарегистрирован: 18 окт 2016, 11:21
- Репутация: 0
печать из VBA
ребят как программно из VBA открыть окно предварительной печати?
-
- Участник
- Сообщения: 69
- Зарегистрирован: 04 июл 2016, 16:02
- Репутация: 8
Re: печать из VBA
Предварительный просмотр или диалоговое окно печати? И для печати чего именно: карты либо подготовленные данные
-
- Новоприбывший
- Сообщения: 7
- Зарегистрирован: 18 окт 2016, 11:21
- Репутация: 0
Re: печать из VBA
есть компоновка карты, т.е. на карте мы взяли отдельный ее кусок, нужно распечатать эту компоновку, можно предварительный просмотр,можно диалоговое окно печатиwladfm писал(а):Предварительный просмотр или диалоговое окно печати? И для печати чего именно: карты либо подготовленные данные
-
- Участник
- Сообщения: 69
- Зарегистрирован: 04 июл 2016, 16:02
- Репутация: 8
Re: печать из VBA
Предварительный просмотр:
Dim Command As ICommandItem
Dim u As New UID
u.Value = "{119591DB-0255-11D2-8D20-080009EE4E51}"
Command = gApp.Document.CommandBars.Find(u)
If Not Command Is Nothing Then Command.Execute()
Диалоговое окно печати:
Dim Command As ICommandItem
Dim u As New UID
u.Value = "{119591DB-0255-11D2-8D20-080009EE4E51}"
Command = gApp.Document.CommandBars.Find(u)
If Not Command Is Nothing Then Command.Execute()
Правда я не тестировал. Может не те команды выбрал. Так что проверте
Dim Command As ICommandItem
Dim u As New UID
u.Value = "{119591DB-0255-11D2-8D20-080009EE4E51}"
Command = gApp.Document.CommandBars.Find(u)
If Not Command Is Nothing Then Command.Execute()
Диалоговое окно печати:
Dim Command As ICommandItem
Dim u As New UID
u.Value = "{119591DB-0255-11D2-8D20-080009EE4E51}"
Command = gApp.Document.CommandBars.Find(u)
If Not Command Is Nothing Then Command.Execute()
Правда я не тестировал. Может не те команды выбрал. Так что проверте
-
- Новоприбывший
- Сообщения: 7
- Зарегистрирован: 18 окт 2016, 11:21
- Репутация: 0
Re: печать из VBA
метод не найден ругаясь Command =, а последняя строка выделена красным
-
- Участник
- Сообщения: 69
- Зарегистрирован: 04 июл 2016, 16:02
- Репутация: 8
Re: печать из VBA
не дописал ещё...
для предварительного:
u.SubType = 6
для диалогового окна:
u.SubType = 7
это после 3-й строки кода... проверил - всё работает
для предварительного:
u.SubType = 6
для диалогового окна:
u.SubType = 7
это после 3-й строки кода... проверил - всё работает
-
- Новоприбывший
- Сообщения: 7
- Зарегистрирован: 18 окт 2016, 11:21
- Репутация: 0
Re: печать из VBA
блин, все равно ругается на отсутствие метода, может чего-то у меня в скрипте нехватает
-
- Новоприбывший
- Сообщения: 7
- Зарегистрирован: 18 окт 2016, 11:21
- Репутация: 0
-
- Участник
- Сообщения: 69
- Зарегистрирован: 04 июл 2016, 16:02
- Репутация: 8
Re: печать из VBA
я написал пример для .net просто...
http://edndoc.esri.com/arcobjects/9.1/C ... s_Find.htm
http://edndoc.esri.com/arcobjectsonline ... mapids.htm
Sub test()
Dim Com As ICommandItem
Dim u As New UID
u.Value = "esriCore.MxFileMenuItem"
u.SubType = 7
Com = Document.CommandBars.Find(u)
Com.Execute
End Sub
попробуйте так... хотя у меня ругнулся на метод
http://edndoc.esri.com/arcobjects/9.1/C ... s_Find.htm
http://edndoc.esri.com/arcobjectsonline ... mapids.htm
Sub test()
Dim Com As ICommandItem
Dim u As New UID
u.Value = "esriCore.MxFileMenuItem"
u.SubType = 7
Com = Document.CommandBars.Find(u)
Com.Execute
End Sub
попробуйте так... хотя у меня ругнулся на метод
-
- Новоприбывший
- Сообщения: 7
- Зарегистрирован: 18 окт 2016, 11:21
- Репутация: 0
Re: печать из VBA
дааа, ругается на метод, в VBA в arcgis вообще можно открыть диалоговое окно? сколько не лазил по инету ничего не нашел
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 38 гостей