Print files from Access

[Sean]

Dear All,

In my DB there's a table of documents/images and I need to add a print
button that will print the document out using the program associated to the
file extension. Even if I can output the more common formats (DOC, XLS and
PDF) that would be "hugely" beneficial for me.

Any ideas?

Thanks, S.

 

[Guest]

Try looking at this

http://www.pacificdb.com.au/MVP/Code/ExeFile.htm

 

[Guest]

Each type of doc requires a different code. So you'd need to get the code
for each type of doc and then build a case statement to check which file
extension is associated with the current doc and run the appropriate code.
An alternative would be to use the followhyperlink to open the doc and let
the user do the printing (just a thought, they can then change the printer,
make changes to setting draft-quality, double-sided...).

To print word docs something like the following should work
strObjectPath = "P:\2004worksheets\IIS_WS.doc"

Set oWord = New Word.Application
oWord.Documents.Add (strObjectPath)
oWord.PrintOut
oWord.Quit SaveChanges:=0
Set oWord = Nothing

To print Excel files try
Dim XLApp As New Excel.Application
Dim FileName As String

FileName = "C:\Test.xls"

XLApp.Workbooks.Open FileName
XLApp.Worksheets.PrintOut
XLApp.Quit

For pdfs, acording to the help that I have found you can do this with
command line switches 'AcroRd32.exe /p filename'. So using the shell command
you should be able to print any pdf out using this technique.

Don't forget your references or late binding.

Daniel

 

[Guest]

Very nice! That's one to make note of.

Daniel