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;
0
Comments
-Mohana
http://mohana-dynamicsnav.blogspot.in/
https://www.facebook.com/MohanaDynamicsNav