Имя: Пароль:
1C
1С v8
Печать картинки
0 Julia_S12
 
22.02.13
07:52
Добрый день!
У меня такой вопрос..есть форма с кнопкой, при нажатии на которую прикрепляется картинка. Вопрос: Как сделать так, что эту картинку можно было распечатать??
1 LehhaK
 
22.02.13
07:53
(0)ЕЕ надо вставить в макет
2 Wobland
 
22.02.13
07:55
(0) нажать принтскрин, вставить в пайнт, файл - печать
3 LehhaK
 
22.02.13
07:59
расскажи нам, в каком документе или справочнике эта форма? Что делает твоя кнопка?
4 Julia_S12
 
22.02.13
08:15
5 Julia_S12
 
22.02.13
08:16
при нажатии на кнопку выскакиевает окно выбора файла, я добавляю картинку..теперь мне надо что её можно было распечатать..в макет пыталась, но там нужно конкретно указывать какую..а мне надо чтоб просто..открыли этот справочник нажали печать и там была эта картинка и выводилась на печать..
6 Wobland
 
22.02.13
08:19
(5) то есть ты хочешь из 1Ске показать на какую-то картинку на диске и отправить её на печать? 1Ска тут не нужна
7 Julia_S12
 
22.02.13
08:20
а что нужно?
8 Гефест
 
22.02.13
08:21
телепаты, а ну-ка быстро доложите, что ей нужно
9 Julia_S12
 
22.02.13
08:22
вообще ситуация такая..бедт документ с данными, к котором прикреплены резюме сотрудников..и при необходимости нужно будет распечатать
10 Julia_S12
 
22.02.13
08:22
Гефест: Не Умничай:)
11 Julia_S12
 
22.02.13
08:23
картинки храняться в реквезите с типом хранилище значеий
12 Гефест
 
22.02.13
08:24
однако интересные сотрудники у вас

Добавь картинку в макет, при печати загружай изображение из хранилища
13 Julia_S12
 
22.02.13
08:29
как загрузить из хранилища?? можно код?
14 Wobland
 
22.02.13
08:33
(13) ХЗ.Получить()
15 Julia_S12
 
22.02.13
08:42
Мне это ничего не дало
16 wertyu
 
22.02.13
08:43
мСписокНоменклатураКартинка = Макет.ПолучитьОбласть("Список|Картинка");

Если ВыводитьКартинки Тогда
   СекцияНоменклатураКартинка = мСписокНоменклатураКартинка;
   Если НазваниеГруппировки = "Номенклатура" Тогда
       Картинка = ЗначениеГруппировки.ОсновноеИзображение.Хранилище.Получить();
       Если Не Картинка = Неопределено Тогда
           ЕстьКартинка = Истина;
       КонецЕсли;
       Если ЕстьКартинка Тогда
           СекцияНоменклатураКартинка.Рисунки.Очистить();
           Рисунок = СекцияНоменклатураКартинка.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
           Рисунок.Картинка = Картинка;
           Рисунок.ГраницаСверху = 0;
           Рисунок.ГраницаСлева = 0;
           Рисунок.ГраницаСнизу = 0;
           Рисунок.ГраницаСправа = 0;
           Рисунок.РазмерКартинки = РазмерКартинки.АвтоРазмер;
           Рисунок.Расшифровка = ЗначениеГруппировки;
           
           СекцияНачало.Область(1, 1, 1, 1).ВысотаСтроки = ВысотаКартинки * 3 + 5;
           СекцияНоменклатура.Область(1, 1, 1, 1).ВысотаСтроки = ВысотаКартинки * 3 + 5;
           СекцияТипЦен.Область(1, 1, 1, 1).ВысотаСтроки = ВысотаКартинки * 3 + 5;
           СекцияОстаток.Область(1, 1, 1, 1).ВысотаСтроки = ВысотаКартинки * 3 + 5;
           СекцияДопПоле.Область(1, 1, 1, 1).ВысотаСтроки = ВысотаКартинки * 3 + 5;
           СекцияНоменклатураКартинка.Область(1, 1, 1, 1).ВысотаСтроки = ВысотаКартинки * 3 + 5;
           СекцияНоменклатураКартинка.Область(1, 1, 1, 1).ШиринаКолонки = ШиринаКартинки * 48.88 / 90;
           СекцияНоменклатураКартинка.Рисунки[СекцияНоменклатураКартинка.Рисунки.Индекс(Рисунок)].Расположить(СекцияНоменклатураКартинка.Область(1, 1, 1, 1));
           Рисунок.Высота = Рисунок.Высота - 0.05;
           Рисунок.Ширина = Рисунок.Ширина - 0.05;
       Иначе
           СекцияНоменклатураКартинка.Рисунки.Очистить();
           
           СекцияНачало.Область(1, 1, 1, 1).АвтоВысотаСтроки = Истина;
           СекцияНоменклатура.Область(1, 1, 1, 1).АвтоВысотаСтроки = Истина;
           СекцияТипЦен.Область(1, 1, 1, 1).АвтоВысотаСтроки = Истина;
           СекцияОстаток.Область(1, 1, 1, 1).АвтоВысотаСтроки = Истина;
           СекцияДопПоле.Область(1, 1, 1, 1).АвтоВысотаСтроки = Истина;
           СекцияНоменклатураКартинка.Область(1, 1, 1, 1).АвтоВысотаСтроки = Истина;
           СекцияНоменклатураКартинка.Область(1, 1, 1, 1).ШиринаКолонки = ШиринаКартинки * 48.88 / 90 + 1;    
       КонецЕсли;
   КонецЕсли;
КонецЕсли;
17 Wobland
 
22.02.13
08:44
(15) врёшь. содержимое ХЗ тебе это дало
18 H A D G E H O G s
 
22.02.13
08:48
Здравствуй, племя молодое, незнакомое.
19 Julia_S12
 
22.02.13
08:49
Здравсвуйте..может вы мне поможете?
20 H A D G E H O G s
 
22.02.13
08:52
(19) Нет.
Телепатический модуль потерся, пообшоркался за годы эксплуатации и теперь не срабатывает даже на молоденьких красивых девушек.
21 Julia_S12
 
22.02.13
08:53
Ну и ладно
22 Wobland
 
22.02.13
08:54
(19) спроси у wertyu, он знает
23 Julia_S12
 
22.02.13
09:06
сами ниче не знаете потому что)) я вообще первый раз делаю в 1с что то..а вы сидите и умничаете...
24 Wobland
 
22.02.13
09:11
(23) ну не все тут первый раз что-то делают. поэтому и дают точные и мудрые советы
25 Julia_S12
 
22.02.13
09:12
так то мне по подробней хотелось..я чайник во всех этих кодах, модулях и т.д..тот код который дали,  у меня одни ошибки на            
Рисунок.Картинка = Картинка;
Рисунок.ГраницаСверху = 0;
Рисунок.ГраницаСлева = 0;
Рисунок.ГраницаСнизу = 0;
и на другое
26 Wobland
 
22.02.13
09:28
(25) непонятно? спроси. а пока могу только пожалеть
Программист всегда исправляет последнюю ошибку.