Change Access Default Printer 1

[scamquist58]

I am trying to change the default printer when an Access form loads.
The following code works:

Private Sub Form_Load()
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(7)
Set prtDefault = Application.Printer
End Sub

However, I want to specify the printer name.

DEVICE NAME: \\PP-FP01\Office Cannon iR-ADV C3230i UFR II
DRIVER NAME: winspool
PORT: 192.168.0.25

Any ideas on how to use device name or port or whatever to accomplish this?
Thank you in advance.



When the form closes, it reverts back to the default using:
Private Sub Form_Unload(Cancel As Integer)
'~~>To restore the Printer object, to the Windows default
'~~> Tis destroys the object. MS Access then reconstructs it - from the default Windows printer.
Set Application.Printer = Nothing
End Sub

 

[combo]

Printer can be called by index or device name.
Application.Printers.Count return number of printers.
Application.Printers(i) returns Printer, that, among others, can return DeviceName or DriverName.

combo

 

[scamquist58]

If I use any of the following statements:
Set Application.Printer = Application.Printers("\\PP-FP01\Office Cannon iR-ADV C3230i UFR II")
Set Application.Printer = Application.Printers("Office Cannon iR-ADV C3230i UFR II")
Set Application.Printer = Application.Printers("192.168.0.25")

I the the error:

Run-time error '5':
Invalid procedure call or argument

 

[combo]

Any of [tt] Application.Printers(i).DeviceName[/tt] returns one of the three arguments in your examples?

combo

 

[scamquist58]

I tried

Set Application.Printer = Application.Printers(i)."192.168.0.25"
Set Application.Printer = Application.Printers(i)."\\PP-FP01\Office Cannon iR-ADV C3230i UFR II"
Set Application.Printer = Application.Printers(i)."\\PP-FP01\Office Cannon iR-ADV C3230i UFR II"

Returns
Complie error.
Expected: identifier or bracketed expression

 

[combo]

The syntax is ok (i.e. Set Application.Printer = Application.Printers("Office Cannon iR-ADV C3230i UFR II") ). Probably none of arguments used is not a valid printer name in the system. Check names (Debug.Print Application.Printers(0).DeviceName and next ) in immediate window.

combo

 

[scamquist58]

From immediate window

Debug.Print Application.Printers(7).DeviceName
\\PP-FP01\Office Canon iR-ADV C3230i UFR II

full code that works
Private Sub Form_Load()
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(7)
Set prtDefault = Application.Printer
End Sub

code below fails with
Complie error.
Expected: identifier or bracketed expression

Private Sub Form_Load()
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(i)."\\PP-FP01\Office Canon iR-ADV C3230i UFR II"
Set prtDefault = Application.Printer
End Sub

 

[combo]

The proper syntax:
Set Application.Printer = Application.Printers(("\\PP-FP01\Office Canon iR-ADV C3230i UFR II")

If not, does this work?:
Set Application.Printer = Application.Printers(Application.Printers(7).DeviceName)
If so, the spelling should be checked.


combo

 

[scamquist58]

Combo,
Thank you for the assistance.
This is the line that worked for me

Set Application.Printer = Application.Printers(("\\PP-FP01\Office Canon iR-ADV C3230i UFR II"))