С наступающим!!!!

Возможно ли, установить фокус в поле "Количество копий" в окне "Печать" в 7.7?
Если можно - подскажите, пожалуйста, как?
Спасибо.

думаю, да. необходимо немного переписать соответствующий кусок ОС

(1) Не-е-е, в ось я не полезу.... А по-другому - никак?

(2) за диалог печати 1Ска не отвечает

(3) от наврал же, да? ходи в свойства ТабДокумента

не, не наврал. фокус в диалоге ОС - это дела диалога ОС

м.б. как-то эмуляцией клавиш или автоИтом..?

Свою форму показывай

Выводи диалог "Скока копий?!" при нажатии на Печать

А если каким-нить ресуросмейкером типа ресторатора - разобрать соответсвующую ДЛЛ и подправить что надо?

(8) А как убрать стандартное окно печати тогда (ну, чтобы спрашивало скока копий и печатало)?
(9) Какую ДЛЛ, каким "ресторатором" :(((((

напиши свой диалог печати млина

А как сделать в семерке кнопку быстрой печати (без диалога)?

(12) получи активный контекст, если контекст имеет тип "таблица", то .Напечатать(0)

(12) - не оно?

Напечатать(<?>);
Синтаксис:
Напечатать(<Флаг>)
Назначение:
Напечатать таблицу без предварительного просмотра (печать без открытия окна редактирования).
Параметры:
<Флаг> - необязательный параметр. Режим запроса диалога печати: 1 - запрашивать диалог печати (по умолчанию), 0 - не запрашивать.
Замечание:
Метод может использоваться при работе с таблицей в режиме ввода данных.

(14) ей кнопку надо...

(12) хе как это без диалога ? ;)) ну можно и без диалога
ЗЫ если принтер есть по умолчанию
Таб.КоличествоЭкземпляров(<?>)
Таб.Напечатать(<?>);

(16) какая разница то - шо кнопка шо диалог шо чо хочешь хоть на горячую клавишу

(15) - ну как бы мы не знаем что именно нужно ТС,
пусть на кнопку вешает свою процедуру в которой сформирует печатную форму, задаст количество копий, и дальше пользуя Напечатать(0) - свой вывод на печать нужного количества копий...

(18) можно на кнопку повесить вызов обработки, к ней получать активный контекст, ну и т.д. по тексту... Одна кнопка для бездиалоговой печати любых таблиц.

Тяжело после новогодней ночи....

Есть внешняя печ. форма (вызывается по кнопке из док-а).
Хочу: вывести печ. форму на экран и иметь кнопку, кликнув по которой - спросит скока копий и распечатает.
Получается, что:
на панель инструментов нужно воткнуть кнопку с диалогом (типа) кол-ва копий и печати, а во внешней форме убрать -

    Если Устройство = 0 Тогда
        ИсхТабл.Опции(0, 0, 0, 0, "ОпцииПечатиСчета", "ОпцииПечатиСчета");
        ИсхТабл.ПараметрыСтраницы(1,100,,5,5,5,5,,,,,);

        Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
            ИсхТабл.Защита(1);
        Иначе
            ИсхТабл.Защита(0);
        КонецЕсли;
        ИсхТабл.ТолькоПросмотр(1);

        ИсхТабл.Показать("Счет" + глНомерНаПечать(Докум));  
    Иначе  
        ИсхТабл.ПараметрыСтраницы(,,,,,,,,,1,,);
        ИсхТабл.КоличествоЭкземпляров(КолвоКопий);
        ИсхТабл.Напечатать(0);
    КонецЕсли;

(20) передавай через параметры в приоткрытии во внешку количество копий а потом после Таб.напечатать   ставишь статусвозврата(0) возврат

Процедура ПриОткрытии()
    
    Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
        
        Докум      = Форма.Параметр.Получить("Контекст");
        Устройство = Форма.Параметр.Получить("Устройство");
        КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
    
        Печать(Докум, Устройство, КолвоКопий);
        Статусвозврата(0);
        Возврат;
    КонецЕсли;
    
КонецПроцедуры // ПриОткрытии()

Ой, ждала-ждала пока вы меня ткнете носом - сама наваяла:

Процедура ПриОткрытии()
    
    КолВоКопий = 1;
    
    мСервис     = СоздатьОбъект("Сервис");
    РасшФормы     = СоздатьОбъект("РасширениеФормы");
    
    СтатусВозврата(0);

    ИмяФайла = "";
    
    Если (мСервис.АктивныйКонтекст(АктивныйКонтекст) = 1) Тогда
        Если (ТипЗначенияСтр(АктивныйКонтекст) = "Таблица") Тогда
            Если ВвестиЧисло(КолВоКопий,"Задайте количество копий",2,0,60) = 1 Тогда
                ТабДокумент = СоздатьОбъект ("ТабличныйДокумент");
                ТабДокумент.ЗагрузитьИзТаблицы (АктивныйКонтекст);
                ТабДокумент.Напечатать(0);
            КонецЕсли;
        Иначе
            Предупреждение("Нет открытой печатной формы.");
        КонецЕсли;
    Иначе
        Предупреждение("Для начала - откройте печатную форму.");
    КонецЕсли;
    
КонецПроцедуры // ПриОткрытии

Даже работает :)) Тока печатает - 2 шт.

+(23) Это внешняя форма, которая висит на кнопке, которая (кнопка) сидит в панели инстрУментов :)

А как получить уже установленные параметры?

ндаааа НГ ночь видать продолжается ... Оо

(26) А что плохо-то? Все работает :)))

Процедура ПриОткрытии()
    
    КолВоКопий = 1;
    
    мСервис     = СоздатьОбъект("Сервис");
    РасшФормы     = СоздатьОбъект("РасширениеФормы");
    
    СтатусВозврата(0);

    Если (мСервис.АктивныйКонтекст(АктивныйКонтекст) = 1) Тогда
        Если (ТипЗначенияСтр(АктивныйКонтекст) = "Таблица") Тогда
            Если ВвестиЧисло(КолВоКопий,"Задайте количество копий",2,0,60) = 1 Тогда
                АктивныйКонтекст.КоличествоЭкземпляров(КолВоКопий);
                АктивныйКонтекст.Напечатать(0);
            КонецЕсли;
        Иначе
            Предупреждение("Нет открытой печатной формы.");
        КонецЕсли;
    Иначе
        Предупреждение("Для начала - откройте печатную форму.");
    КонецЕсли;
    
КонецПроцедуры // ПриОткрытии

(23) собственно, все правильно сделала - как я в (13) и говорил.
что тебе еще получить-то надо?

(28) Картинку :)))
Да, нет - все, что хотела - есть.
Но (26)-ому не нравится. Интересно, что?

(29) видимо, он просто слегка перепил...

вопросы типа / (25) ...

(31) Ой! На себя посмотри :)))))))))))
Ну, ступила, разок. И чё?

Пока вы опять наливать не начали, скажите - какого размера иконки в 7.7?

16x16

(32) да ничо , бывает ;))
ЗЫ на работе не употребляю...

Всем - СПАСИБО!!!!!

PS Можете наливать и пить :)))))))))))))

(36) так какие тебе "уже установленные параметры" нжны были?

(37) Которые - "ПараметрыСтраницы" :))))
Уже разобралась.

Ребята, а подскажите мне, пожалуйста, где взять иконку принтера ту, что в стандартной панели лежит?

(39)
программа ResHacker
ей открывай длл в папке BIN программы 1С
Ищи там

можно просто ПринтСкрин и в паинте вытащить

(40) А в какой dll лежит стандартная панель?

(41) не помню, но там перебором быстро находится длл где все иконки

(42) Не могу найти :(

(34) 15 на 16 а не 16-16

(43) 1crcrus.dll
Bitmap
128
там полоса
в ней значки

(43)
+(45)
для редактирования советую програмку Image Edit от фирмы Borland
она даже проще чем паинт и умеет работать с файлами ico и cur - с прозрачным фоном

(45) Тама нету печати :(
Короче, дядьки, иконку я уже извратилась - сделала. А есть вариант запихнуть ее в стандартную панель?

(47) http://yadi.sk/d/7h7b_dP7FWzbi
а меня есть

(48) Меня нагло обманули :))))))

Так можно добавить свою иконку в стандартную панель, а?

Обязательно в стандартную..?

(51) Ну, хотелось бы.

+(46) или restorator

Чего вы пристали? Я уже сделала иконку.
Мне про стандартную панель интересно...

Comdlg32.dll диалог DIALOGEX 1538
Дочернее окно Edit3 с идентификатором 1154.
Как бы, перед открытием диалога запускаем программу, которая ждёт открытия диалога (просто перехватив системный вызов CreateWindow через Hook-процедуру), а после открытия диалога просто делает его активным через SetActiveWindow, но сначала нужно сделать AttachThreadInput, чтобы "чужой" поток подключился к очереди сообщений нашей 1С.

Ну, в общем, немного программирования на Си, и чудо свершится.
P.S. можно, конечно пропатчить dll, чтобы это поле было активным по умолчанию, но это "очень нехорошо".