Работа с принтером
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



Работа с принтером Expand / Collapse
Автор
Сообщение
05.05.2007 5:30
новичок

новичокновичокновичокновичокновичокновичокновичокновичок

участник
Last Login: 08.05.2007 3:24
Сообщ.: 3, Visits: 12
Печатаю форму методом UserForm.PrintForm

Подскажите, пожалуйста, как:

1. Получить список доступных принтеров (хочу сделать выборку на основе собственного ListBox)

2. Задать принтер для печати своей формы (возможно, на время печати, сменить принтер, что установлен по умолчанию, а затем восстановить)

3. Указать принтеру, что нужно печатать в ориентации: "Альбомная".

4. Послать на печать: Me.PrintForm

5. Восстановить исходные настройки (по необходимости)

Application.ActivePrinter - дает возможность, увы, прочитать только значение принтера по умолчанию.

Буду очень благодарен, если получу ответ хоть на один из этих вопросов.

//connecting...

Сообщ. #913018
05.05.2007 20:53
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 14.12.2007 16:53
Сообщ.: 100, Visits: 1 707
По поводу принтеров http://forum.developing.ru/showthread.php?t=7926&highlight=%EF%F0%E8%ED%F2%E5%F0%EE%E2

Чтобы распечатать лист в Альбомной ориентации можно развернуть лист ActiveSheet.PageSetup.Orientation = xlLandscape, а потом вернуть обратьно  ActiveSheet.PageSetup.Orientation = xlPortrait

Сообщ. #913030
05.05.2007 21:27
новичок

новичокновичокновичокновичокновичокновичокновичокновичок

участник
Last Login: 08.05.2007 3:24
Сообщ.: 3, Visits: 12
Pavel55 (05.05.2007)
По поводу принтеров http://forum.developing.ru/showthread.php?t=7926&highlight=%EF%F0%E8%ED%F2%E5%F0%EE%E2

Чтобы распечатать лист в Альбомной ориентации можно развернуть лист ActiveSheet.PageSetup.Orientation = xlLandscape, а потом вернуть обратьно  ActiveSheet.PageSetup.Orientation = xlPortrait

Я печатаю ФОРМУ, а не лист!!! Для формы все эти настройки не действуют.

//connecting...

Сообщ. #913031
05.05.2007 22:27
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 14.12.2007 16:53
Сообщ.: 100, Visits: 1 707
3. Указать принтеру, что нужно печатать в ориентации: "Альбомная".

Альбомная для формы ? )) я вас правильно понял ? )

Сообщ. #913032
05.05.2007 22:58
новичок

новичокновичокновичокновичокновичокновичокновичокновичок

участник
Last Login: 08.05.2007 3:24
Сообщ.: 3, Visits: 12
Pavel55 (05.05.2007)
3. Указать принтеру, что нужно печатать в ориентации: "Альбомная".

Альбомная для формы ? )) я вас правильно понял ? )

Да, именно так. Грубо говоря для принтера нужно перевернуть форму на 90 или 270 градусов.

В VB все делается просто:

Printer.Orientation = 2

Me.PrintForm

В VBA нет объекта Printer. Нужен аналог.

//connecting...

Сообщ. #913033
11.05.2007 15:38
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 31.10.2007 14:52
Сообщ.: 127, Visits: 1 233
Форма в VB это головной объект, в VBA таким является лист. Поэтому форма в VBA не предусматривает сложной работы с принтером, скорее это отладочная печать. А что у тебя выводится? Картинки, графики? Почему выводить нужно именно на форму?
Сообщ. #913182
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl, VladConn

Время GMT +3:00, Сейчас 12:17