Добрый день.
Подскажи реализацию :
Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?

Может есть какие компоненты ?

Да уж.

ctrl+prtsc - Paint - shift+ins

(1) программно ?
(0) есть

(2) Второе слово пропустил. :)
Но все равно Sendkey никто не отменил.

(3) можно пример ?

Нетленка 2.2
СкриншотОкна|ScreenShotWindow
Описание: Выполняет снимок окна и сохранение рисунка в файл с сжатием в формат JPG.
Параметры:
- ДескрипторОкна – 4-х байтное, целое, беззнаковое. Принимает дескриптор окна, для которого будет выполняться снимок.
Качество– 1 байтное, целое, беззнаковое. Принимает качество сжатия рисунка. 100 – максимальное качество, 0 – минимальное качество.
КоэффициентМасштабирования– 4 байтное, дробное, знаковое. Принимает увеличение масштаба рисунка1.
ИмяФайла – строка. Принимает имя файла, который будет создан и будет содержать рисунок.
Возвращаемое значение: значение не возвращается.

При наличии IrfanView.

irfan = "C:\bin\i_view32.exe"
irfan_options = "/capture=0 /resize=(25p,25p) /convert="
scr_file = "C:\screen.png"
cmd = """" & irfan & """ " & irfan_options & scr_file
WshShell.Run cmd, 1, true

а без наличия ?

Да я думал, что у Sendkey есть команда prtsc, но не нашел. Каюсь.

Хотя нет.
Так сработает?

Dim wsh
Set wsh = createobject("wscript.shell")
wsh.Sendkeys "{PRTSC}"

Спасибо за варианты. Буду рассматривать.
Очень заинтриговала компонента НЕТЛЕНКА.
Поддерживает ли компонента версию 1С 7.7. ???

http://www.karat-e.ru/files/hrenshoot.rar

(там конечно небольшая обманка)

(9) нет

http://www.infostart.ru/profile/174/projects/806/

Большое спасибо, задача решена...
благодаря вашей помощи....