Hola
Lei la solucion que propusiste e hice una funcion:
public function integer of_saveas (ref datawindow adw_data);string ls_path, ls_file, ls_ext, ls_savetype
int li_rc,li_resp
ls_savetype ="Portable Document Format (*.pdf),*.pdf,"+&
"Archivo Excel (*.xls),*.xls,"+&
"Archivo HTML (*.htm), *.htm,"+&
"Archivo XML (*.xml), *.xml,"+&
"Archivo DBF (*.dbf),*.dbf,"+&
"Archivo Texto (*.txt),*.txt,"+&
"Archivo Delimitado por comas (*.csv),*.csv,"+&
"Archivo de 123 (*.wk1), *.wk1,"+&
"Reporte de Powerbuilder (*.psr), *.psr"
li_rc = GetFileSaveName ( "Guardar Como...", &
ls_path, ls_file, "PDF",ls_savetype, "", &
32770)
IF li_rc = 1 Then
ls_ext = Right(ls_file,3)
CHOOSE CASE UPPER(ls_ext)
CASE "PDF"
//Metodo Distiller
adw_data.Object.DataWindow.Export.PDF.Method = Distill!
adw_data.Object.DataWindow.Printer = "Sybase DataWindow PS"
adw_data.Object.DataWindow.Export.PDF.Distill.CustomPostScript="Yes"
ls_file = ls_path
li_resp = adw_data.SaveAs(ls_file, PDF!, true)
CASE "HTM"
li_resp = adw_data.SaveAs(ls_file, HTMLTABLE!, true)
CASE "DBF"
li_resp = adw_data.SaveAs(ls_file, dBase3!, true)
CASE "XML"
li_resp = adw_data.SaveAs(ls_file, XML!, true)
CASE "XLS"
li_resp = adw_data.SaveAs(ls_file, Excel8!, true)
CASE "PSR"
li_resp = adw_data.SaveAs(ls_file, PSReport!, true)
CASE "CSV"
li_resp = adw_data.SaveAs(ls_file, CSV!, true)
CASE "TXT"
li_resp = adw_data.SaveAs(ls_file, Text!, true)
CASE "WK1"
li_resp = adw_data.SaveAs(ls_file, WK1!, true)
END CHOOSE
END IF
MessageBox(n_cst_application.gstr_app.nombreapp,"Se generó Archivo en:"+&
"~r~n"+ls_path,Exclamation!)
RETURN li_resp
end function
Hasta alli todo bien, la exportacion es satisfactoria para todos los formatos pero para el PDF al momento de ver el archivo creado este tiene 0 Bytes de tamaño, cual es el problema, estoy usando el metodo distiller y veo en el panel de impresoras la creacion de la impresora Sybase DataWindow PS pero aun asi no se genera el archivo.
Espero me ayudes por favor, gracias.