imprimir solo la pantalla activa

Mira este ejemplo o http://www.davphantom.net/index.asp...o=1&id3
puedes ver como capturar la ventana activa


DECLARE INTEGER keybd_event in Win32API INTEGER , INTEGER , INTEGER ,
INTEGER

LOCAL vk_snapshot , oWord
vk_snapshot = 44
*Copia toda la pantalla COMPLETE DEL ESCRITORIO al cipboard de Windows
=Keybd_event(vk_snapshot,1,0,0)
*Copia toda la VENTANA DE LA APLICACION ACTIVA al cipboard de Windows
*=Keybd_event(vk_snapshot,0,0,0)

oWord = createobject("word.application")
oWord.documents.add
oWord.Selection.Paste
oWord.ActiveDocument.PrintOut
do while oWord.BackgroundPrintingStatus > 0
doevents()
enddo
oWord.ActiveDocument.close(0)
oWord.Quit

release vk_snapshot , oWord
******************************



David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net

Cartagena. Colombia
Tel (5) 6621502 - 6581523 - Cel 310-6581865

"Federico" escribió en el mensaje
news:01b401c36a82$bcfb1490$
Hola, Me llamo Federico . Necesitaría saber como puedo
hacer para imprimir solo la pantalla activa al clipboard
de window o por impresora. Desde ya muchas Gracias.