Impresion FROM USER

Impresion FROM USER

Postby mmercado » Fri Apr 25, 2008 12:32 pm

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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby karinha » Fri Apr 25, 2008 12:45 pm

Maestro,

El PREVIEW és MODAL?
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 mmercado » Fri Apr 25, 2008 12:55 pm

karinha wrote:El PREVIEW és MODAL?

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

Saludos.

Manuel Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby karinha » Fri Apr 25, 2008 1:50 pm

//-> 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
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 mmercado » Sat Apr 26, 2008 2:12 pm

karinha wrote://-> 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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby karinha » Mon Apr 28, 2008 5:26 pm

Excelente ejemplo Maestro,

Pero esto és by XHARBOUR no és??

Muchas gracias.

Saludos.
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 mmercado » Mon Apr 28, 2008 6:29 pm

karinha wrote: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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby karinha » Mon Apr 28, 2008 7:08 pm

mmercado wrote:
karinha wrote: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.
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 sysctrl2 » Mon Apr 28, 2008 8:02 pm

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
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

Postby fergonm » Fri Sep 19, 2008 5:14 pm

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.
Saludos. Fernando
fergonm
 
Posts: 133
Joined: Fri Nov 30, 2007 11:34 am
Location: Zaragoza (España)

Postby fergonm » Mon Sep 22, 2008 3:55 pm

Solucionado con ReleaseCapture()

Un saludo. Fernando
Saludos. Fernando
fergonm
 
Posts: 133
Joined: Fri Nov 30, 2007 11:34 am
Location: Zaragoza (España)

Postby MGA » Tue Sep 23, 2008 5:49 pm

Sr. Manuel também gostaria de testar a sua classe!
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Postby devtuxtla » Thu Sep 25, 2008 3:04 pm

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...
Visite Chiapas, el paraiso de México.
devtuxtla
 
Posts: 392
Joined: Tue Jul 29, 2008 1:55 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 51 guests