Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 19.01.2008, 11:41   #1
Leanna
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 24
Репутация: 10
По умолчанию Как сделать разрыв страницы печати по условию и узнать номер страницы

Форумчане, помогите с задачкой.

Есть сводная таблица со столбцами 1.место/2.товар/3.сумма + столбцы 4.место2/5.номер_страницы
Как программно сделать так что бы при каждом изменении значения столбца печать страницы переходила на новый лист (разрыв печати).
А затем В столбец 5 номер_страницы в каждую строчку проставить номер страницы (число) при печати.
Файл со сводной прилагается.
Вложения
Тип файла: rar Pechat_Stranitzi.rar (10.4 Кб, 21 просмотров)
Leanna вне форума  
Старый 20.01.2008, 14:57   #2
Leanna
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 24
Репутация: 10
По умолчанию

Люди после ковыряний у меня получилось сделать разрыв страницы,

Код:

Sub Page_Form()
'
    iEndTable = Range("A1").SpecialCells(xlLastCell).Row
    
    For iRow = 3 To iEndTable
    If Cells(iRow, 4) <> Cells(iRow - 1, 4) Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(iRow, 5)
    End If
    Next
End Sub



Но, подскажите, как проставить в ячейки 5 столбца номера текущих страниц?


.
Leanna вне форума  
Старый 21.01.2008, 07:59   #3
SAS888
Профессионал
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,150
Репутация: 1063
По умолчанию

Следующий макрос выведет в окно сообщений текущую страницу печати для активной ячейки:
Код:

Sub DetectCurrentPage()

    Dim i As Integer   
    For i = 1 To Worksheets(1).HPageBreaks.Count
        If ActiveCell.Row < Worksheets(1).HPageBreaks(i).Location.Row Then Exit For
    Next
    MsgBox i

End Sub

Т.е. определяем, до какого по счету горизонтального разрыва страницы находится контролируемая ячейка.

Последний раз редактировалось SAS888; 21.01.2008 в 11:04.
SAS888 вне форума  
Закрытая тема

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передача страницы из webbrowser rootann Работа с сетью в Delphi 17 22.08.2009 11:26
Сохранение страницы Патрон PHP 3 28.03.2008 01:00
idHTTP не возвращает код страницы Paradoxer Работа с сетью в Delphi 0 15.03.2008 21:27
Html страницы LineStown Работа с сетью в Delphi 3 11.04.2007 13:16
разметка страницы. Gambler Microsoft Office Word 0 29.10.2006 22:24


18:08.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru