Impresion FROM USER

[mmercado]

Hola amigos:

Cuando mando una impresión con la cláusula FROM USER, el cuadro de diálogo no responde al mouse, tengo que clickear en la barra de tareas para que responda. Lo mismo ocurre a veces con PREVIEW

A alguien le ha sucedido? Como lo ha resuelto?

Gracias.

Manuel Mercado

[karinha]

Maestro,

El PREVIEW és MODAL?

[mmercado]

El PREVIEW és MODAL?

Hola João, Sí y obviamente el diálogo FROM USER también.

Saludos.

Manuel Mercado

[karinha]

//-> Haces asi, maestro??

Code: Select all  Expand view  RUN

// Printing in portrait and in landscape -> \samples\testprn3.prg

#include "fivewin.ch"

#define PAD_LEFT            0
#define PAD_RIGHT           1
#define PAD_CENTER          2

function Main()
   local oPrn, oFont, oPen
   Local nLinI, nColI, nLinF, nColF


   PRINT oPrn NAME "Impresión en Vertical.." PREVIEW MODAL FROM USER
      DEFINE FONT oFont NAME "Arial" SIZE 0, -10 BOLD OF oPrn
      DEFINE PEN oPen WIDTH  2                        OF oPrn

      oPrn:SetPage(9)  // A4
      oPrn:SetPortrait() //Vertical
      PAGE
         nLinI :=  0.90
         nColI :=  0.90
         nLinF := 28.6
         nColF := 20.0
         oPrn:Cmtr2Pix(@nLinI, @nColI)
         oPrn:cmtr2Pix(@nLinF, @nColF)
         oPrn:Box(nLinI, nColI, nLinF, nColF, oPen  )
         oPrn:cmSay( 1.0,  1.0, "Superior Izquierda", oFont,,CLR_BLACK,,PAD_LEFT  )
         oPrn:cmSay( 1.0, 10.5, "Superior Centro",    oFont,,CLR_BLACK,,PAD_CENTER )
         oPrn:cmSay( 1.0, 20.0, "Superior Derecha",   oFont,,CLR_BLACK,,PAD_RIGHT )
         oPrn:cmSay(28.0,  1.0, "Inferior Izquierda", oFont,,CLR_BLACK,,PAD_LEFT  )
         oPrn:cmSay(28.0, 10.5, "Inferior Centro",    oFont,,CLR_BLACK,,PAD_CENTER )
         oPrn:cmSay(28.0, 20.0, "Inferior Derecha",   oFont,,CLR_BLACK,,PAD_RIGHT )
      ENDPAGE
   ENDPRINT


   PRINT oPrn NAME "Impresion Horizontal..." PREVIEW MODAL FROM USER
      DEFINE FONT oFont NAME "Arial" SIZE 0, -10 BOLD OF oPrn
      DEFINE PEN oPen WIDTH  2                        OF oPrn
      oPrn:SetPage(9)  //a4
      oPrn:SetLandscape() // HORIZONTAL
      PAGE
         nLinI :=  0.90
         nColI :=  0.90
         nLinF := 20.1
         nColF := 28.6
         oPrn:Cmtr2Pix(@nLinI, @nColI)
         oPrn:cmtr2Pix(@nLinF, @nColF)
         oPrn:Box(nLinI, nColI, nLinF, nColF, oPen  )
         oPrn:cmSay( 1.0,  1.0, "Superior Izquierda", oFont,,CLR_BLACK,,PAD_LEFT  )
         oPrn:cmSay( 1.0, 14.8, "Superior Centro",    oFont,,CLR_BLACK,,PAD_CENTER )
         oPrn:cmSay( 1.0, 28.0, "Superior Derecha",   oFont,,CLR_BLACK,,PAD_RIGHT )
         oPrn:cmSay(19.5,  1.0, "Inferior Izquierda", oFont,,CLR_BLACK,,PAD_LEFT  )
         oPrn:cmSay(19.5, 14.8, "Inferior Centro",    oFont,,CLR_BLACK,,PAD_CENTER )
         oPrn:cmSay(19.5, 28.0, "Inferior Derecha",   oFont,,CLR_BLACK,,PAD_RIGHT )
      ENDPAGE
   ENDPRINT

return nil


[mmercado]

//-> Haces asi, maestro??

Hola João, gracias,

Ya lo solucioné con un simple ReleaseCapture(), a propósito déjame mostrarte como imprimo mis reportes con FiveWin (si imprimiste con clipper puro, te recordará algo):

Code: Select all  Expand view  RUN

   If lPrev
      SET DEVICE TO PRINTER oPrint PREVIEW MODAL
   Else
      SET DEVICE TO PRINTER oPrint FROM USER
   EndIf

   If oPrint == Nil
      Return Nil
   EndIf

   While ! EoF()

      @  0,  0 SAY P_N + P_2W + Trim( cNomEmp ) + P_S_2W ALIGN CP_CENTER
      @  2,  0 SAY "Hoja de trabajo" ALIGN CP_CENTER
      @  3,  0 SAY P_C + "Nómina " + LTrim( Str( nNomSel ) ) + Space( 1 ) + Trim( cNomNom ) + ;
                   If( nDepsel > 0, "  Departamento " + LTrim( Str( nDepsel ) ) + Space( 1 ) + ;
                   Trim( MGVARN->DESCRI ), "" )
      @  4, 50 SAY "C       o       n       c       e       p       t       o       s"
      @  5,  0 SAY P_U + "T    r    a    b    a    j    a    d   o   r" + P_S_U
      @  5, 45 SAY cGuion
      nLine := 6

      While nLine < 60 .and. ! EoF()

         cNombre := LTrim( Str( MGTRAB->NUMEMP ) ) + Space( 1 ) + Trim( MGTRAB->APEPAT ) + Space( 1 ) + ;
                    Trim( MGTRAB->APEMAT ) + Space( 1 ) + Trim( MGTRAB->NOMBRE )

         @nLine,  0 SAY cNombre PAD "_" SIZE 44
         @nLine++, 45 SAY cGuion

         DbSkip()
      EndDo
   EndDo

   While nLine < 59
      @nLine++, 0 SAY Gui( 44, 1, "_" ) + cGuion
   EndDo

   @nLine,  0 SAY "TOTALES:" PAD " " SIZE 44 ALIGN CP_RIGHT
   @nLine, 45 SAY cGuion

   SET DEVICE TO SCREEN


Un abrazo.

Manuel Mercado

[karinha]

Excelente ejemplo Maestro,

Pero esto és by XHARBOUR no és??

Muchas gracias.

Saludos.

[mmercado]

Pero esto és by XHARBOUR no és??

Por supuesto que es con xHarbour.

Claro, ayudado por una clase mía que se llama "TCliPrt" con la que puedes imprimir con espaciado fijo (incluso usando fuentes TTF proporcionales) y que emula la sintaxis usada por Clipper (era una de las cosas que más extrañaba de Clipper, por eso me propuse desarrollarla).

Le estoy dando una arregladita para que esté de verse, aunque yo ya la uso en todos mis reportes todavía no está terminada, luego te la mando para que me des tu opinión.

Un abrazo.

Manuel Mercado

[karinha]

Pero esto és by XHARBOUR no és??

Por supuesto que es con xHarbour.

Claro, ayudado por una clase mía que se llama "TCliPrt" con la que puedes imprimir con espaciado fijo (incluso usando fuentes TTF proporcionales) y que emula la sintaxis usada por Clipper (era una de las cosas que más extrañaba de Clipper, por eso me propuse desarrollarla).

Le estoy dando una arregladita para que esté de verse, aunque yo ya la uso en todos mis reportes todavía no está terminada, luego te la mando para que me des tu opinión.

Un abrazo.

Manuel Mercado

Me posto ansioso para testar.

Asi que pruenta, enviame, maestro!!

Esto és mui importante para la comunidad de fivewinneros.

Best regards, saludos.

[sysctrl2]

Maestro Manuel,

estoy ancioso por probar su class,

como olvidar a clipper,,

set device to printer
@ 1,1 say "Saludos Cordiales"
set device to screen

[fergonm]

Tengo el mismo problema al imprimir. Con el cuadro de dialogo de seleccionar impresoras no funciona el ratón. He leido la contestación y no entiendo como se resolvió. Pueden ayudarme.

Muchas gracias y un saludo.

[fergonm]

Solucionado con ReleaseCapture()

Un saludo. Fernando

[MGA]

Sr. Manuel também gostaria de testar a sua classe!

[devtuxtla]

Hola Manuel.

Desde to clase Cliprt se puede emitir el reporte a una impresora especifica, como en el caso de la clase PRINTER donde la clausula TO puedes direccionar tu impresion a una impresora en RED, en el caso de la Cliprt, direcciona a un puerto LPT1 o LPT2, sin embargo, complica la impresion cuando deseamos emitir dos impresiones, una a un puerto en RED y la otra en forma local, usando la mismca clase Cliprt en el mismo paso.

Como podemos solucionarlo con esta clase?

Y como siempre un excelente clase maestro...