печать из VBA

[11laschenov]

ребят как программно из VBA открыть окно предварительной печати?

[wladfm]

Предварительный просмотр или диалоговое окно печати? И для печати чего именно: карты либо подготовленные данные

[11laschenov]

Предварительный просмотр или диалоговое окно печати? И для печати чего именно: карты либо подготовленные данные

есть компоновка карты, т.е. на карте мы взяли отдельный ее кусок, нужно распечатать эту компоновку, можно предварительный просмотр,можно диалоговое окно печати

[wladfm]

Предварительный просмотр:
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()

Правда я не тестировал. Может не те команды выбрал. Так что проверте

[11laschenov]

метод не найден ругаясь Command =, а последняя строка выделена красным

[wladfm]

не дописал ещё...
для предварительного:
u.SubType = 6
для диалогового окна:
u.SubType = 7

это после 3-й строки кода... проверил - всё работает

[11laschenov]

блин, все равно ругается на отсутствие метода, может чего-то у меня в скрипте нехватает

[11laschenov]

вот сама проблема

[wladfm]

я написал пример для .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

попробуйте так... хотя у меня ругнулся на метод

[11laschenov]

дааа, ругается на метод, в VBA в arcgis вообще можно открыть диалоговое окно? сколько не лазил по инету ничего не нашел