FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Solicito un ejemplo de Tprinter
juan_arroyo_t
Posts: 196
Joined: Fri May 15, 2009 01:25 AM
Solicito un ejemplo de Tprinter
Posted: Sat Feb 27, 2010 07:02 AM

Por favor si alguien me pudiera proporcionar un ejemplo de la clase Tprinter

Gracias

Saludos desde M茅xico

Juan Arroyo
M茅xico
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Solicito un ejemplo de Tprinter
Posted: Sat Feb 27, 2010 10:14 AM
Juan,

En el wiki de FiveTech tienes la documentaci贸n y ejempos:

http://wiki.fivetechsoft.com/doku.php?id=fivewin_comandos_impresora
regards, saludos

Antonio Linares
www.fivetechsoft.com
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
Re: Solicito un ejemplo de Tprinter
Posted: Sat Feb 27, 2010 03:02 PM

Aqu铆 otro ejemplo: http://www.despachoarteaga.com.mx/imprimir.zip

juan_arroyo_t
Posts: 196
Joined: Fri May 15, 2009 01:25 AM
Re: Solicito un ejemplo de Tprinter
Posted: Sat Feb 27, 2010 08:21 PM

Maestros

Muchas gracias por sus respuestas, voy a ponerme a trabajar en esto

Saludos

Juan Arroyo
M茅xico
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Solicito un ejemplo de Tprinter
Posted: Tue Mar 02, 2010 02:41 PM

Hola Juan:

Aqui tienes un ejemplo funcional para imprimir con TPrinter:

  • Archivo: Proc5014.PRG
  • Descripcion: Listado de Pollitos Criados a Mano.
  • Fecha: 15-02-2010
  • Release: 1.0
  • Autor: Jose Javier LLoris Roig

#Include "FiveWin.CH"
STATIC cFileBMP

/------------------------------------------------------------------------------/
Function ListaPollitos( cModoImp, cDesde, cHasta, cPDF )
/------------------------------------------------------------------------------/

LOCAL oPrn, oFontC, oFontD, oFontT, oPen
LOCAL nRow := 0, nTReg := 0, nConta := 0

DEFAULT cPDF := ""

If cModoImp == "P"
PRINT oPrn NAME "Impresi贸n de Pollitos" PREVIEW
Else
PRINT oPrn NAME "Impresi贸n de Pollitos"
End

If Empty( oPrn:hDC )
Return NIL
End

If !Empty( cPDF )
oPrn:cDocument := AllTrim( cPDF )
End

DEFINE FONT oFontC NAME "Tahoma" SIZE 0, -8 BOLD OF oPrn
DEFINE FONT oFontD NAME "Tahoma" SIZE 0, -7 OF oPrn
DEFINE FONT oFontT NAME "Tahoma" SIZE 0, -7 BOLD OF oPrn
DEFINE PEN oPen WIDTH 5 OF oPrn

PAGE

  nRow   := 1
  nConta := 1
  Cabeceras( oPrn, @nRow, oFontD, oFontC, oPen )

  While ! CriaMano->( Eof() )

       If CriaMano->CodAve >= cDesde .AND. CriaMano->CodAve <= cHasta
          Detalle( oPrn, @nRow, oFontD, oPen )
          nTReg++
          nConta++
       End

       CriaMano->( DbSkip() )
       SysRefresh()

       If nConta >= 50 .AND. ! CriaMano->( Eof() )
           oPrn:EndPage()
           oPrn:StartPage()
           nRow   := 1
           nConta := 0
           Cabeceras( oPrn, @nRow, oFontD, oFontT, oPen )
       End

  End

  Totales( oPrn, nRow, oFontT, oPen, nTReg )

ENDPAGE

ENDPRINT

oFontC:End()
oFontD:End()
oFontT:End()
oPen:End()

Return NIL
/------------------------------------------------------------------------------/
STATIC Function Cabeceras( oPrn, nRow, oFontD, oFontC, oPen )
/------------------------------------------------------------------------------/

LOCAL oImageM, oImageH
LOCAL aMacho := Array( 4 )
LOCAL aHembra := Array( 4 )
LOCAL cFileM := ""
LOCAL cFileH := ""
LOCAL nRowImage := 0

/ Impresion de la Cabecera del listado /
oPrn:CmSay( nRow+=1, 3, "Procedimiento: PROC5014.PRG", oFontD )
oPrn:CmSay( nRow, 9, "LISTADO DE POLLITOS", oFontC )
oPrn:CmSay( nRow, 15, "Pagina: " + AllTrim( Str( oPrn:nPage ) ), oFontD )
oPrn:CmSay( nRow, 17, "Fecha: " + dToc( Date() ), oFontD )
oPrn:CmSay( nRow+=0.3, 3, Replicate( "-", 182 ), oFontD )

nRow+=1
oPrn:CmSay( nRow, 3, "C贸digo" , oFontC )
oPrn:CmSay( nRow, 12, "Volumen" , oFontC )
oPrn:CmSay( nRow, 13.7, "Peso" , oFontC )
nRow+=0.3
oPrn:CmSay( nRow, 3, "Ave" , oFontC )
oPrn:CmSay( nRow, 4.5, "Identificaci贸n", oFontC )
oPrn:CmSay( nRow, 9.5, "Estado" , oFontC )
oPrn:CmSay( nRow, 12, "Ingerido" , oFontC )
oPrn:CmSay( nRow, 13.7, "Actual" , oFontC )
oPrn:CmSay( nRow, 15, "Ubicaci贸n" , oFontC )
nRow+=0.5
LinePrint( oPrn, nRow, 3, nRow, 19, oPen )

Return NIL
/------------------------------------------------------------------------------/
STATIC Function Detalle( oPrn, nRow, oFontC, oPen )
/------------------------------------------------------------------------------/

nRow+=0.2
oPrn:CmSay( nRow, 3, CriaMano->CodAve, oFontC )

If MiDosBuscar( "Aves", 1, CriaMano->CodAve )
oPrn:CmSay( nRow, 4.5, Aves->Identi, oFontC )
End

oPrn:CmSay( nRow, 9.5, CriaMano->Estado, oFontC )
oPrn:CmSay( nRow, 11.8, TransForm( CriaMano->VolTot, "999,999.99 ml" ), oFontC )
oPrn:CmSay( nRow, 13.7, TransForm( CriaMano->PesAct, "999.99 gr" ) , oFontC )

If MiDosBuscar( "Ubicacio", 1, CriaMano->CodUbi )
oPrn:CmSay( nRow, 15, Ubicacio->DenUbi, oFontC )
End

nRow+=0.2

Return NIL
/------------------------------------------------------------------------------/
STATIC Function Totales( oPrn, nRow, oFont, oPen, nTReg )
/------------------------------------------------------------------------------/

LinePrint( oPrn, nRow+=0.2, 3, nRow, 19, oPen )
oPrn:CmSay( nRow+=0.2, 3, "Total Registros Seleccionados:", oFont )
oPrn:CmSay( nRow, 7, TransForm( nTReg, "9,999" ), oFont )

Return NIL

Un saludo
JLL

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
juan_arroyo_t
Posts: 196
Joined: Fri May 15, 2009 01:25 AM
Re: Solicito un ejemplo de Tprinter
Posted: Sat Mar 13, 2010 07:02 AM

Gracias JLL-FWH

No hab铆a tenido oportunidad de visitar el foro

Saludos

Juan Arroyo
M茅xico
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com
juan_arroyo_t
Posts: 196
Joined: Fri May 15, 2009 01:25 AM
Re: Solicito un ejemplo de Tprinter
Posted: Sun Mar 28, 2010 08:21 AM
Para : Jos茅 Javier Lloris R

Soy novato en esto del foro no se si para contactarte mande este mensaje como una respuesta o si deba hacerlo como un tema nuevo, por ejemplo "Para Jose Javier Lloris R", la cuesti贸n es que ya logr茅 hacer un reporte para mi aplicac贸n con el el c贸digo que me hiciste favor de enviarme.

Sucede que utilizo un campo num茅rico que no me aparece debidamente alineado, te env铆o parte de mi c贸digo y una imagen del reporte para que me hagas favor de orientarme por que no se donde est谩 la falla.

Code (fw): Select all Collapse
/*------------------------------------------------------------------------------*/
STATIC Function Detalle( oPrn, nRow, oFontC, oPen )
/*------------------------------------------------------------------------------*/

聽 聽 nRow+=0.2
聽 聽 oPrn:CmSay( nRow, 03, emp->id_emp, oFontC )
聽 聽 oPrn:CmSay( nRow, 05, emp->nomemp, oFontC )
聽 聽 oPrn:CmSay( nRow, 13, emp->esdenom, oFontC )
聽 聽 oPrn:CmSay( nRow, 15, TRANSFORM(emp->cuotaapo,"999,999.99"), oFontC )
聽 聽 nRow+=0.2

Return NIL


Esta es la imagen

[IMG=http://img718.imageshack.us/img718/3630/tprinter.th.jpg]" alt="" loading="lazy">[/img]


Gracias por tus atenciones


Saludos
Juan Arroyo
M茅xico
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Solicito un ejemplo de Tprinter
Posted: Mon Mar 29, 2010 12:34 PM

Hola,

Use el comando CENTER, LEFT 脫 RIGHT.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
jbrita
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: Solicito un ejemplo de Tprinter
Posted: Mon Mar 29, 2010 01:47 PM

Amigo prueba asi:
oPrn:CmSay( nRow, 15, TRANSFORM(emp->cuotaapo,"999,999.99"), oFontC,,,,0)

Saludos

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Solicito un ejemplo de Tprinter
Posted: Mon Mar 29, 2010 03:07 PM
Code (fw): Select all Collapse
#Include "FiveWin.Ch"

#Define PAD_LEFT 聽 聽 聽 聽 聽 聽0
#Define PAD_RIGHT 聽 聽 聽 聽 聽 1
#Define PAD_CENTER 聽 聽 聽 聽 聽2


FUNCTION...

...

RETURN NIL

FUNCTION IMPRIMIR()

聽 聽 聽 聽 nLinha := 0.50
        nColuna := 1.00

聽 聽 聽 聽 ResLinha 聽:= oPrn:nLogPixely() / 2.54
聽 聽 聽 聽 ResColuna := oPrn:nLogPixelx() / 2.54


聽 聽 聽 聽 oPrn:Say( nLinha * ResLinha, nColuna * ResColuna, 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 "RESUMO GERAL: ", oFont,, 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 CLR_BLACK,, PAD_CENTER )

聽 聽 聽 聽 nLinha ++

聽 聽 聽 聽 oPrn:Say( nLinha * ResLinha, nColuna * ResColuna, 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 "EM TICKETS...: " + 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 TRANSF( nTickets, "@E 999,999.99" ), oFont,, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 CLR_BLACK,, PAD_LEFT )


RETURN NIL
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
juan_arroyo_t
Posts: 196
Joined: Fri May 15, 2009 01:25 AM
Re: Solicito un ejemplo de Tprinter
Posted: Mon Apr 05, 2010 05:25 PM

Hola amigos :

Quiero expresarles mi agradecimiento por fin estoy elaborando mis reportes con TPrinter

Ya tambi茅n resolv铆 el aspecto del alineado de las columnas

A todos muchas gracias por sus atenciones, es un gesto que me motiva a seguir adelante en esto del FiveWin

Juan Arroyo
M茅xico
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions