Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Отформатировать данные для дальнейшей печати (автоматизация вычисления области печати), Необходимо сформировать таблицу с шапкой и подписями для печати на нескольких страницах
 
#1
16.05.2022 08:55:27
Добрый день всем.
Проблема в следующем:
Имеется таблица с 100 строками. У таблицы есть название и наименование столбцов. А также под таблицей пишется номер страницы и логотип фирмы.

Я могу установить сквозные строки для страниц и на печать будет выводиться и шапка, и "подвал".
Но нужно сформировать эти данные на самом листе, так как пользователи копируют эту информацию в какие-то отчеты.

На листе "Как есть" - отображена информация, которая сейчас выгружается из системы в таком виде.
На листе "Как должно быть" - показано как она должна быть сформирована на самом листе и выводиться на печать, соответственно.
Область печати задается, так чтобы все столбцы влезли. Вся проблема со строками.
Наведите на мысль, как это можно сделать: как вычислить последнюю строку на первой странице, подсчитать сколько строк выводится на печать и прочее.
Подсчитать количество выводимых на печать страниц в исходном варианте я могу, что сделать дальше нужно, чтобы информация вмешалась на лист.
 
 
 
#2
16.05.2022 11:10:03
Навожу на мысль...

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
16.05.2022 11:24:24
Если всё как в примере можно так:
Код
Sub Макрос4()
Range("A3").Select
n = 1
m = ActiveSheet.UsedRange.Parent.HPageBreaks.Count
    While Not IsEmpty(ActiveCell.Value)
       If ActiveSheet.HPageBreaks(n).Location.Row = ActiveCell.Row Then
            Sheets("Шаблон").Rows("1:6").Copy
            Selection.Offset(-3, 0).Insert Shift:=xlDown
            Cells(ActiveCell.Row - 2, 7) = "Стр. " & n
            If m > n Then n = n + 1: m = ActiveSheet.UsedRange.Parent.HPageBreaks.Count
            ActiveCell.Offset(2, 0).Select
       End If
        ActiveCell.Offset(1, 0).Select
    Wend
    Application.CutCopyMode = False
    Cells(ActiveCell.Row + 1, 7) = "Стр. " & n + 1
End Sub
 
 
 
#4
16.05.2022 12:04:52
Ребята, скажите как Вам в карму добавить +100 очков? ))) Очень выручили намеками как в дальнейшемм все это докрутить.
Я почему-то думал, что будут какие-то стандартные методы, но не нашел, увы.
Еще раз спасибо
Изменено: _andrew_ - 17.05.2022 08:18:11
 
 
 
Страницы: 1
Наверх