Download WORD2003 - 98.66 KB

Introduction

Printing solution that is reliable, easy to mantain, no extra libary's needed. Just download the free microsoft word viewer. Make some XML templates and let the code do the job for you.

Background

I search a long time to get a good printing solution that can fill templates an has no need for drivers or references.

First of all we need a word 2003 (or 2007) xml file that whe use as template source. Because this file is not zipped like docx or open source alternatif odt, whe can read it as a text file and replace without any problem. In the XML template we put the 'TEXTFIELDS' for replacement. In this example i use the markers #...# as replacement field.

First whe read the source, do the replacements and the write the temp printfile. So we always keep the original template.

        Dim BRONDOCUMENT As String = "test.xml"  ' Path to then source file
        TEMPDOCUMENT = "TEMP.xml" 'this will be the output file with the changes
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(BRONDOCUMENT)
        ' WORD xml is not zipped so whe can copy an replace everthing without any problem
        ' I used a external textfile with the data to change. In this example whe do it inhere.
        fileContents = fileContents.Replace("#NAAM#", "DE CAT BEN")
        fileContents = fileContents.Replace("#ADRESSE#", "A STREET IN BELGIUM")
        fileContents = fileContents.Replace("#URL#", "%22http://www.hetnetop.be/%22">WWW.HETNETOP.BE")
        fileContents = fileContents.Replace("#CITY#", "KORTRIJK")
        'etc....
        My.Computer.FileSystem.WriteAllText(TEMPDOCUMENT, fileContents, False)

Then all whe have to do is to make some buttons, PRINT, VIEW/EDIT and CANCEL.

        'PRINT 
        'be sure that xml is assosiated with MS word or wordview
        Process.Start(TEMPDOCUMENT) 'you can at some minimized window things here
        'STARTS PRINTING THE WORD VIEW WITH SENDKEYS 
        My.Computer.Keyboard.SendKeys("^p", True)
        My.Computer.Keyboard.SendKeys("~", True)
        'CLOSE THE WORDVIEUW PROGRAM
        For Each proc As Process In Process.GetProcesses()
            If InStr(proc.MainWindowTitle, "TEMP") > 0 Then proc.CloseMainWindow()
        Next

The VIEW/EDIT button is just the cal 'PROCESS.START(TEMPDOCUMENT)' so whe get the wordviewer in all his glory.

And guess, CANCEL just ends the program... Really simple ! but very fast and reliable in practice !

With this concept you can make a universal windows printer engine, with input the source template XML file and one with fill DATA, so you can call this from other programs, without all the problems that printing can give you...

PS: the test file TEST.XML is in the bind\debug dir.

universal printing without office