{"id":67443,"date":"2006-04-27T11:56:00","date_gmt":"2006-04-27T11:56:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2006\/04\/27\/how-can-i-print-just-the-text-area-of-an-hta\/"},"modified":"2006-04-27T11:56:00","modified_gmt":"2006-04-27T11:56:00","slug":"how-can-i-print-just-the-text-area-of-an-hta","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-print-just-the-text-area-of-an-hta\/","title":{"rendered":"How Can I Print Just the Text Area of an HTA?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! I have an HTA where information gets written to a text area. How can I print just the information found in that text area?

— DS<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, DS. We want you to level with us here: are the Scripting Guys dead? We ask that because we saw the movie The Sixth Sense<\/I> a few years ago and we understand how this life\/death thing works. If you\u2019re familiar with The Sixth Sense<\/I>, you\u2019ll recall that there were all these eerie happenings and coincidences which could only be explained by one thing: the protagonist (Bruce Willis) was dead. That made for a nifty little movie, only now we Scripting Guys seem to be involved with a bunch of eerie happenings ourselves; after all, in the span of three days we received two emails from people asking these very same question: how can I print just the text area of an HTML Application (HTA)? Coincidence? Let\u2019s hope so; otherwise there can be only one explanation: the Scripting Guys are dead.<\/P>\n\n<\/THEAD>\n\n\n
\n

Note<\/B>. Hey, don\u2019t worry about us. After all, one of the nice things about being a Scripting Guy is that it doesn\u2019t matter much whether we\u2019re dead or alive: our days go pretty much the same either way.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

<\/DIV>\n

Of course, the premise of The Sixth Sense<\/I> is that even though Bruce Willis was dead he refused to acknowledge it. Taking a page from Bruce\u2019s book, we\u2019ve decided to go ahead and answer your question as if we were are still alive, too. And we were<\/I> able to come up with an answer for you, even if it was somewhat less-than-elegant. For some reason we had the notion that there was a very straightforward way to print just the information found in a text area, but when we went looking for that answer we couldn\u2019t find it. After a brief but fruitless search we gave up and came up with a workaround that accomplishes the same thing. (And, yes, had we been alive we might have had the energy to search a little harder. But we suppose you have to expect some<\/I> drawbacks to being dead.)<\/P>\n

At any rate, here\u2019s a very simple HTA that contains just two items: a text area named DataArea and a button labeled Print<\/B>. Any time you click the Print<\/B> button the HTA saves the information in the text area to a temporary file and then uses the Shell.Application<\/B> object to print that file. Here\u2019s what the HTA code looks like:<\/P>

<html>\n<head>\n<title>HTA Test<\/title>\n<HTA:APPLICATION \n     ID=”objTest” \n     APPLICATIONNAME=”HTA Test”\n     SCROLL=”yes”\n     SINGLEINSTANCE=”yes”\n>\n<\/head><\/p>\n
<SCRIPT LANGUAGE=”VBScript”><\/p>\n
    Sub PrintText\n        strText = DataArea.Value<\/p>\n
        Set objFSO = CreateObject(“Scripting.FileSystemObject”)\n        strFileName = “temporary_print_file.txt”\n        Set objFile = objFSO.CreateTextFile(strFileName)\n        objFile.Write strText\n        objFile.Close<\/p>\n
        Set objFile = objFSO.GetFile(strFileName)\n        strPath = objFSO.GetParentFolderName(objFile)<\/p>\n
        Set objShell = CreateObject(“Shell.Application”)\n        Set objFolder = objShell.Namespace(strPath) \n        Set objFolderItem = objFolder.ParseName(strFileName)\n        objFolderItem.InvokeVerbEx(“Print”)<\/p>\n
    End Sub<\/p>\n
<\/SCRIPT><\/p>\n
<body>\n    <textarea name=”DataArea” rows=5 cols=70><\/textarea><p>\n    <input id=runbutton  type=”button” value=”Print” name=”run_button” onClick=”PrintText”>\n<\/body>\n<\/html>\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. Before we begin explaining how this all works we should note that we won\u2019t<\/I> discuss the code involved in creating the HTA itself; our focus will be solely on the script that prints the information found in the text area. If you need some background information on creating HTAs then you might check out our HTA Developer\u2019s Center<\/B><\/A>.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
So how do we print the information found in the text area? Well, we start by grabbing the information found in the text area and storing it in a variable named strText:<\/P>
strText = DataArea.Value\n<\/PRE>\n
After we\u2019ve done that we encounter a block of code that creates an instance of the FileSystemObject<\/B> and provides a file name (temporary_print_file.txt) for our temporary print file. We then call the CreateTextFile<\/B> method to create this file (by default it will be created in the same folder as the HTA itself). As soon as the file has been created we call the Write<\/B> method to write the value of strText to the file, then close the file. All that takes place here:<\/P>
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nstrFileName = “temporary_print_file.txt”\nSet objFile = objFSO.CreateTextFile(strFileName)\nobjFile.Write strText\nobjFile.Close\n<\/PRE>\n
What did that gain us? Well, we\u2019ve now taken all the information found in the text area and saved it to a separate text file. That means that, in order to print just the information in the text area, we don\u2019t have to do anything any more complicated than simply printing the text file. And that\u2019s what we do here:<\/P>
Set objFile = objFSO.GetFile(strFileName)\nstrPath = objFSO.GetParentFolderName(objFile)<\/p>\n
Set objShell = CreateObject(“Shell.Application”)\nSet objFolder = objShell.Namespace(strPath) \nSet objFolderItem = objFolder.ParseName(strFileName)\nobjFolderItem.InvokeVerbEx(“Print”)\n<\/PRE>\n
Yes, that looks a tiny bit complicated, but that\u2019s primarily because of the eccentricities of the Shell object: in particular, the Shell object requires us to take a slightly roundabout path before we can bind to – and then print – the file. But don\u2019t let the looks deceive you: if you\u2019ve seen The Sixth Sense<\/I> then you know that things aren\u2019t always what they seem.<\/P>\n
In other words, we first use the GetFile<\/B> method to bind the FileSystemObject to our temporary file. After that we call the GetParentFolderName<\/B> method to determine the path to the folder where the temporary file lives (for example, if our temporary file is named C:\\Scripts\\temporary_print_file.txt then the parent folder will be C:\\Scripts). That\u2019s what the first two lines of code do:<\/P>
Set objFile = objFSO.GetFile(strFileName)\nstrPath = objFSO.GetParentFolderName(objFile)\n<\/PRE>\n
Once the folder path is stashed away in the variable strPath we can then create the Shell.Application object and use the Namespace<\/B> method to bind to the folder. In turn, we can call the ParseName<\/B> method on that folder, passing as the sole parameter the variable strFileName (which is storing the name of the temporary file for us). That\u2019s somewhat-goofy syntax, but the net result is that by binding to a folder and then passing ParseName the name of a file within that folder we get a FolderItem<\/B> object pointing directly to our text file. Is that good? You bet it is: once the Shell object is bound to the file we can then use the InvokeVerbEx<\/B> method to call any of the commands that appear on the context menu of that file.<\/P>\n
Is that<\/I> good? Of course. If you right-click a .txt file, one of the commands available to you is Print<\/B>; if you then click Print<\/B> the file will automatically be printed to the default printer. As we noted, the InvokeVerbEx method enables us to run any of the commands found on the context menu of a file. To call the Print command, and thus automatically print the file to the default printer, all we need to do is execute this line of code:<\/P>
objFolderItem.InvokeVerbEx(“Print”)\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. What if you don\u2019t like the way the text file prints out? In that case, try saving the file as temporary_print_file.htm and see if you like that<\/I> printout any better.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
That\u2019s all we need to do. Once the file has been sent to the printer we\u2019re home free.<\/P>\n
Pretty cool, huh? We have to tell you, it\u2019s scripts like this one that make you glad to be alive.<\/P>\n
Well, for those of you who are<\/I> alive, that is.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I have an HTA where information gets written to a text area. How can I print just the information found in that text area?— DS Hey, DS. We want you to level with us here: are the Scripting Guys dead? We ask that because we saw the movie The Sixth Sense a […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[40,3,4,707,5,30],"class_list":["post-67443","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-filesystemobject","tag-scripting-guy","tag-scripting-techniques","tag-shell-application","tag-vbscript","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I have an HTA where information gets written to a text area. How can I print just the information found in that text area?— DS Hey, DS. We want you to level with us here: are the Scripting Guys dead? We ask that because we saw the movie The Sixth Sense a […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67443","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=67443"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67443\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=67443"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=67443"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=67443"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}