Print external HTML file from NAV

Comments

• Xypher Member Posts: 297

  2008-10-22

  I had created a solution for a situation like this using 'Internet Explorer' Automation (I created it to print UPS shipment labels without GUI interface.) But it would use the default printer.
  
  I do not know of any Automation's currently out there that will do what you wish. You may just need to create a custom .NET solution yourself.
  
  Hope at least I provided some clarity.
  
  (And by no means does NAV give you the freedom to do this straight from C/AL)

  0
• alexjensen Member Posts: 41

  2008-10-23

  Xypher wrote:

  I had created a solution for a situation like this using 'Internet Explorer' Automation (I created it to print UPS shipment labels without GUI interface.) But it would use the default printer.
  
  I do not know of any Automation's currently out there that will do what you wish. You may just need to create a custom .NET solution yourself.
  
  Hope at least I provided some clarity.
  
  (And by no means does NAV give you the freedom to do this straight from C/AL)

  
  Hi Xypher
  
  Could You share You automation example so I can try that?
  
  AJ

  0
• tompynation Member Posts: 398

  2008-10-23

  Got this from somewhere on the forum here... prints every file you like i guess.
  
  
  lv_FileName := 'C:\TREM Kaarten\test.html';
  PrintFile(lv_FileName);
  
  SplitDirFile(FullString : Text[250];VAR JustDir : Text[250];VAR JustFileName : Text[250])
  ExitLoop := FALSE;
  PointBreak := STRLEN(FullString);
  WHILE (NOT ExitLoop) OR (PointBreak <= 1) DO
  IF COPYSTR(FullString,PointBreak,1) = '\' THEN BEGIN
  JustFileName := COPYSTR(FullString,PointBreak + 1);
  ExitLoop := TRUE;
  END ELSE
  PointBreak -= 1;
  JustDir := COPYSTR(FullString,1,PointBreak);
  
  PrintFile(PrintThisFile : Text[250])
  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;
  
  Used variables:
  Name DataType Subtype Length
  objShell Automation 'Microsoft Shell Controls And Automation'.Shell
  objFolder Automation 'Microsoft Shell Controls And Automation'.Folder
  objFolderItems Automation 'Microsoft Shell Controls And Automation'.FolderItems
  objFolderItem Automation 'Microsoft Shell Controls And Automation'.FolderItem
  objVerbs Automation 'Microsoft Shell Controls And Automation'.FolderItemVerbs
  Dir Text 250
  FileName Text 250

  0
• alexjensen Member Posts: 41

  2008-10-23

  tompynation wrote:

  Got this from somewhere on the forum here... prints every file you like i guess.
  
  
  lv_FileName := 'C:\TREM Kaarten\test.html';
  PrintFile(lv_FileName);
  
  SplitDirFile(FullString : Text[250];VAR JustDir : Text[250];VAR JustFileName : Text[250])
  ExitLoop := FALSE;
  PointBreak := STRLEN(FullString);
  WHILE (NOT ExitLoop) OR (PointBreak <= 1) DO
  IF COPYSTR(FullString,PointBreak,1) = '\' THEN BEGIN
  JustFileName := COPYSTR(FullString,PointBreak + 1);
  ExitLoop := TRUE;
  END ELSE
  PointBreak -= 1;
  JustDir := COPYSTR(FullString,1,PointBreak);
  
  PrintFile(PrintThisFile : Text[250])
  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;
  
  Used variables:
  Name DataType Subtype Length
  objShell Automation 'Microsoft Shell Controls And Automation'.Shell
  objFolder Automation 'Microsoft Shell Controls And Automation'.Folder
  objFolderItems Automation 'Microsoft Shell Controls And Automation'.FolderItems
  objFolderItem Automation 'Microsoft Shell Controls And Automation'.FolderItem
  objVerbs Automation 'Microsoft Shell Controls And Automation'.FolderItemVerbs
  Dir Text 250
  FileName Text 250

  
  Thanks. I'll have a look at it.
  
  Alex

  0
• mgm Member Posts: 126

  2009-07-24

  Works very fine, but is there a way not to open the application (eg. Word, Notepad) and choose a printer?

  0
• alexjensen Member Posts: 41

  2009-07-25

  mgm wrote:

  Works very fine, but is there a way not to open the application (eg. Word, Notepad) and choose a printer?

  
  I ended up using a small (and not very expensive) utility like this:
  
  http://bersoft.com/htmlprint/index.htm
  
  If there's anything like it for free I don't know ....
  
  AJ

  0