Informe a PDF

Post Reply
domingo
Posts: 3
Joined: Fri May 13, 2011 8:44 am

Informe a PDF

Post by domingo »

Estoy intentando enviar un informe a PDF utilizando NCONVERT.
El problema es q cuando el informe tiene varias paginas me crea un fichero por cada pagina.
Existe alguna manera de crear un unico fichero con todas las paginas?

For X=1 To Len(oPrn:aMeta)
WF:=cTarget+"\PDF\"+Substr(WNFactura,1,1)+Alltrim(Str(X))+Substr(WNFactura,4)+".WMF"
WF1:=cTarget+"\PDF\"+Substr(WNFactura,1,1)+Alltrim(Str(X))+Substr(WNFactura,4)+".PDF"
WF:=Alltrim(WF)
WF1:=Alltrim(WF1)

If File(WF)
Delete File &WF
End
If File(WF1)
Delete File &WF1
End
CopyFile(oPrn:aMeta[X],WF)

Sele 14
cEj:="NCONVERT.EXE -quiet -out pdf -c 5 &WF "
WaitRun( cEj )

If File(WF)
* Delete File &WF
End
Next
If cPdf
oPrn:End()
End

If nFra=1
MsgAlert("Ha sido creado el fichero" + Chr(13) + WF1 )
End
End

Este es el codigo que utilizo
Podriais echarme una mano

Gracias
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Informe a PDF

Post by karinha »

João Santos - São Paulo - Brasil
leondefrancia
Posts: 33
Joined: Tue Jun 08, 2010 3:34 pm
Location: Rosario, Santa Fe. Argentina

Re: Informe a PDF

Post by leondefrancia »

Karinha, si querés, podés probar esta otra alternativa:
http://forums.fivetechsupport.com/viewt ... 38#p111738
Libreria: FWH/FWHX 9.11 25/November/2009
Harbour: Harbour 2.0.0 Beta2
Compilador: Borland C++ 5.5.1 versión 32 bits
Editor de Recursos: UEstudio 10.0
Gestor de B.D: A.D.A ( Advantage Data Architect )
S.O: Windows XP
domingo
Posts: 3
Joined: Fri May 13, 2011 8:44 am

Re: Informe a PDF

Post by domingo »

Muchas gracais por la contestacion.
Pero esta opcion requiere instalar PDF Creator.
Y quisiera seguri usando Nconvert que es mas "opaco" para el usuario.

Gracias
Post Reply