Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Print XML with XSL from VB 1
- Thread starter wassup
- Start date
Get the msxml 3.0 parser from msdn.microsoft.com
Set a reference to it in your project and use code like this:
The result string you can put in a file, or display in a browser or whatever you want.
Good luck!
Jordi Reineman
Set a reference to it in your project and use code like this:
Code:
dim oXMLData as MSXML2.DomDocument
dim oXMLStyleSheet as MSXML2.DomDocument
dim sResult as String
Set oXMLData = New MSXML2.DomDocument
Set oXMLStyleSheet = New MSXML2.DomDocument
oXMLData.Load "location_of_xml_file.xml"
oXMLStyleSheet.Load "location_of_xsl_file.xsl"
'Could be TransformNode I'm not sure because I'm
'typing this by heart...
sResult = oXMLData.Transform oXMLStyleSheetThe result string you can put in a file, or display in a browser or whatever you want.
Good luck!
Jordi Reineman
-
1
- #3
That's okay as far as it goes.
Probably a simpler approach (which also actually prints the thing) would be to use the 'WebBrowser' ActiveX control. This can be found on the 'Components' dialog box under 'Microsoft Internet Controls'.
To load the XML document, do:
[tt]WebBrowser1.Navigate "<URL of XML document>"[/tt]
Then, on the WebBrowser1_DocumentComplete event, do:
[tt]WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER[/tt]
If the WebBrowser control is made invisible, the user need not even see the document being printed.
Alternatively, the dll upon which this control is based could be used instead (shdocvw.dll) with the same mechanism.
Probably a simpler approach (which also actually prints the thing) would be to use the 'WebBrowser' ActiveX control. This can be found on the 'Components' dialog box under 'Microsoft Internet Controls'.
To load the XML document, do:
[tt]WebBrowser1.Navigate "<URL of XML document>"[/tt]
Then, on the WebBrowser1_DocumentComplete event, do:
[tt]WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER[/tt]
If the WebBrowser control is made invisible, the user need not even see the document being printed.
Alternatively, the dll upon which this control is based could be used instead (shdocvw.dll) with the same mechanism.
- Status