|
|
|
Не сохраняется ШК при сохранении в ПДФ стандартными средствами 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) буду знать.
|
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |