Para Antonio - se puede hacer o No ??

Para Antonio - se puede hacer o No ??

Postby jcaro » Mon May 12, 2008 2: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  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
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Postby cmsoft » Mon May 12, 2008 3: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.
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Postby jcaro » Mon May 12, 2008 4: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
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Postby karinha » Mon May 12, 2008 4:20 pm

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.)      
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby jcaro » Mon May 12, 2008 5: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
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Postby Antonio Linares » Mon May 12, 2008 6:08 pm

Juan,

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

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jcaro » Mon May 12, 2008 8:33 pm

Antonio:

Funcionó OK !!! :P

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,
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Postby Antonio Linares » Mon May 12, 2008 9:40 pm

Juan,

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

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jcaro » Mon May 12, 2008 9:58 pm

GRACIAS Antonio , funcionó PERFECTO !!! :lol:
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 51 guests