Printing to a printer or pdf file

[waynetheengineer]

Hi all,

I'm trying to set up two buttons on a form:
one to print a report to my printer (which happens to be set as default printer in windows) and,
another to convert the report to a pdf file (which is not set as default)

Is there a way to write code in the buttom click event to change which printer it prints to (either \\W1\HP Color LaserJet 1500 or Adobe PDF)?

The code that I have right now prints to my default HP printer:

DoCmd.OpenReport "rptSearchReport"

which works fine. I read through the forums and there seems to be no definitive answer to how to print a report to a pdf file. The only solution I see is to change my Windows default printer to Adobe PDF, but I don't want to do that. Or maybe if the user clicks the button and a window pops up and asks them which printer they want to print to. That would be handy too.

Any suggestions?

Thanks,

Wayne.

[developing]

sounds like you need code that will call the print API....quite complicated and I have no idea how....

you could try print to file function and play around with the code...that might get teh ball rolling

[waynetheengineer]

Thanks for the reply,

I'm still fiddling with this issue, to no avail.

Anyone else have any suggestions?

[ADezii]

Hi all,

I'm trying to set up two buttons on a form:
one to print a report to my printer (which happens to be set as default printer in windows) and,
another to convert the report to a pdf file (which is not set as default)

Is there a way to write code in the buttom click event to change which printer it prints to (either \\W1\HP Color LaserJet 1500 or Adobe PDF)?

The code that I have right now prints to my default HP printer:

DoCmd.OpenReport "rptSearchReport"

which works fine. I read through the forums and there seems to be no definitive answer to how to print a report to a pdf file. The only solution I see is to change my Windows default printer to Adobe PDF, but I don't want to do that. Or maybe if the user clicks the button and a window pops up and asks them which printer they want to print to. That would be handy too.

Any suggestions?

Thanks,

Wayne.

To change the Default Printer to the LaserJet 1500, then revert back to the Default prior to the change:

Set Application.Printer = Application.Printers("\\W1\HP Color LaserJet 1500")
 
DoCmd.OpenReport "rptSearchReport"
 
'Now, set the Default Printer back to the way it was
Set Application.Printer = Nothing

To change the Default Printer to the Adobe PDF, then revert back to the Default prior to the change:

Set Application.Printer = Application.Printers("Adobe PDF")
 
DoCmd.OpenReport "rptSearchReport"
 
'Now, set the Default Printer back to the way it was
Set Application.Printer = Nothing

Hope this helps.

[waynetheengineer]

Thank you, I will try it out :)
Wayne.

To change the Default Printer to the LaserJet 1500, then revert back to the Default prior to the change:

Set Application.Printer = Application.Printers("\\W1\HP Color LaserJet 1500")
 
DoCmd.OpenReport "rptSearchReport"
 
'Now, set the Default Printer back to the way it was
Set Application.Printer = Nothing

To change the Default Printer to the Adobe PDF, then revert back to the Default prior to the change:

Set Application.Printer = Application.Printers("Adobe PDF")
 
DoCmd.OpenReport "rptSearchReport"
 
'Now, set the Default Printer back to the way it was
Set Application.Printer = Nothing

Hope this helps.