Printer Fax Nightmare!!

[AndyShuter]

This problem has been bugging me for ages.

I have a database that is running across a network (Server 2000)

Each of the client machines needs to access Zetafax Server and certain printers in the pool.

What I need to do is set a command that will set the default printer to Zetafax Printer, then change it back again!

This is the code I am trying to make work

Private Sub Command69_Click()
Dim prtDefault As Printer

Set Application.Printer = Application.Printers("Zetafax Printer)
Set Application.Printer.Port = "192.168.16.101"
Set Application.Printer.DriverName = "winspool"
Set prtDefault = Application.Printer
DoCmd.OpenReport "rptSentToSub", acViewNormal
DoCmd.Close acForm, "dialoguebox1"
Set Application.Printer = Application.Printers(0)
End Sub

I know something is wrong cos it aint working!!

Pls help
Cheers

 

[RonB]

My initial thought is that you may be missing " from first line
eg......("Zetafax Printer) should read ("Zetafax Printer")