Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
22.10.2004, 12:43:42
|
|||
|---|---|---|---|
|
|||
VBA for Excel |
|||
|
#18+
Как программно вызвать диалоговое окно для выбора ПРИНТЕРА ? СПАСИБО ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.10.2004, 14:01:23
|
|||
|---|---|---|---|
VBA for Excel |
|||
|
#18+
The CommonDialog control provides an interface between Visual Basic and the routines in the Microsoft Windows dynamic-link library Commdlg.dll . To create a dialog box using this control, Commdlg.dll must be in your Microsoft Windows SYSTEM directory. The CommonDialog control can display the following dialogs using the specified method. Method Dialog Displayed ShowOpen Show Open Dialog Box ShowSave Show Save As Dialog Box ShowColor Show Color Dialog Box ShowFont Show Font Dialog Box ShowPrinter Show Print or Print Options Dialog Box ShowHelp Invokes the Windows Help Engine ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.10.2004, 17:24:20
|
|||
|---|---|---|---|
|
|||
VBA for Excel |
|||
|
#18+
Processor, Нижеидущий код печатает, но НЕДОСТАТОК в том, что жёстко привязан к принтеру Range("A1:J26").Select ' вручную выделять диапазон, который будем ' распечатывать, НЕ НАДО ! ActiveSheet.PageSetup.PrintArea = "$A$1:$J$26" Application.ActivePrinter = "Canon LASER SHOT LBP-1120 (\\YURA\CanonLAS)" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Canon LASER SHOT LBP-1120 (\\YURA\CanonLAS)", Collate:=True' Как организовать вывд диалогового окна для выбора принтера ? СПАСИБО ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2168708]: |
0ms |
get settings: |
9ms |
get forum list: |
17ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
35ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
2ms |
| others: | 213ms |
| total: | 347ms |
| 0 / 0 |
