Запоминание страниц в PDF формате
andreika21
Дата: Четверг, 15.04.2021, 10:33 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация:
1
±
Замечаний:
0% ±
Здравствуйте. В листе 10 страниц надо запомнить в pdf каждую страницу отдельным файлом, одну страницу я знаю как запомнить. Может кто подскажет как их запомнить без лишних телодвижений, сразу 10 и в отдельных файлах. Спасибо за помощь.
Здравствуйте. В листе 10 страниц надо запомнить в pdf каждую страницу отдельным файлом, одну страницу я знаю как запомнить. Может кто подскажет как их запомнить без лишних телодвижений, сразу 10 и в отдельных файлах. Спасибо за помощь. andreika21
Ответить
Сообщение Здравствуйте. В листе 10 страниц надо запомнить в pdf каждую страницу отдельным файлом, одну страницу я знаю как запомнить. Может кто подскажет как их запомнить без лишних телодвижений, сразу 10 и в отдельных файлах. Спасибо за помощь. Автор - andreika21 Дата добавления - 15.04.2021 в 10:33
китин
Дата: Четверг, 15.04.2021, 10:39 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
andreika21 , в каком листе? какие страницы? покажите.
andreika21 , в каком листе? какие страницы? покажите.китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение andreika21 , в каком листе? какие страницы? покажите.Автор - китин Дата добавления - 15.04.2021 в 10:39
andreika21
Дата: Четверг, 15.04.2021, 10:47 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация:
1
±
Замечаний:
0% ±
китин, В листе книги на страницах текст
Ответить
Сообщение китин, В листе книги на страницах текст Автор - andreika21 Дата добавления - 15.04.2021 в 10:47
andreika21
Дата: Четверг, 15.04.2021, 10:49 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация:
1
±
Замечаний:
0% ±
Надо так отдельно каждею страницу
Сообщение отредактировал 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]
[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
Ю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
Ответить
Сообщение Nic70y, Что то пошло не так, нажимаю кнопку выскакивает окошко с иероглифом и Ok нажимаю Ok и ничего не происходит Автор - andreika21 Дата добавления - 15.04.2021 в 11:54
Nic70y
Дата: Четверг, 15.04.2021, 11:56 |
Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация:
2258
±
Замечаний:
0% ±
Excel 2010
у вас не русский эксель. закройте файл и посмотрите шо там в папке появились пдффайлы?
у вас не русский эксель. закройте файл и посмотрите шо там в папке появились пдффайлы? Nic70y
ЮMoney 41001841029809
Ответить
Сообщение у вас не русский эксель. закройте файл и посмотрите шо там в папке появились пдффайлы? Автор - Nic70y Дата добавления - 15.04.2021 в 11:56
andreika21
Дата: Четверг, 15.04.2021, 12:29 |
Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация:
1
±
Замечаний:
0% ±
Nic70y, Да эксель не русский поменять язык не имею права,может можно как то иероглиф убрать, запомнил файл под другим именим в той же папке попутался запомнить не вышло, в папке будет много файлов
Nic70y, Да эксель не русский поменять язык не имею права,может можно как то иероглиф убрать, запомнил файл под другим именим в той же папке попутался запомнить не вышло, в папке будет много файлов andreika21
Ответить
Сообщение Nic70y, Да эксель не русский поменять язык не имею права,может можно как то иероглиф убрать, запомнил файл под другим именим в той же папке попутался запомнить не вышло, в папке будет много файлов Автор - andreika21 Дата добавления - 15.04.2021 в 12:29
Nic70y
Дата: Четверг, 15.04.2021, 12:33 |
Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8701
Репутация:
2258
±
Замечаний:
0% ±
Excel 2010
поменять язык не имею права
и не сможите, и не надо.может можно как то иероглиф убрать
видимо он из этой строки замените "всё" на то, что нужно или вообще уберите эту строку (она чисто информационная - шо, все макрос отработал)попутался запомнить не вышло
под какими именами должны быть эти файлы и если не в этой папке, то в какой?
поменять язык не имею права
и не сможите, и не надо.может можно как то иероглиф убрать
видимо он из этой строки замените "всё" на то, что нужно или вообще уберите эту строку (она чисто информационная - шо, все макрос отработал)попутался запомнить не вышло
под какими именами должны быть эти файлы и если не в этой папке, то в какой?Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Четверг, 15.04.2021, 12:57
Ответить
Сообщение поменять язык не имею права
и не сможите, и не надо.может можно как то иероглиф убрать
видимо он из этой строки замените "всё" на то, что нужно или вообще уберите эту строку (она чисто информационная - шо, все макрос отработал)попутался запомнить не вышло
под какими именами должны быть эти файлы и если не в этой папке, то в какой?Автор - Nic70y Дата добавления - 15.04.2021 в 12:33
andreika21
Дата: Четверг, 15.04.2021, 12:51 |
Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация:
1
±
Замечаний:
0% ±
Nic70y, Это протокол на одной странице протокол на второй сертификаты, протокол заполняем запоминаем сертификаты по одному в той же папке где протокол, делаем другой протокол и действия повторяются надо сертификаты и протокол сохронять в той же папке
Nic70y, Это протокол на одной странице протокол на второй сертификаты, протокол заполняем запоминаем сертификаты по одному в той же папке где протокол, делаем другой протокол и действия повторяются надо сертификаты и протокол сохронять в той же папке andreika21
Ответить
Сообщение 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 просто по очереди страниц при повторном нажатии кнопки эти файлы заменяются новыми. а Вам как надо из выше написанного я ни чего не понял.
так файлы и сохраняются в этой же папке и называются: 01.pdf 02.pdf ----- 10.pdf просто по очереди страниц при повторном нажатии кнопки эти файлы заменяются новыми. а Вам как надо из выше написанного я ни чего не понял. Nic70y
Ю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 и тд
Nic70y, Надо чтобы второго и тд протоколов сертификаты сохранялись в той же папке а не заменялись, идеально было бы еслибы запоминало название протокола например так книга-1-1 книга-1-2 и тд andreika21
Сообщение отредактировал 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
держите
Ю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