Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Если вы хотите просто распечатать Userform, то можно воспользоваться этой командой
Код
Userform1.PrintForm
P.S.: Для каких мониторов созданы такие формы? Это вообще жесть какая-то. Я вообще ничего не смог на них увидеть и нажать.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Alemox, Сижу за 23 дюймовым, форма нормальная, все видно, все можно понажимать. Предполагаю что за 15 - 17 дюймами будет действительно жесь. Форма расчитана на широкий экран.
"Все гениальное просто, а все простое гениально!!!"
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Alemox написал: Если вы хотите просто распечатать Userform, то можно воспользоваться этой командойКод ? 1Userform1.PrintFormP.S.: Для каких мониторов созданы такие формы? Это вообще жесть какая-то. Я вообще ничего не смог на них увидеть и нажать.
PrintForm распечатывает только часть формы, и никаких настроек его нет. У меня 17" и отлично все видно, плюс товарищ на Серфэйсе ее пользует и все ок. Вообще это опросный лист, который как раз и надо распечатать и выдать людям, что бы они заполняли.
По поводу размера: посмотрите в настройках печати на вкладке "Страница" - Макет страницы - Норм. размер: у меня есть и установлена галка в ЧекБоксе "Автоматически уменьшать большой документ...". Или попробуйте выбрать "По размеру бумаги". Кроме того, имеется возможность изменять масштаб. Экспериментируйте...
Тот же самый PrintScreen можно сделать без подключения библиотеки.
Код
Application.SendKeys "(%{1068})"
DoEvents
Далее можно создать временный лист вставить картинку распечатать и удалить. Можно склеить с кодом, который предложил sokol92.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Здравствуйте, коллега. "Хрен редьки..." Код из #17 может привести к проблемам с индикатором NumsLock, а для того, чтобы эти проблемы решить, понадобится подключение библиотек.
sokol92, Согласен полностью. Есть такая проблема с NumLock, сам пару раз наталкивался. Но вдруг.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.