En el tema de exportar a PDF desde el Preview, en vez de llamar a Word > 2007,¿por qué no pones esta función que usa nconvert y funciona muy bien?:
En rpreview.prg
En el MENU oMenu
//PDF
If oDevice:aMeta != NIl
MENUITEM "Exportar a PDF" ACTION PDFSave( oDevice:aMeta ) RESOURCE "SAVE"
SEPARATOR
EndIf
//Function PDFSAVE(aFiles)
Local cString
Local cDestino
Local cFile:="PDF" + StrTran(TIME(),":","") + ".pdf"
Local x:=0
Local cTexto:=""
cDestino := cGetFile("Exportar Informe (*.pdf) | *.pdf |","Guardar como...", NIL, nil, .T., .T. )
If Len(aFiles) = 1
cString:="nConvert -o " + cDestino + " -quiet -out pdf -c 5 " + aFiles[1]
Else
If File("listaemf.txt")
Delete File listaemf.txt
Endif
For x=1 To Len(aFiles)
cTexto:=cTexto + aFiles[x] + CRLF
Next
MemoWrit("listaemf.txt",cTexto )
cString:="nConvert -multi -o " + cDestino + " -quiet -out pdf -c 5 -l listaemf.txt"
Endif
MsgRun("Espere","Exportando a PDF", {|| WAITRUN(cString,0 ) } )
MsgAlert("El fichero "+ AllTrim(cDestino) +".PDF ha sido creado correctamente.", " Exportar PDF ")
Return Nil