Имя: Пароль:
1C
 
8.x Печать изображения на всю страницу
0 OerlandHue
 
02.03.16
03:58
Здравствуйте. Есть куча сертификатов сканов, нужно один скан печатать на 1 странице. Изображения хранятся в справочнике в хранилище значений. Как вывести на макет и т.д. я знаю, как мне сделать так, чтобы одно изображение печаталось на 1 странице и занимало всю страницу? Решал кто такую проблему?
1 torgm
 
02.03.16
05:54
(0)  что бы на всю страницу, нужен принтер который печатает без зазоров по краям, иначе никак...



Кстати зачем печатаете картинки сертификатов, не проще реестром сертификатов обойтись?
2 torgm
 
02.03.16
05:56
Кстати, у одного клиента сканировали сертификаты с учетом возможных зазоров. Все было хорошо.
3 OerlandHue
 
02.03.16
06:52
(1) ну не совсем прямо без зазоров, я имею в виду, нужно как картинку с принтера печатаешь из win дефолтной программы печатаешь, только из 1С. Одна страница одна картинка.
Босс выставил такую задачу, именно сканами. Попроще было бы конечно реестром, но ему нужно так. У меня пока получается через макет и получить параметры страница табличного документа, но получается не очень красиво - изображение занимает не все пространство, внизу достаточно широкой пустое пространство, хотя высота картинки должна быть равна высоте страница.
4 OerlandHue
 
02.03.16
06:55
(2) получается вот так:
    
    
    
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Сертификаты";    
    
    Макет = ПолучитьОбщийМакет("Я_Фото");
    
    ОбластьМакета = Макет.ПолучитьОбласть("ФотоОбласть");
        
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ТабДокумент.РазмерСтраницы = "A4";
        ТабДокумент.АвтоМасштаб = Истина;

        ОбластьМакета.Рисунки.Фото.Ширина = ТабДокумент.ШиринаСтраницы;
        ОбластьМакета.Рисунки.Фото.Высота = ТабДокумент.ВысотаСтраницы;
        ОбластьМакета.Рисунки.Фото.Картинка = ВыборкаДетальныеЗаписи.Хранилище.Получить();
        ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
        ТабДокумент.Вывести(ОбластьМакета);
    КонецЦикла;
    
    Возврат ТабДокумент;
5 OerlandHue
 
03.03.16
08:17
Бамп
6 mistеr
 
03.03.16
09:17
(4) Так не пробовал?

        ОбластьМакета.Рисунки.Фото.Ширина = 210;
        ОбластьМакета.Рисунки.Фото.Высота = 297;
7 aleks_default
 
03.03.16
09:22
а ТабДокумент.Автомасштаб = Истина не катит?
8 OerlandHue
 
03.03.16
10:01
(7) так там же стоит автомасштаб = Истина.
(6) оно абсолютно одинаково выглядит при печати что в твоем случае, что в моем.
Я не понимаю, почему при печати так много места остается свободного.
как тут линки вставлять
http://cs627116.vk.me/v627116504/4522f/RDNj6dBJoKo.jpg
9 mistеr
 
03.03.16
10:04
(8) Автомасштаб-то убери.

Думаю автомасштаб учитывает что-то невидимое, может +1 колонку, и поэтому сжимает.
10 OerlandHue
 
03.03.16
10:07
(9) если убираю, тогда картинка выводится на 2 страницы на принтере
11 mistеr
 
03.03.16
10:15
(10) Осатлось экспериментально подобрать ширину и в продакшен. :)
12 OerlandHue
 
03.03.16
10:33
(11) блин, я понял, как сделать.
Но при этом мне непонятно, почему я ставлю ширину страницы, но при этом при автоширине на странице оно не умещается. Да и должен быть другой способ, печатать сразу на всю страницу, может с ком-подключением как-то.
13 OerlandHue
 
09.03.16
03:42
Бампану, вдруг знает кто.