SET REPORTBEHAVIOR 80
>>#define FileNameOption_NoPrompte 0x00000001 && do not prompt for file name >#define FileNameOption_UseFileName 0x00000002 && use file name set by SetDefaultFileName else use document name >#define FileNameOption_JPegLevelLow 0x00020000 && Low JPeg compression > >#define FileNameOption_CCITTCompression 0x20000000 && activate CCITT compression > > >m.loPdf = CREATEOBJECT("cdintf.cdintf") >m.loPdf.DriverInit("PDF CONVERTER") >m.loPdf.FileNameOptionsEx = INT(FileNameOption_NoPrompte ; > + FileNameOption_UseFileName ; > + FileNameOption_JPegLevelLow) >m.loPdf.Orientation = 1 >m.loPdf.Resolution = 150 >m.loPdf.PaperSize = 1 > >m.loPdf.DefaultDirectory = ADDBS(JUSTDRIVE(m.lcPDFfile)) >m.loPdf.DefaultFileName = m.lcPDFfile >m.loPdf.SetDefaultConfigEx() >SET PRINTER TO NAME ("PDF CONVERTER") >REPORT FORM rptimagereport.frx NOEJECT NOCONSOLE TO PRINTER > >