Sorry your browser is not supported!

if file exist("C:\DBPTEXT.DOC") then delete file "C:\DBPTEXT.DOC"

open to write 1,"C:\DBPTEXT.DOC"
input "Enter your words to be printed: ",a$
write string 1,a$
close file 1

open to write 2,"c:\script.js"
write string 2,"word = new ActiveXObject("+chr$(34)+"Word.Application"+chr$(34)+");"
write string 2,"word.Visible = false;"
write string 2,"word.Documents.Open("+chr$(34)+"C:\\DBPTEXT.DOC"+chr$(34)+");"
write string 2,"word.Options.PrintBackground = false;"
write string 2,"word.ActiveDocument.PrintOut();"
close file 2

execute file "wscript.exe","c:\script.js","C:\",1
delete file "c:\script.js"
delete file "C:\DBPTEXT.DOC"

p$=get dir$()+"\"
f$="tempfile.txt"

if file exist(p$+f$) then delete file p$+f$

crlf$=chr$(13)+chr$(10)

m$="Line 1 of some text" + crlf$ + "Line 2 of some text"
m$=m$+crlf$+"Line 3 of some text"

open to write 1,f$
write string 1,m$
close file 1

execute file "notepad","/p "+f$,p$,1

delete file f$

print "Print Complete"

wait key