FUNCTION Main()
WHILE( .NOT. EOF() )
SYSREFRESH()
HB_GCALL( .F. ) // Pruebe con .T. tambien.
IF EOF()
EXIT
ENDIF
VTA1100PE() // Tiene que generar un archivo PDF.
// DELAY
SYSWAIT( 3.5 ) // tu criterio.
// O use un MsgRun() con MsgWait() desde la FUNCTION inicial..
SKIP
ENDDO
HB_GCALL( .T. )
RETURN NIL
MsgRun( "GENERANDO UN MILLION DE ARCHIVOS...", ;
"Por Favor, Espere! Voy Generar... ", ;
{ || WinExec( LLAMA_PDFS() ), 3 } )
FUNCTION Main()
LOCAL oPrn
// Pedro, ¿Cuántos dígitos devuelve este código?
LOCAL cPdfFile := m->xpath + "\PDF\" + StrZero( 99->cliente, 6 ) + ".pdf"
DO WHILE !Eof()
SYSREFRESH()
PRINTER oPrn FILE cPdfFile
.
.
.
SELE 99
SKIP
ENDDO
RETURN NIL
// C:\FWH\SAMPLES\TESTEPDF.PRG para Pedro Luis
#Include "FiveWin.ch"
FUNCTION Main()
FIELD STREET
LOCAL oPrn, oFont, cAlias, nLinea := 0.25
USE Customer NEW
GO TOP
cAlias := ALIAS()
PRINT oPrn PREVIEW FILE "Pedro.pdf" // ADOBE
// PRINT oPrn FILE "Pedro.pdf" // Silencio directo en el archivo.pdf
DEFINE FONT oFont NAME "Courier New" SIZE 0, - 10 BOLD OF oPrn
oPrn:SetPortrait()
PAGE
WHILE( .NOT. EOF() )
SYSREFRESH()
IF EOF()
EXIT
ENDIF
@ nLinea, 1 PRINT TO oPrn TEXT ( cAlias )->STREET SIZE 6, 9 ;
INCHES FONT oFont
nLinea := nLinea + .35
IF nLinea >= 18 // +- Salto de pagina
nLinea := .25
ENDPAGE // Nueva pagina
PAGE
ENDIF
SKIP
ENDDO
ENDPAGE
ENDPRINT
RELEASE FONT oFont
RETURN NIL
// FIN / END
karinha wrote:
- Code: Select all Expand view
FUNCTION Main()
WHILE( .NOT. EOF() )
SYSREFRESH()
HB_GCALL( .F. ) // Pruebe con .T. tambien.
IF EOF()
EXIT
ENDIF
VTA1100PE() // Tiene que generar un archivo PDF.
// DELAY
SYSWAIT( 3.5 ) // tu criterio.
// O use un MsgRun() con MsgWait() desde la FUNCTION inicial..
SKIP
ENDDO
HB_GCALL( .T. )
RETURN NIL
Regards, saludos.
FiveWiDi wrote:Sysrefresh() = Syswait()
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Enrico Maria Giordano, Google [Bot] and 32 guests