Персонализация, Data Merge и другие вопросы по работе с переменными данными постить здесь

PATSAN

Участник
Сообщения
23
Реакции
0
Ответ: Переменные из фото


Не по теме:

Слышь ПАЦАН. Во-первых, на "ты" мы не переходили. Во-вторых, хорошо поставленный вопрос быстрее и без наводящих вопросов-ответов находит свой правильный ответ. И в третьих: если я начну издеваться, вопросов не возникнет.


ОК!! вот поставленный вопрос!! напечатанные карты на офсете 3 ем форматом !! на данных картах надо указать штрих коды и напечатать на цифре!! есть файл exel с номерами штрих кодов!! вопрос состоит в том чтобы как на печатать штрих коды

весенние двести в печать бух.jpg
 

_JVK_

Чатланин
10 лет на форуме
Сообщения
184
Реакции
175
Ответ: Переменные из фото

В просторах интернета есть макрос для exсel. Погуглите. Он переводит номер кода в буквы/цифры/символы.

977168058200 ➛ 9HRLGSA*ficaab+

exel.png

Если "переведенному" назначить шрифт Code EAN13, то получим готовый штрихкод.

ean13.png
 
  • Спасибо
Реакции: Meh

imma

15 лет на форуме
Сообщения
3 089
Реакции
2 185

PATSAN

Участник
Сообщения
23
Реакции
0
Ответ: Переменные из фото

Называется "Генератор штрих кодов". Подойдет для генерации произвольного списка штрих-кодов. Если нужно сгенерировать коды по готовому списку, то увы.
там ссписок уже предоставленных номеров штрих кодов!! жаль но он не подходит! но как то народ делает! вопрос только как?! в итоге от заказа отказлись так как не смогли сделать а в другом месте кто то смог!! помогите , реально пригодиться может нам
 

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
Ответ: Переменные из фото

там ссписок уже предоставленных номеров штрих кодов!! жаль но он не подходит!
Alt+F11 и допилить напильником. Для ваших целей подойдет функция ean13.
 

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
Ответ: Переменные из фото

Гуглить мануалы по VBA.
Код:
Public Function ean13(chaine)
    Dim i%, checksum%, first%, CodeBarre$, tableA As Boolean
    ean13 = ""

'   checking that all characters in the barcode are digits
    For i% = 1 To Len(chaine)
        If Asc(Mid$(chaine, i%, 1)) < 48 Or Asc(Mid$(chaine, i%, 1)) > 57 Then
            ean13 = ""
            Exit Function
        End If
    Next

'   Calculating the check digit
    If Len(chaine) = 12 Then
        For i% = 2 To 12 Step 2
            checksum% = checksum% + Val(Mid$(chaine, i%, 1))
        Next
        checksum% = checksum% * 3
        For i% = 1 To 11 Step 2
            checksum% = checksum% + Val(Mid$(chaine, i%, 1))
        Next
        chaine = chaine & (10 - checksum% Mod 10) Mod 10
    End If

'   developing the barcode string
    If Len(chaine) = 13 Then
    '   The first number is taken as is, the second is from Table A
        CodeBarre$ = Left$(chaine, 1) & Chr$(65 + Val(Mid$(chaine, 2, 1)))
        first% = Val(Left$(chaine, 1))
        For i% = 3 To 7
            tableA = False
            Select Case i%
                Case 3
                    Select Case first%
                Case 0 To 3
                    tableA = True
                End Select
            Case 4
                Select Case first%
                Case 0, 4, 7, 8
                    tableA = True
                End Select
            Case 5
                Select Case first%
                Case 0, 1, 4, 5, 9
                tableA = True
                End Select
            Case 6
                Select Case first%
                Case 0, 2, 5, 6, 7
                tableA = True
                End Select
            Case 7
                Select Case first%
                Case 0, 3, 6, 8, 9
                tableA = True
                End Select
            End Select
            
            If tableA Then
                CodeBarre$ = CodeBarre$ & Chr$(65 + Val(Mid$(chaine, i%, 1)))
            Else
                CodeBarre$ = CodeBarre$ & Chr$(75 + Val(Mid$(chaine, i%, 1)))
            End If
        Next
    
        CodeBarre$ = CodeBarre$ & "*"   'Adding central divider
        For i% = 8 To 13
            CodeBarre$ = CodeBarre$ & Chr$(97 + Val(Mid$(chaine, i%, 1)))
        Next
        CodeBarre$ = CodeBarre$ & "+"   'adding the terminating char
        ean13 = CodeBarre$
    End If
End Function
 

PATSAN

Участник
Сообщения
23
Реакции
0
Ответ: Переменные из фото

итак в краце список этих кодов ТЫЦ http://www.**************/file/phipf4 а это куда программынй код?! у меня в голове ща переворот будет
 

Nicky

R.I.P.
Сообщения
937
Реакции
273
Ответ: Переменные из фото

Чего-то не понимаю, а что мешает из списка сторонней программой сгенерить все эти коды (файлы сгенерятся с именами из списка).
И вставить их с помощью Data Merge?
 

lexana

Участник
Сообщения
66
Реакции
20
http://forum.rudtp.ru/showthread.php?t=43331


Не по теме:
Жаль, конечно, что закрыли тему для новичков.


Итак, задача.
Исходники: документ, сверстанный в InDesign.
Требуется: распечатать 100 пронумерованных экземпляров. Т.е. чтобы на выходе была стопочка из 100 документов, у которых в уголочке написано "№ 1", "№ 2" и т.д. — до "№ 100".
Можно это как-нибудь автоматизировать?
 

lexana

Участник
Сообщения
66
Реакции
20
Ответ: Печать с параметром

Нумерация страниц? На мастере в нужном месте "№" Ctrl+Shift+Alt+N.
да нет же, не нумерация страниц (в документе 4 страницы и они уже пронумерованы).
Нужна именно нумерация экземпляров.
 

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
Ответ: Печать с параметром

В зависимости от объемов, одно дело увесистый томик, другое пару листиков.
Номера могут быть отдельным документом который накладывается на первый в акробате.
 

lexana

Участник
Сообщения
66
Реакции
20
Ответ: Печать с параметром

Проблема решена на раз-два с помощью функции Data Merge, за что спасибо Nicky )
 

lexana

Участник
Сообщения
66
Реакции
20
Ответ: http://forum.rudtp.ru/showthread.php?t=43331

Требуется: распечатать 100 пронумерованных экземпляров. Т.е. чтобы на выходе была стопочка из 100 документов, у которых в уголочке написано "№ 1", "№ 2" и т.д. — до "№ 100".
Можно это как-нибудь автоматизировать?

Одна сложность: Data Merge при создании объединенного документа продолжает сквозную автоматическую нумерацию страниц на следующие за первым экземпляры. Как бы это обойти?
 

NNN5

Модератор
15 лет на форуме
Сообщения
1 256
Реакции
1 012
Ответ: Персонализация, Data Merge и другие вопросы по работе с переменными данными постить здесь

Сколько у вас страниц в документе?
 

Skvoznyak

15 лет на форуме
Сообщения
5 500
Реакции
2 168

lexana

Участник
Сообщения
66
Реакции
20
Ответ: Персонализация, Data Merge и другие вопросы по работе с переменными данными постить здесь

Сколько у вас страниц в документе?
50 страниц

4 страницы было в предыдущем документе, там я на это плюнула и расставила номера вручную.
 

duh

15 лет на форуме
Сообщения
1 422
Реакции
698
Ответ: Персонализация, Data Merge и другие вопросы по работе с переменными данными постить здесь

А в *.pdf средствами акробата вставлять фон в виде нужной циферки перед/во время печати?
ЗЫ: верней водяной знак - там удобней... (в 10-ом акробате)