Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.basic.visual.misc > #119

Re: Shell to print

Show all headers | View raw

| The following code has worked for years in sending a click-selected .doc
| file to any default printer:
| sFile = Filename
|
|
| Call RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWDEFAULT)
|

  I searched for RunShellExecute, since it's not actually
a function. Apparently you copied and pasted your code
from Randy Birch's site? Posting only the call to his
function doesn't provide any clues about what the problem
might be.

   I don't use Word, but I know it has an automation
interface. If all you want to do is to automate Word
to print Word .docs, then why not just automate Word?

  You'd need to check the details, but I think it's something
like this:

Set OWord = CreateObject("Word.Application")
Set Doc = OWord.Documents.Open("C:\Windows\Desktop\some.doc")
Doc.Print
Doc.Close
Set Doc = Nothing
OWord.Quit
Set OWord = Nothing

(I posted the code as late-bound so as to not cause
problems if, for some reason, you might run your software
on a PC without Word installed.)

| The document loads into MSOffice Word 2007, prints, and the program 
returns
| to continue as expected.  So far, this has been flawless in systems
| operating with Win XP.  Since attempting to run this from Windows 7,
| however, the function does not work.  Does Win 7 execute Shells 
differently?
|
| Any ideas appreciated.
|
| Don
|
|
|
|
|
| 

Back to comp.lang.basic.visual.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Shell to print "D&JG" <donandjane1@dodo.com.au> - 2011-05-04 10:22 +1000
  Re: Shell to print "Auric__" <not.my.real@email.address> - 2011-05-04 08:05 +0000
  Re: Shell to print Dee Earley <dee.earley@icode.co.uk> - 2011-05-04 11:27 +0100
  Re: Shell to print "Mayayana" <mayayana@invalid.nospam> - 2011-05-04 08:48 -0400
  Re: Shell to print Steve Rindsberg <steve@rdpslides.com> - 2011-05-04 12:11 -0400
  Re: Shell to print "D&JG" <donandjane1@dodo.com.au> - 2011-05-06 09:36 +1000
    Re: Shell to print Dee Earley <dee.earley@icode.co.uk> - 2011-05-06 08:57 +0100
      Re: Shell to print "D&JG" <donandjane1@dodo.com.au> - 2011-06-06 23:41 +1000

csiph-web