Print files with an associated application

detlef · 2005-08-15

Hi
I am looking at writing a function that takes a filename as parameter. This function would then print the file as setup in the registry for that particular file type. (These types are setup under Folder options, File Types)
Is there an easy way of doing this?
Any help appreciated.

Cheers
Detlef

kine · 2005-08-15

I think that it will be not so easy... because many application are not able to automatically print document... (because you have no way how to say them - print this file...)

rsfairbanks · 2005-08-16

Taking one file type, how would you print a pdf file, for example one stored in a BLOB?

Waldo · 2005-08-16

I'm struggling with the same problem.

I have a blob field, which contains a file (extension can be a number of things). I would like to print this file to a pdf file and send through email.

I think the solution is to make a print-procedure for every possible extension (.doc, .xls, .pdf, ...).

any suggestions?

kine · 2005-08-16

May be that you need something like http://www.softpedia.com/get/System/OS- ... ware.shtml

I did not test it, I only found it on google... may be that there is some interface to this or some similar application...

detlef · 2005-08-16

Looks like the only way to do this is to read the registry, run the specified shell command and then optionally send dde messages (Office documents use dde). This must be, what Windows Explorer does, too (if you right-click and select print).

Waldo · 2005-08-17

Just finished my app. What I did:

- Export BLOB field to file name (extension is in attachment table).
- validate extension:
- if .doc: use word automation
- if .xls: use excel automation
- if .mpp: use project automation
- ...
- convert to pdf with amyuni
- open mail message with pdf document

may be not the best way to do it, but it works like a charm!

pdj · 2005-08-20

But you can drag almost any filetype to the printer window, and then it will print the file using the right appliction. There must be a way to do the same using some API...

Waldo · 2005-08-20

Well, to be honest, I think it works internally different then what you think.

You notice that when you right click on different files in explorer, sometimes you get the "print" functionality, sometimes you don't get it. So it depends on the filetype whether you can print the file or not.

detlef · 2005-09-14

Good news. I've found a way to do it!
The following Function is using Automation Objects from 'Microsoft Shell Controls And Automation' (Shell32).

PrintFile( FileName : Text[250])
CREATE(objShell);
IF NOT EXISTS(FileName) THEN
EXIT;
SplitDirFile(FileName,Dir,File);
objFolder := objShell.NameSpace(Dir);
objFolderItems := objFolder.Items;
objFolderItem := objFolderItems.Item(File);
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 %1\Make sure you use a file extension you can print from Windows Explorer', FileName);

This works fine. But now I have the next problem:
What I want to do is print several files into one PDF file using Amyuni and then email the file.
objVerb.DoIt; will do the printing but it does it asynchronus.
I need to find a way to find out when the printing is finished so I can pick up the pdf file and attach it to an email.
If I put a sleep(5000) command after all the PrintFile calls it actually delays the printing.

The only way I can think of is using the timer and check if the datetime on the file has not changed in x seconds. I hate using the timer! it stuffs up debugging.
Anybody got any ideas?

Cheers
Detlef

pdj · 2006-09-12

I would like to convert a html-file to pdf using Amyuni so we don't need yet another component.
Did you find a solution to the problem?

DarrenBezzant · 2007-01-17

I've tried your above code and it seems to work for everything but word documents - it will open the word Application, but doesnt even open the file.

Anyone taken this any farther?

Ashu_bhatt · 2008-01-10

Anybody wants to share the code of functions SplitDirFile function

Thanks

MrWho · 2008-02-07

Thank u "Detlef", you're awesome, it worked like a charm still

jversusj · 2009-02-04

thanks! this helped me tremendously in printing a PDF file!

Sog · 2009-05-14

Works great
Unfortunatly the solution is not language independant (or even setup independant).
So the only warning I could give is go to the file you want to print, right click it and see if you which command you can use to print it. Replace the 'PRINT' text in the code with the command specified.
Nevertheless thank you!

MBerger · 2009-05-14

You could make an OCX or DLL exposing Windows' ShellExecute API function, then use that as an automation variable from NAV to call it with the 'print' option.

sneha · 2011-06-01

What I am missing here? It's not working for me. I have added a below code to Report-On Post Report trigger. I want to print the Terms pdf file immediately to purchase order print. When I click on PO -> Print, I'm getting only the PO report page out, not the terms page.

PrintThisFile := 'D:\Terms.pdf';
IF ISCLEAR(objShell) THEN
CREATE(objShell);

SplitDirFile(PrintThisFile,Dir,FileName);

objFolder := objShell.NameSpace(Dir);
objFolderItems := objFolder.Items;
objFolderItem := objFolderItems.Item(FileName);
objFolderItem.InvokeVerb('PRINT');
objVerbs := objFolderItem.Verbs;

gdkve9 · 2012-03-06

Below is the code I have used in the PrintFile function:

FileName := 'E:\OrderDetails.pdf';
Dir := 'E:\';
File := 'OrderDetails.pdf';
CREATE(objShell); 
IF NOT EXISTS(FileName) THEN 
  EXIT;
//SplitDirFile(FileName,Dir,File);
objFolder := objShell.NameSpace(Dir); 
objFolderItems := objFolder.Items; 
objFolderItem := objFolderItems.Item(File); 
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 %1\Make sure you use a file extension you can print from Windows Explorer', FileName);

The function runs but their is no print initiated. Kindly suggest what could be the problem in my code? I am stuck ](*,)

Awaiting for the responses. Thank u all in advance..

pdj · 2012-03-06

Your code won't work if PRINT is the last option. I'll suggest you replace

IF i<=objVerbs.Count THEN BEGIN

with

IF STRPOS(UPPERCASE(objVerb.Name),'PRINT')>0 THEN BEGIN

(Untested - it just seemed wrong)

Edit: Not true - my bad...

BernardJ · 2012-03-06

Try to debug with

FileName := 'E:\OrderDetails.pdf';
Dir := 'E:\';
File := 'OrderDetails.pdf';
CREATE(objShell); 
IF NOT EXISTS(FileName) THEN 
  EXIT;
//SplitDirFile(FileName,Dir,File);
objFolder := objShell.NameSpace(Dir); 
objFolderItems := objFolder.Items; 
objFolderItem := objFolderItems.Item(File); 
objVerbs := objFolderItem.Verbs; 
i:=-1; 
REPEAT 
  i+=1; 
  IF i<objVerbs.Count THEN BEGIN
    objVerb := objVerbs.Item(i);
    IF CONFIRM(objVerb.Name) THEN;  // debug purpose
  END;
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 %1\Make sure you use a file extension you can print from Windows Explorer', FileName);

gdkve9 · 2012-03-07

Hi Peter,

pdj wrote:
Your code won't work if PRINT is the last option. I'll suggest you replace
IF i<=objVerbs.Count THEN BEGIN
with
IF STRPOS(UPPERCASE(objVerb.Name),'PRINT')>0 THEN BEGIN

I tried working on your suggestion, but in both the cases the codeunit run outputs properties window as in the attachment instead intiating for the print.

Any idea resolving the same would be very thankful..

Awaiting for the reply.

pdj · 2012-03-07

Now I have tried your code, and I think I know your problem. First of all I got a compilation error with the variabel File, as it is a reservered word. That indicated you have translated your code to English for Mibuso 8)

But that leads to the next problem. I guess you are not using an English PDF reader, and therefore the menu-item in the pdf-file context-menu-item does not contain "PRINT". In my case I had to change it to "UDSKRIV" which is Danish for PRINT.

The reason for your code showing the Properties window, is that it is the last menu-item. My original suggestion should prevent that, but then you just get the error below :?

I'll suggest you add this line to troubleshoot:

MESSAGE('%1: %2',i,objVerb.Name);

just before the UNTIL line...

There doesn't seem to be a language independent solution to this problem, so you will need some way to determine which text to look for at the specifik users setup. It could be different for each file-extension for each user. ](*,)

Print files with an associated application

Comments

Categories