PDF Output Problem

[Juan Bofill]

In omnis 4.3.2.1 there is no 

But the following creates a PDF with the EMAIL of the student as name of the file.

Set report name CONDUCT
Send to printer
Calculate lpath as sys(10)
Do FileOps.$splitpathname(lpath,drive,directory,filename,extension) Returns error
Calculate iappleScript as con('tell application "Finder" to get name of the startup disk')
Do $runapplescript(iappleScript,drive) Returns #F
Do FileOps.$splitpathname(lpath,drive,directory,filename,extension) Returns error

;  Do FileOps.$putfilename(lpath,'Save print file','*.pdf',directory) Returns lError
;  Do FileOps.$createdir(lpath) Returns lError

Do FileOps.$selectdirectory(lpath,'Enter path to save file to') Returns lStatus

Calculate ldestfile as lpath
Calculate ldestfile as con(lpath,':',EMAIL1,".pdf")

Calculate $root.$prefs.$osxdesttype as kPDF
Calculate $root.$prefs.$osxdestname as ldestfile
Prepare for print
Print record
End print
Close print or export file
Quit method 

> On Sep 6, 2020, at 2:46 AM, Bruno Del Sol <bruno.delsol at bydesign.fr> wrote:
> 
> Do $cdevice.$assign(kDevOmnisPDF)