PDF Creator - Print Options Problem

b2amol

Hi,

I have following code on a menu item on Purchase order. This is for sending PO's as PDF attached with emails. Things work fine except that the Printer Options do not get passed to printer. I would still get a pop up to enter subject & keyword and manually save file.

Could anyone please help?

Thanks,

Amol

---

IF ISCLEAR(PDFCreator) THEN
CREATE(PDFCreator);
IF ISCLEAR(PDFCreatorError) THEN
CREATE(PDFCreatorError);


// Go to selected record
PurchaseHeader := Rec;
PurchaseHeader.SETRECFILTER;

//Get email ID
Vendor.GET(PurchaseHeader."Buy-from Vendor No.");
IF Vendor."E-Mail" = '' THEN
ERROR('No Email');

// set printer
IF PrinterSelection.GET(USERID, 50001) THEN PrinterSelection.DELETE;
PrinterSelection.INIT;
PrinterSelection."Report ID" := 50001;
PrinterSelection."User ID" := USERID;
PrinterSelection."Printer Name" := 'PDFCreator';
PrinterSelection.INSERT;




// set printer options
PDFCreator.cOptions.UseAutosave := 1;
PDFCreator.cOptions.UseAutosaveDirectory := 1;
PDFCreator.cOptions.AutosaveDirectory := 'D:\Data\My Documents';
PDFCreator.cOptions.AutosaveFormat := 0;
PDFCreator.cOptions.StandardSubject := 'Purchase Order';
PDFCreator.cOptions.StandardKeywords := 'PO';



// Clear pdf creator cache
CLEAR(PDFCreator);
// run the report
REPORT.RUNMODAL(ReportID,FALSE,FALSE,PurchaseHeader);
CLEAR(PDFCreator);
PrinterSelection.DELETE;

mohana_cse06

http://mibuso.com/forum/viewtopic.php?f=5&t=18331

Administrator

[Topic moved from NAV Tips & Tricks to NAV/Navision forum]