Пройтись по всем значениям в автофильтре сохраняя видимое как отдельный файл pdf

[useronforum]

Никакое форматирование вообще у меня не копируется (в Windows) даже шрифт.

Строку
ThisComponent.Sheets(0).CharHeight=8
я удалил как не работающую

[useronforum]

Сравните с тем, что получилось у меня.

И у вас не скопировалось оформление.
Ширина столбцов одинаковая, а была разная.

Вся проблема в том, что для сохранения создаётся новый лист,
потом на него вставляется нужное (без форматирования) и сохраняется.

Если бы применить фильтр к существующему листу и сохранить,
то форматирование осталось бы.

[useronforum]

Цитата: useronforum от 28 Июль 2014, 16:22

Добавить бы повторение верхней строки на каждой странице при сохранении в pdf,
как это делается при печати.

В макросе ImportToPDF найдите вверху строку :
Код:
sNameFile=ThisComponent.Sheets(0).getCellByPosition(0,1).String
и замените на :
Код:
sNameFile=ThisComponent.Sheets(0).Name

Не работает.
Нужна команда аналог
Формат - Диапазоны печати - Правка - Повторять строки

[rami]

Не работает.
Нужна команда аналог
Формат - Диапазоны печати - Правка - Повторять строки

Извиняюсь, в прошлый раз я ответил не на процитированный вопрос, а на другой.
Повторять строки(первую): в макросе Filtracia вставить строку:

Код Выделить Развернуть

ThisComponent.Sheets(0).PrintTitleRows=trueВсе форматы настраиваются в документе, настроек много, поэтому наверно возникает путаница. Покажите как должен выглядеть файл PDF и файл ODS от которого сделали PDF.
Может быть так будет лучше?

[useronforum]

Спасибо, но даже текущий вариант очень устраивает.
Уже попробовал применить на практике.

===
Цель была: файл табличного прайс-листа (формата Excel) разбить на pdf-файлы
с именами каждой категории товара,
чтобы эти файлы скопировать в недорогую электронную книгу без сенсорного экрана
автоматически получив прайс-лист с оглавлением по именам файлов
(1 файл с прокруткой не удобен, так как тормозит и сложно искать)


Кому-то проще планшет с сенсорным экраном купить и открыть прайс напрямую,
но вариант с электронной книгой за 2000-3000 рублей в несколько раз дешевле
(и удобнее, так как не нужна прокрутка в большом файле).

Такой вариант удобен и как резервный на случай выключения света в магазине.

===
С помощью макросов Microsoft Excel решить эту задучу было намного проще,
но так как на работе нет купленной Microsoft Office Home and Business,
то чтобы не нарушать авторские права пиратством из-за преобразования файла из Excel в Pdf,
пришлось решать эту задачу в LibreOffice или OpenOffice Calc.

Но макросы на языке Excel не заработали в LibreOffice или OpenOffice Calc.
(также и потому что не получилось использовать автофильтр в макросах).

Поэтому пришлось решать задачу заново другим путем.

Ещё раз спасибо.