mantonio_08 wrote:..
mantonio_08 wrote:..
mantonio_08 wrote:..
METHOD PrnInfoCaja() // En la definición de mi clase le digo que herede de TImprime
local oSelf:= Self, ;
oFont,;
oFont1,;
aoR:= Array( iPEN ), ;
nLinea:= 0, ;
nCount:= 1
IMPRIME INIT "Cierre de Caja del "+::cFecha( hP0:dFeIni )
DEFINE PEN aoR[iPEN] WIDTH .8 OF ::oPrn
DEFINE FONT oFont NAME "Tahoma" SIZE 0,-14 BOLD OF ::oPrn
DEFINE FONT oFont1 NAME "Tahoma" SIZE 0,-10 OF ::oPrn
UTILPRN ::oUtil SELECT aoR[iPEN]
UTILPRN ::oUtil SELECT oFont1
nLinea:= 2
PAGE
UTILPRN ::oUtil MSG "Cierre de Caja del "+::cFecha( hP0:dFeIni ) ;
AT 2,7 TEXTFONT oFont ;
EXPANDBOX .5,.5 ROUND 75,75 CENTERED
while nCount < 100
UTILPRN ::oUtil nLinea+=.34,2 SAY StrZero( nCount++,3 )
ISEPARATOR
enddo
ENDPAGE
IMPRIME END .F.
aEval( aoR, {|o| if( Valtype( o ) == "O", o:End(), ) })
WilliamAdami wrote:mantonio, mira el link abaixo , es la ultima version de Timprime y funciona para versiones + recentes de FW.
William
viewtopic.php?f=6&t=16326&p=84537&hilit=timprime#p84537
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], nageswaragunupudi and 58 guests