![]() |
![]() |
![]() |
|
Не сохраняется ШК при сохранении в ПДФ стандартными средствами 1С | ☑ | ||
---|---|---|---|---|
0
Vigor06
23.11.12
✎
16:21
|
Собстно сабж.
При обычной печати документов - ШК есть. При попытке сохранить Табличные документы в пдф - в них(пдф-файлах) мне сохраняется QR код, который присутствует на форме(( Помогите,плз |
|||
1
zladenuw
23.11.12
✎
16:33
|
код покажи где ты свой qr выводишь
|
|||
2
Vigor06
23.11.12
✎
16:44
|
(1) Таб.док. для печати и/или сохранения я получаю из модуля необходимого документа. А так как при печати qr есть,то значит код верный. Но на всякий случай вот код:
КоличествоСтраниц = ВернутьКоличествоСтраницНакладной(); НомерСтраницы = 1; ОбластьЛого = Макет.ПолучитьОбласть("Лого"); ШтрихКодЛого = ОбластьЛого.Рисунки.ШтрихКодЛого.Объект; ШтрихКодЛого.text = ФормированиеПечатныхФорм.СформироватьТекстДляШтрихкода(ЭтотОбъект, Неопределено, НомерСтраницы, КоличествоСтраниц); ШтрихКодЛого.alphabet = 25; ТабДокумент.Вывести(ОбластьЛого); |
|||
3
zladenuw
23.11.12
✎
16:47
|
alphabet а это что ?
|
|||
4
Vigor06
23.11.12
✎
16:50
|
(3)Это свойство StrokeScribe ,указывающее тип ШК. В нашем случае это QR
|
|||
5
zladenuw
23.11.12
✎
16:54
|
(4) а обычный ШК сохраняет в пдф ?
|
|||
6
Vigor06
23.11.12
✎
16:56
|
(5) Нет
|
|||
7
zladenuw
23.11.12
✎
17:04
|
странно.
у меня сохраняет Секция = Макет.ПолучитьОбласть("ШтрихКод"); Объект= Секция.Рисунки.ОбъектШтрихкод_3.Объект; Объект.ТекстКода = ШтрихКод; Объект.Сообщение = Лев(ШтрихКод,12); ТабДок.Вывести(Секция); |
|||
8
Vigor06
23.11.12
✎
17:08
|
(7) при сохранении штатными средствами 1С в пдф?
ТабДок.Записать(ДиалогВыбора.Каталог + ИмяФайла + ".pdf",ТипФайлаТабличногоДокумента.PDF); Ибо в Таб.Док. то ШК у меня передается точно |
|||
9
zladenuw
23.11.12
✎
17:08
|
(8) да
1С:Предприятие 8.2 (8.2.16.368) |
|||
10
Vigor06
23.11.12
✎
17:09
|
(9) У меня абсолютно такая же 1Ска. Значит бум еще где-то багу искать
|
|||
11
zladenuw
23.11.12
✎
17:23
|
а если это убрать ШтрихКодЛого.alphabet = 25; ?
хотя должно быть пофиг |
|||
12
Vigor06
23.11.12
✎
17:25
|
(11) Тот же результат
|
|||
13
zladenuw
23.11.12
✎
17:34
|
(12) может попробуй тупо удалить и создай новый объект рисунка.
|
|||
14
Vigor06
26.11.12
✎
11:55
|
(13) а смысл?
|
|||
15
Vigor06
26.11.12
✎
12:35
|
Проблема решена печатью через bullzip
ИмяФайла = ДиалогВыбора.Каталог + ИмяФайла + ".pdf"; Принтер = Новый ComObject("Bullzip.PDFPrinterSettings"); Принтер.SetValue("output", ИмяФайла); Принтер.SetValue("ShowSaveAS", "never"); Принтер.SetValue("ShowProgress", "no"); Принтер.SetValue("ShowProgressFinished", "no"); Принтер.SetValue("ShowSettings", "never"); Принтер.SetValue("ShowPDF", "no"); Принтер.SetValue("ConfirmOverwrite","no"); Принтер.SetValue("OwnerPassword",""); Принтер.SetValue("Permissions",61636); Принтер.WriteSettings(); ТабДок.Автомасштаб=Истина; ТабДок.ИмяПринтера = "Bullzip PDF Printer"; ТабДок.Напечатать(); |
|||
16
zladenuw
26.11.12
✎
13:01
|
(15) буду знать.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |