topic-11096

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Para Antonio - se puede hacer o No ??
Posted: Mon May 12, 2008 02:27 PM

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 Collapse

   oDlg:Print()            // imprime hoja en blanco

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

Donde esta el error o no se puede !!

Saludos,

Juan

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Para Antonio - se puede hacer o No ??
Posted: Mon May 12, 2008 03:05 PM

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Para Antonio - se puede hacer o No ??
Posted: Mon May 12, 2008 04:10 PM

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 ,

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Para Antonio - se puede hacer o No ??
Posted: Mon May 12, 2008 04:20 PM

Code: Select all Collapse

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.)

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Para Antonio - se puede hacer o No ??
Posted: Mon May 12, 2008 05:56 PM

Gracias Karinha :

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

Saludos,

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

Antonio Linares

Posts: 44162