Informe a PDF

Informe a PDF

Postby domingo » Wed May 18, 2011 11:28 am

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
domingo
 
Posts: 3
Joined: Fri May 13, 2011 8:44 am

Re: Informe a PDF

Postby karinha » Wed May 18, 2011 1:51 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7416
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Informe a PDF

Postby leondefrancia » Wed May 18, 2011 5:33 pm

Karinha, si querés, podés probar esta otra alternativa:
viewtopic.php?f=6&t=21029&p=111738#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
leondefrancia
 
Posts: 33
Joined: Tue Jun 08, 2010 3:34 pm
Location: Rosario, Santa Fe. Argentina

Re: Informe a PDF

Postby domingo » Thu May 19, 2011 9:47 am

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
domingo
 
Posts: 3
Joined: Fri May 13, 2011 8:44 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 76 guests