Print report to specific printer from combobox containing installed printers

[convexcube]

Hello Everyone,

I have a form setup with a combo box that displays a list of the installed printers using code from this article. On a button called cmdPrint I have placed code in the OnClick event from the same article to print to a specific printer. The specific printer being the one chosen in the combo box. In the line:

Set rpt.Printer = Application.Printers("Acrobat PFDWriter")

I have replaced "Acrobat PFDWriter" with the name of my combo box - "cbxPrinters" (without the quotes).
Clicking cmdPrint yields this error:
"Run-time error '5': Invalid Call or Argument"
When I type in the name of the printer it works.

I'd be grateful if someone (ADezii?) could help me nut this one out? Its fairly urgent as I am installing the finished product on Monday.

Kind Regards,
Ken Farrawell

[ADezii]

Hello Everyone,

I have a form setup with a combo box that displays a list of the installed printers using code from this article. On a button called cmdPrint I have placed code in the OnClick event from the same article to print to a specific printer. The specific printer being the one chosen in the combo box. In the line:

Set rpt.Printer = Application.Printers("Acrobat PFDWriter")

I have replaced "Acrobat PFDWriter" with the name of my combo box - "cbxPrinters" (without the quotes).
Clicking cmdPrint yields this error:
"Run-time error '5': Invalid Call or Argument"
When I type in the name of the printer it works.

I'd be grateful if someone (ADezii?) could help me nut this one out? Its fairly urgent as I am installing the finished product on Monday.

Kind Regards,
Ken Farrawell

Try this Syntax, and let me know how you make out:

Dim rpt As Report
 
If IsNull(Me![cbxPrinters]) Then Exit Sub
 
DoCmd.OpenReport "<Your Report Name>", View:=acViewPreview, WindowMode:=acHidden
 
Set rpt = Reports("<Your Report Name>")
Set rpt.Printer = Application.Printers(Me![cbxPrinters])
 
DoCmd.OpenReport "<Your Report Name>", acViewNormal
DoCmd.Close acReport, "<Your Report Name>"

[convexcube]

Try this Syntax, and let me know how you make out:

Dim rpt As Report
 
If IsNull(Me![cbxPrinters]) Then Exit Sub
 
DoCmd.OpenReport "<Your Report Name>", View:=acViewPreview, WindowMode:=acHidden
 
Set rpt = Reports("<Your Report Name>")
Set rpt.Printer = Application.Printers(Me![cbxPrinters])
 
DoCmd.OpenReport "<Your Report Name>", acViewNormal
DoCmd.Close acReport, "<Your Report Name>"

Thanks for your response Adezii,

I have tried the code you suggested:

DoCmd.OpenReport "rptComplaint", View:=acViewPreview, WindowMode:=acHidden
Set rpt = Reports("rptComplaint")
Set rpt.Printer = Application.Printers(Me![cbxPrinters])
DoCmd.OpenReport "rptComplaint", acViewNormal
DoCmd.Close acReport, "rptComplaint"

Unfortunately the result is the same error. Any other ideas?

Kind Regards,
Ken Farrawell

[convexcube]

Hi Adezii,

I've got an update. I was able to avoid the error by using the Cstr function:

Set rpt.Printer = Application.Printers(CStr(Me![cbxPrinters]))
 

Thanks for your efforts though.

Kind Regards,
Ken Farrawell

[ADezii]

Hi Adezii,

I've got an update. I was able to avoid the error by using the Cstr function:

Set rpt.Printer = Application.Printers(CStr(Me![cbxPrinters]))
 

Thanks for your efforts though.

Kind Regards,
Ken Farrawell

Nice fix, my next suggestion was something along the lines of:

Set rpt.Printer = Application.Printers("'" & Me![cbxPrinters] & "'")

[convexcube]

Nice fix, my next suggestion was something along the lines of:

Set rpt.Printer = Application.Printers("'" & Me![cbxPrinters] & "'")

That was actually the first thing I tried, but it didn't work either & neither did:

Set rpt.Printer = Application.Printers(Chr(34) & Me![cbxPrinters] & Chr(34))

Kind Regards,
Ken Farrawell

[ADezii]

That was actually the first thing I tried, but it didn't work either & neither did:

Set rpt.Printer = Application.Printers(Chr(34) & Me![cbxPrinters] & Chr(34))

Kind Regards,
Ken Farrawell

The only logical assumption is that it must be specifically Data Typed as String. A Variant (Sub Type of String) would be returned by Me![cbxPrinters], but I guess that isn't good enough.