Printer refernce module

[Guest]

I am running Office 2000 and need to know what reference module the printers
collection is in. I tried using Application.Printer = "My printer name" and
when I compile it, it returns the error "Compile error, Method or data member
not found"

TIA

 

[Allen Browne]

Try setting the Printer object to the member of the Printers collection:
Set Printer = Printers("My printer name")

 

[Guest]

I am still getting a compile error on the Printers part of "Set Printer =
Printers("PRT15 on PASVR") of Sub or Function not defined.

TIA

 

[Allen Browne]

Loop through the Printers collection, and confirm that you have this name
exactly as Access understands it.

 

[Albert D.Kallal]

The printer collection was NOT available until access 2002.

So, you do NOT have the printer object in that older version...

If you need to set the printer, or list available printers, I have a sample
form and code that works for a2000 here

http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html

Grab the printer switch example in the above...

 

[Guest]

I will look at this.

Thanks

 

[Guest]

Hi Albert,

I got your code and tried it but I got a sub or function not defiend on the
SeDefaultPtr line. Here is my code:

Private Sub butPrintLetter_Click()
On Error GoTo butPrintLetter_Err

Dim intResponse As Integer
Dim objWord As Word.Application
Dim strCurrentPtr As String
Dim strDefaultPtr As String


strCurrentPtr = GetDefaultPtr

strDefaultPtr = "\\PASVR\PRT15"
SetDefaultPtr strDefaultPtr

Select Case QueryType