Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запоминание страниц в PDF формате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запоминание страниц в PDF формате (Формулы/Formulas)
Запоминание страниц в PDF формате
andreika21 Дата: Четверг, 15.04.2021, 10:33 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Здравствуйте. В листе 10 страниц надо запомнить в pdf каждую страницу отдельным файлом, одну страницу я знаю как запомнить. Может кто подскажет как их запомнить без лишних телодвижений, сразу 10 и в отдельных файлах. Спасибо за помощь.
 
Ответить
СообщениеЗдравствуйте. В листе 10 страниц надо запомнить в pdf каждую страницу отдельным файлом, одну страницу я знаю как запомнить. Может кто подскажет как их запомнить без лишних телодвижений, сразу 10 и в отдельных файлах. Спасибо за помощь.

Автор - andreika21
Дата добавления - 15.04.2021 в 10:33
китин Дата: Четверг, 15.04.2021, 10:39 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
andreika21, в каком листе? какие страницы? покажите.


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеandreika21, в каком листе? какие страницы? покажите.

Автор - китин
Дата добавления - 15.04.2021 в 10:39
andreika21 Дата: Четверг, 15.04.2021, 10:47 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

китин, В листе книги на страницах текст
К сообщению приложен файл: Knyga1.xlsx (9.2 Kb)
 
Ответить
Сообщениекитин, В листе книги на страницах текст

Автор - andreika21
Дата добавления - 15.04.2021 в 10:47
andreika21 Дата: Четверг, 15.04.2021, 10:49 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Надо так отдельно каждею страницу
К сообщению приложен файл: Knyga1.pdf (21.8 Kb)


Сообщение отредактировал andreika21 - Четверг, 15.04.2021, 10:52
 
Ответить
СообщениеНадо так отдельно каждею страницу

Автор - andreika21
Дата добавления - 15.04.2021 в 10:49
andreika21 Дата: Четверг, 15.04.2021, 11:36 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Может эту беду макросом можно одолеть?
 
Ответить
СообщениеМожет эту беду макросом можно одолеть?

Автор - andreika21
Дата добавления - 15.04.2021 в 11:36
Nic70y Дата: Четверг, 15.04.2021, 11:45 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация: 2258 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_pdf()
    Application.ScreenUpdating = False  'отключение обновления экрана
    u_1 = 9     'кол-во столбцов в странице
    u_2 = 10    'кол-во страниц
    u_3 = 43    'нижняя строка
    For u = 1 To u_2 'пройдемся по страницам (* - очередной страницы)
        v_1 = (u - 1) * u_1 + 1     'левый столбец*
        v_2 = (u - 1) * u_1 + u_1   'правый столбец*
        ActiveSheet.PageSetup.PrintArea = Range(Cells(1, v_1), Cells(u_3, v_2)).Address 'область печати*
        'сохраним файл*
        Application.DisplayAlerts = False 'заменять файл сохраненный ранее без всяких вопросов!
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "\" & Right(0 & u, 2) & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=False
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True   'включение обновления экрана
    MsgBox "всё"
End Sub
[/vba]
К сообщению приложен файл: Knyga1.xlsm (19.9 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_pdf()
    Application.ScreenUpdating = False  'отключение обновления экрана
    u_1 = 9     'кол-во столбцов в странице
    u_2 = 10    'кол-во страниц
    u_3 = 43    'нижняя строка
    For u = 1 To u_2 'пройдемся по страницам (* - очередной страницы)
        v_1 = (u - 1) * u_1 + 1     'левый столбец*
        v_2 = (u - 1) * u_1 + u_1   'правый столбец*
        ActiveSheet.PageSetup.PrintArea = Range(Cells(1, v_1), Cells(u_3, v_2)).Address 'область печати*
        'сохраним файл*
        Application.DisplayAlerts = False 'заменять файл сохраненный ранее без всяких вопросов!
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "\" & Right(0 & u, 2) & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=False
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True   'включение обновления экрана
    MsgBox "всё"
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 15.04.2021 в 11:45
andreika21 Дата: Четверг, 15.04.2021, 11:54 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Nic70y, Что то пошло не так, нажимаю кнопку выскакивает окошко с иероглифом и Ok нажимаю Ok и ничего не происходит
 
Ответить
СообщениеNic70y, Что то пошло не так, нажимаю кнопку выскакивает окошко с иероглифом и Ok нажимаю Ok и ничего не происходит

Автор - andreika21
Дата добавления - 15.04.2021 в 11:54
Nic70y Дата: Четверг, 15.04.2021, 11:56 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация: 2258 ±
Замечаний: 0% ±

Excel 2010
с иероглифом
у вас не русский эксель.
закройте файл и посмотрите шо там в папке появились пдффайлы?


ЮMoney 41001841029809
 
Ответить
Сообщение
с иероглифом
у вас не русский эксель.
закройте файл и посмотрите шо там в папке появились пдффайлы?

Автор - Nic70y
Дата добавления - 15.04.2021 в 11:56
andreika21 Дата: Четверг, 15.04.2021, 12:29 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Nic70y, Да эксель не русский поменять язык не имею права,может можно как то иероглиф убрать, запомнил файл под другим именим в той же папке попутался запомнить не вышло, в папке будет много файлов
 
Ответить
СообщениеNic70y, Да эксель не русский поменять язык не имею права,может можно как то иероглиф убрать, запомнил файл под другим именим в той же папке попутался запомнить не вышло, в папке будет много файлов

Автор - andreika21
Дата добавления - 15.04.2021 в 12:29
Nic70y Дата: Четверг, 15.04.2021, 12:33 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация: 2258 ±
Замечаний: 0% ±

Excel 2010
поменять язык не имею права
и не сможите, и не надо.
может можно как то иероглиф убрать
видимо он из этой строки
MsgBox "всё"
замените "всё" на то, что нужно или вообще уберите эту строку (она чисто информационная - шо, все макрос отработал)
попутался запомнить не вышло
под какими именами должны быть эти файлы и если не в этой папке, то в какой?


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 15.04.2021, 12:57
 
Ответить
Сообщение
поменять язык не имею права
и не сможите, и не надо.
может можно как то иероглиф убрать
видимо он из этой строки
MsgBox "всё"
замените "всё" на то, что нужно или вообще уберите эту строку (она чисто информационная - шо, все макрос отработал)
попутался запомнить не вышло
под какими именами должны быть эти файлы и если не в этой папке, то в какой?

Автор - Nic70y
Дата добавления - 15.04.2021 в 12:33
andreika21 Дата: Четверг, 15.04.2021, 12:51 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Nic70y, Это протокол на одной странице протокол на второй сертификаты, протокол заполняем запоминаем сертификаты по одному в той же папке где протокол, делаем другой протокол и действия повторяются надо сертификаты и протокол сохронять в той же папке
 
Ответить
СообщениеNic70y, Это протокол на одной странице протокол на второй сертификаты, протокол заполняем запоминаем сертификаты по одному в той же папке где протокол, делаем другой протокол и действия повторяются надо сертификаты и протокол сохронять в той же папке

Автор - andreika21
Дата добавления - 15.04.2021 в 12:51
Nic70y Дата: Четверг, 15.04.2021, 12:56 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация: 2258 ±
Замечаний: 0% ±

Excel 2010
так файлы и сохраняются в этой же папке и называются:
01.pdf
02.pdf
-----
10.pdf
просто по очереди страниц
при повторном нажатии кнопки эти файлы заменяются новыми.
а Вам как надо из выше написанного я ни чего не понял.


ЮMoney 41001841029809
 
Ответить
Сообщениетак файлы и сохраняются в этой же папке и называются:
01.pdf
02.pdf
-----
10.pdf
просто по очереди страниц
при повторном нажатии кнопки эти файлы заменяются новыми.
а Вам как надо из выше написанного я ни чего не понял.

Автор - Nic70y
Дата добавления - 15.04.2021 в 12:56
andreika21 Дата: Четверг, 15.04.2021, 13:04 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Nic70y, Надо чтобы второго и тд протоколов сертификаты сохранялись в той же папке а не заменялись, идеально было бы еслибы запоминало название протокола например так книга-1-1 книга-1-2 и тд


Сообщение отредактировал andreika21 - Четверг, 15.04.2021, 13:05
 
Ответить
СообщениеNic70y, Надо чтобы второго и тд протоколов сертификаты сохранялись в той же папке а не заменялись, идеально было бы еслибы запоминало название протокола например так книга-1-1 книга-1-2 и тд

Автор - andreika21
Дата добавления - 15.04.2021 в 13:04
Nic70y Дата: Четверг, 15.04.2021, 14:01 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация: 2258 ±
Замечаний: 0% ±

Excel 2010
держите
К сообщению приложен файл: 9218058.xlsm (20.3 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениедержите

Автор - Nic70y
Дата добавления - 15.04.2021 в 14:01
andreika21 Дата: Четверг, 15.04.2021, 14:10 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 1 ±
Замечаний: 0% ±

Nic70y, Спасибо большое!!!!!
 
Ответить
СообщениеNic70y, Спасибо большое!!!!!

Автор - andreika21
Дата добавления - 15.04.2021 в 14:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запоминание страниц в PDF формате (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!