powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Exel.
8 сообщений из 8, страница 1 из 1
VBA и Exel.
    #34332066
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте,
У меня в одной рабочей области (Worksheets) располагаются несколько блоков данных... С помощью какой команды можно получить значение строки, которая является началом листа при печати - я хочу, чтобы программа располагала каждый блок данных так, чтобы они выводились на отдельном листе (при печати), но находились в одной рабочей области.
Заранее благодарен за вашу помощь.
...
Рейтинг: 0 / 0
VBA и Exel.
    #34332072
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В меню
Файл
Область печати
Задать
...
Рейтинг: 0 / 0
VBA и Exel.
    #34332552
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нее... я пишу в VB 6.3 при Exel - программа формирует несколько блоков данных на рабочем листе, и мне надо программно, с помощью команд, определить расстояние между этими блоками данных так, что бы каждый блок был выведен на отдельном листе при печати.
Но все же спасибо за внимание )
...
Рейтинг: 0 / 0
VBA и Exel.
    #34344395
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
задавай на Excel'евском форуме, там бы быстро ответили :)
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
Dim HPB As HPageBreak
    For Each HPB In ActiveSheet.HPageBreaks
        Debug.Print HPB.Location.Address
        Debug.Print HPB.Location.Row
    Next HPB
End Sub
...
Рейтинг: 0 / 0
VBA и Exel.
    #34344444
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо
...
Рейтинг: 0 / 0
VBA и Exel.
    #34345621
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Когда внедрил модуль в свою программу - начал выдавать ошибки

Dim HPB As HPageBreak
For Each HPB In ActiveSheet.HPageBreaks <---------------- Error
Debug.Print HPB.Location.Address
Debug.Print HPB.Location.Row
If StrNextBase < HPB.Location.Row Then
StrNextBase = HPB.Location.Row
Exit For
End If
MsgBox (HPB.Location.Row)
Next HPB

По разным условиям - выдает разные ошибки:
1. Run time error 424 Object required
2. и как то раз выскакивала Error 9

Почему он не хочет работать? - модуль у меня находиться в цикле и для каждый таблицы, положение которой определяется переменной StrNextBase определяется новое положение, учитывая начало следующего листа...
...
Рейтинг: 0 / 0
VBA и Exel.
    #34345747
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
то пример на VBA? просто, чтоб показать с какими объектами работать, а в VB6 нужно что-нибудь типа:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Test(XLApp As excel.Application)
Dim HPB As excel.HPageBreak
    For Each HPB In XLApp.ActiveSheet.HPageBreaks
        Debug.Print HPB.Location.Address
        Debug.Print HPB.Location.Row
    Next HPB
End Sub
XLApp - соотв. подключенный Excel
...
Рейтинг: 0 / 0
VBA и Exel.
    #34346287
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо,
да, это VBA - а как определять этот XLApp... как его подгрузить? а то у меня выдает ошибку 91 - Object variable or block variable not set.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Exel.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]