Printers

[Guest]

Hello,

for some reason this does not work in Access 2000 but worls fine in 2003.
Any ideas?

Private Sub cFax_Click()
sReportName = "rPayroll"

Application.Printer = Application.Printers("WinFax")
DoCmd.OpenReport sReportName, acViewNormal, _
wherecondition:="[weDate] = " & Chr(34) & dFilter & Chr(34)

Application.Printer = Nothing
End Sub


Thanks,
Ernst.

 

[Allen Browne]

The Printers collection and Printer object were introduced in Access 2002,
so that's why it won't work in A2000.

It is possible in A2000 to manipulate the printer. Albert Kallal has the
code here:
http://www.members.shaw.ca/AlbertKallal/msaccess/printch2k.zip
or you can use PrtMip as Ken Getz explains here:
http://www.microsoft.com/AccessDev/Articles/GetzCh10.HTM