Print a PDF file from a page

ssi

I got the following code snippet from this forum for printing PDF documents from a NAV form:

CREATE(objShell, TRUE);
_FileName := 'any file.pdf';
Dir := 'c:\';
objFolder := objShell.NameSpace(Dir); 
objFolderItems := objFolder.Items; 
objFolderItem := objFolderItems.Item(_FileName);
objVerbs := objFolderItem.Verbs; 
i := -1;

REPEAT 
  i += 1;
  IF i < objVerbs.Count THEN objVerb := objVerbs.Item(i);
UNTIL (STRPOS(UPPERCASE(objVerb.Name), 'PRINT') > 0) OR (i >= objVerbs.Count);

IF i <= objVerbs.Count THEN BEGIN
  objVerb.DoIt; 
END ELSE 
  ERROR('Could not print file.');

This works great in Classic but does not work in RTC from a page. (NOTE: I added the TRUE parameter in the CREATE statement for use with NST.) The error I get is: "Automation variable has not been instantiated." When I add CREATE statements for the other Automation variables (not needed in Classic) I get the following error: "Unable to create an instance of Automation Server System._ComObject...."

Has anyone been able to either use this code or found a way to print PDF files from a page?

kriki

[Topic moved from 'NAV 2009' forum to 'NAV/Navision' forum]

ara3n

When you call create add an additional parameter so that it instantiated at the client.

CREATE(objShell, TRUE,TRUE);