Printing from a Res file

[Trav]

To extract a file from a res file u use the code

 sBuffer = StrConv(LoadResData("Easy", "CERTIFICATES"), vbUnicode)
        Open App.Path & "\Easy.DOC" For Output As #1
        Print #1, sBuffer

then

'Kill App.Path & "\Easy.DOC"

to close the file

but all that does it loads the file but doesnt print it
how do i print it
thanks Trav

[Rick Bull]

What do you mean by "Print"? What you're doing there is outputing/writing the text to the file App.Path & "\Easy.DOC". I may be misunderstanding you here, but why are you using Kill, should you use Close #1 to close the file? Kill just deletes the file you have just created.

[Trav]

yeaa i know that the kil command deltes the file and the close command stops it


but how do i actually print

that code only opens the file but doesnt print it

do u know how to make it print

[Microbasic]

By "Print," do you mean print to printer or print to the file?

[Trav]

print to the printer
do u know how to do it

[Microbasic]

Dim ws As New Word.Application
Dim wa As Word.Document
Buffer = StrConv(LoadResData("Easy", "CERTIFICATES"), vbUnicode)
Open App.Path & "\Easy.DOC" For Output As #1
    Print #1, sBuffer
    ws.Visible = False
    Set wa = ws.Documents.Open(App.Path & "\Easy.DOC")
    wa.Activate
    ws.PrintOuts
Close #1
Kill App.Path & "\Easy.DOC"

[Microbasic]

You need to add the reference "Microsoft Word 8.0 Object Library" in Project|References.

[Trav]

i cant find the tlb file in object libary for ms word

can u zip it pls and send it to me

[Trav]

dont worry found it
i have 10.0

[Trav]

it doesnt like the code

printout

[Microbasic]

1 |) 0 |\| ' 7 |< |\| 0 \/\/ 1 F 10.0 1 5 7 |-| 3 5 /-\ |\/| 3.

Try it and see if it works. I don't know if 10.0 is the same.

[Microbasic]

Sorry then...I don't have office XP...and giving you my TLB won't help a bit.

[Trav]

thanks heaps for your help

Trav