Estimados...
Estoy generados listados en PDF por medio de PDFCREATOR y necesito hacerles unas consultas:
1) Como direcciono el documento generado (pdf) a una carpeta determinada.
2) Luego de haber generado el documento (pdf) como hacer para visualizarlo desde FW.
3) Tengo problema cuando luego de terminar la impresión realizo la numeracion de las páginas por media de NumeraPag (ver abajo) y el programa se va por error, creo que PDFCREATOR no me reconoce " Local nPaginas := Len( oPrn:aMeta ) ", ya que si saco dicha numeracion y trabaja normalmente.
desde ya muchas gracias
david
argentina
Estoy generados listados en PDF por medio de PDFCREATOR y necesito hacerles unas consultas:
1) Como direcciono el documento generado (pdf) a una carpeta determinada.
2) Luego de haber generado el documento (pdf) como hacer para visualizarlo desde FW.
3) Tengo problema cuando luego de terminar la impresión realizo la numeracion de las páginas por media de NumeraPag (ver abajo) y el programa se va por error, creo que PDFCREATOR no me reconoce " Local nPaginas := Len( oPrn:aMeta ) ", ya que si saco dicha numeracion y trabaja normalmente.
desde ya muchas gracias
david
argentina
Function NumeraPag(oPrn,oFont,nRowStep,nColStep)
Local x
Local nPaginas := Len( oPrn:aMeta )
Local aFicheros := oPrn:aMeta
*Local nCol := 70*nColStep //colocalo donde prefieras
*Local nLin := 64*nRowStep // ""
Local nCol := nColStep //colocalo donde prefieras
Local nLin := nRowStep // ""
if nPaginas < 1 // Solamente una pagina
Return Nil
endif
oPrn:aMeta := {}
FOR x := 1 TO nPaginas
PageBegin()
oPrn:ImportWMF( aFicheros[ x ], .F. )
oPrn:CmSay( nLin,nCol ,'Pagina: '+Alltrim( Str( x ) ) +"/" + Alltrim( Str( nPaginas ) ) ,oFont,,,,2)
PageEnd()
NEXT
Return NIl