Informe a PDF
Posted: 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
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