Access 97 - Report Printers

[MrNoMotivation]

The property returns a Windows structure...it is mentioned in the final link I believe. So what you need to do is create a structure identical to it in VBA and copy the printer info into it. Once there you can access the proper member which will be the printer name.

https://tron.megaspaz.net/stuff/MyWo.../devnames.html

http://www.eggheadcafe.com/forumarch...st26075847.asp

both links should help you out.

Also.....tada! in access 2002 (XP) there is a new Printer object. on the report there will be an attribute named "Printer". That object contains all the details you need.

Phew.....that'll be £1.50 please!

Good luck.

thanks for this. much appreciated. Your chequre for £1.50 is on it's way.

[lilelvis2000]

Right. I've tried the code in a later version of Access and it's still coming up with the same result. Any ideas please?

The property returns a Windows structure...it is mentioned in the final link I believe. So what you need to do is create a structure identical to it in VBA and copy the printer info into it. Once there you can access the proper member which will be the printer name.

https://tron.megaspaz.net/stuff/MyWo.../devnames.html

http://www.eggheadcafe.com/forumarch...st26075847.asp

both links should help you out.

Also.....tada! in access 2002 (XP) there is a new Printer object. on the report there will be an attribute named "Printer". That object contains all the details you need.

Phew.....that'll be £150 please!

Good luck.

[MrNoMotivation]

Right. I've tried the code in a later version of Access and it's still coming up with the same result. Any ideas please?

[MrNoMotivation]

Did some Access 2004 (? I think) work last year. Not that different to 97 in many areas, upgrade would be fairly easy I would have thought.

still wouldn't solve the problem I've encountered.

[xoggoth]

Did some Access 2004 (? I think) work last year. Not that different to 97 in many areas, upgrade would be fairly easy I would have thought.

[MrNoMotivation]

sigh....

http://support.microsoft.com/kb/129397

and

http://www.pcreview.co.uk/forums/thread-1632295.php

and....

http://www.mvps.org/access/reports/rpt0009.htm

and...

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx


surely you can see that it is not straight text and will need decoding.

Good luck

surely it should be straight text. Thanks for all the links. I looked at just about all of these before creating the thread. Can't see them mention decoding anywhere.

[lilelvis2000]

sigh....

http://support.microsoft.com/kb/129397

and

http://www.pcreview.co.uk/forums/thread-1632295.php

and....

http://www.mvps.org/access/reports/rpt0009.htm

and...

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx


surely you can see that it is not straight text and will need decoding.

Good luck

[MrNoMotivation]

I agree it does belong in the bin.
However, the client's attitude is 'if it works don't touch it'.
The client is always right....... as long as they pay the invoice.
Anyway I've tried the code on later versions of Access and it still produces the same results.

[_V_]

No one motivated to solve this query?
Is this thread doomed?

Hang on, is it......?

No, forget it.

The deafening silence is telling you that Access 97 belongs in the dustbin of history.

Upgrade to the latest and greatest MS Access or better still put the data in a proper database and build a proper front end and reporting system.

[MrNoMotivation]

No one motivated to solve this query?
Is this thread doomed?

[MrNoMotivation]

anyone?

[MrNoMotivation]

Hi All,

wondering if one of you can help me.
I've written this piece of code in Access 97 (don't ask ) and it's not working. It should simply display in the debug window the name of the printers for the specified report.
Eventually I want it to loop round to find the printers for all the reports in the database.

Any ideas?

Cheers

--Code--
Function LocatePrinter()

Dim rpt1 As Report

Dim rptToChange As String
rptToChange = "Report1"
DoCmd.OpenReport rptToChange, acViewDesign

Set rpt1 = Reports(rptToChange)

Debug.Print (rpt1.PrtDevNames)

End Function
----------------------------------------------------

--Result

* ???? ????????????????????2

---------------------------------