Here the code I used to apply the SaveAs Pdf functionality:
IF MESSAGEBOX('Save As PDF...','Do you want to SaveAs PDF:',question!,yesno!) = 2 THEN
RETURN
END IF
integer li_ret
string ls_projname, ls_projnum
//cch checking if there is data to convert if not just send a message
IF dw_4.rowcount() > 0 THEN
//cch construct the name of the PDF file
IF ISNULL(tab_1.tabpage_1.dw_1.object.bid_number[1]) OR TRIM(tab_1.tabpage_1.dw_1.object.bid_number[1]) = '' THEN
ls_projnum = 'No Name'
ELSE
ls_projnum = 'Proposal ' + TRIM(tab_1.tabpage_1.dw_1.object.bid_number[1])
END IF
ls_projname = trim(gstr_gen.map_padth)+ls_projnum+'.PDF'
dw_4.object.DataWindow.Export.PDF.Method = NativePDF!
//dw_4.Object.DataWindow.Export.PDF.NativePDF.ImageFormat = '1' //JPG
//===============
//cch call the SaveAs with PDF format
li_ret = dw_4.SaveAs(ls_projname, PDF!, True)
//cch check if the SaveAs was success or not
if li_ret = 1 then
//success
MESSAGEBOX('Save As PDF...','File was Generated as PDF.~rFile location: '+ls_projname)
Return
else
MESSAGEBOX('Save As PDF...','File was No Generated ~r' + String(li_ret))
Return
//...
end if
ELSE
MESSAGEBOX('Save As PDF...','There is no data to Save.~rError:.' + String(li_ret))
END IF
Also you have to consider if the name of the file has invalid caracters the file will not be created.
Hope this will help you.
Clarence.
Are you setting the Native PDF feature within the DWO (aka DW Painter) or via PowerScript st run-time?
Also, are you using a PB.INI file that you are deploying to the App EXE's folder?