Para Antonio - se puede hacer o No ??

[jcaro]

Hola Antonio:

Quiero saber si se puede imprimir o no un dialogo en ventanas MDI, directamente desde la pantalla donde se esta editando el dialogo.

- Para mis pruebras le agrege un boton que debería hacer eso, pero no funciona.

- Se que la cosa es bien básica, pero busco imprimir lo mismo que el cliente esta viendo en la pantalla.

- He probado con :

Code: Select all  Expand view  RUN


   oDlg:Print()            // imprime hoja en blanco

   oDlg:Hardcopy(4 )   // imprime hoja en blanco



Donde esta el error o no se puede !!

Saludos,

Juan

[cmsoft]

Juan:
Yo lo hago con
oW:HardCopy(3)
y me funciona bien, espero te sirva.
Hay que ajustarlo un poco, pero va bien.

[jcaro]

Hola cmsoft:

Gracias por responder, pero no me funcionó.

Me parece que tu imprimes una ventana, yo deseo imprimir un dialogo,
con oDlg:Print()

Estoy PLOP !!!

Saludos ,

[karinha]

Code: Select all  Expand view  RUN


REDEFINE BUTTONBMP o212 ID 212 OF oDialog BITMAP 'BOT_INCLUIR' ;
action (DibWrite( "screen.bmp", DibFromBitmap( WndBitmap( oDialog:hWnd ) ) ) ,PrintDia() )

Static Function PrintDia()
   Local oPrn
   PRINT oPrn PREVIEW
      oPrn:lPrvModal := .T.
      PAGE
         SayBitmap(0.5,1.0,7.63,4.54,"screen.bmp",oPrn)
      EndPage
   EndPrint

Return(.T.)      


[jcaro]

Gracias Karinha :

Pero no funcionó, no reconoce el saybitmap() . pero me diste algunas ideas, que voy a tratar de probar.

Saludos,

[Antonio Linares]

Juan,

En vez de llamar a la función SayBitmap() que menciona João, hazlo asi:

oPrn:SayBitmap( 0, 0, "screen.bmp" )

[jcaro]

Antonio:

Funcionó OK !!!

La imagen sale pequeñita como un icono, pero investagaré como agrandarla.

Muchas gracias por tu ayuda y de todos los amigos del foro.

Saludos,

[Antonio Linares]

Juan,

Puedes especificar el tamaño usando estos parámetros:

oPrn:SayBitmap( 0, 0, "screen.bmp", <nAncho>, <nAlto> )

[jcaro]

GRACIAS Antonio , funcionó PERFECTO !!!