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"))
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...
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...
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...
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.