ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обработка исключительной ситуации
3 сообщений из 3, страница 1 из 1
обработка исключительной ситуации
    #33176695
fabler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fabler
Участник
Всем здравствуйте!
нужно срочно решить вопрос:
как обработать ИС в макросе для exel, т.е. аналог try...except...end;
очень нужно!
Т.к. в макросе есть строки:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
With ActiveSheet.PageSetup        
        .LeftMargin = Application.InchesToPoints( 0 . 236220472440945 )
        .FooterMargin = Application.InchesToPoints( 0 . 15748031496063 )
        ...
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality =  600     ' на эту строку ругается на некоторых ПК
        .CenterHorizontally = False
        ...
    End With

понятно, что это зависит от принтера, подключенного к ПК, вопрос, как избегать подобных ошибок?
если просто эту строку убрать, то с каким качеством будет печататься документ?

спасибо!
...
Рейтинг: 0 / 0
20.07.2005, 18:00:27
| Ответить | Цитировать | Написать  
обработка исключительной ситуации
    #33176910
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Если убрать, то печататься будет в зависимости от драйвера. Это может быть с качеством "по умолчанию"; с тем, с которым печатали в последний раз; с тем, с которомы печатали из этой конкретной программы в последний раз. Любое из трех :)

а вообще, в VBA для перехвата ошибок есть команда ON ERROR GOTO LABEL/RESUME

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
        ......
        .PrintComments = xlPrintNoComments

        ON ERROR GOTO SetBadQuality    ' включаем перехват ошибок
        .PrintQuality =  600     ' на эту строку ругается на некоторых ПК
        ON ERROR GOTO  0     ' выключаем перехват ошибок вообще
        Goto PrintQualitySet
SetBadQuality:
        .PrintQuality =  300     '  может быть это отработает везде? :)
        RESUME NEXT ' снимаем флаг ошибки и передаем управление на команду следующую за сделавашей ошибку.

PrintQualitySet:
        .CenterHorizontally = False
        ......
...
Рейтинг: 0 / 0
20.07.2005, 21:09:40
| Ответить | Цитировать | Написать  
обработка исключительной ситуации
    #33179856
fabler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fabler
Участник
спасибо!
...
Рейтинг: 0 / 0
22.07.2005, 12:13:27
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обработка исключительной ситуации
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=356&tid=2185895]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 197ms
total:  285ms
созд. / загр.: 285ms
x
x
Закрыть


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