Print report in pdf format

[Paul200968]

Hi,

Would it be possible to print a report from access in PDF format to location "c:\temp\" I know this can be done manually by selecting printer "Adobe PDF" but could someone help me todo this via VBA.

Idea is that I have this form and when I press the Print button, the report is generated in PDF.

Best regards,

Paul
From Holland.

 

[RuralGuy]

Stephan Lebans has just the ticket. http://www.lebans.com/reporttopdf.htm I've used it and it works beautifully. Just make a temporary SNP report first.

 

[Paul200968]

Stephan Lebans has just the ticket. http://www.lebans.com/reporttopdf.htm I've used it and it works beautifully. Just make a temporary SNP report first.

How do I install this on my Machine?

 

[wackyd]

I set a form timer for 500 milliseconds before calling print. This way my Form_Timer function can use SendKeys() to enter directory and file name information without the user having to interact. Not eloquent but it works.

Private Sub Whatever()
Application.Printer = Application.Printers("Adobe PDF")
DoCmd.OpenReport rptName, acViewPreview
Me.TimerInterval = 500
DoCmd.PrintOut
End Sub

Private Sub Form_Timer()
SendKeys remotepath & filename & "{ENTER}"
TimerInterval = 0
End Sub

 

[RuralGuy]

How do I install this on my Machine?

Download it and open the db. The directions are inside on the forms Stephan included along with a few test reports.

 

[Paul200968]

I set a form timer for 500 milliseconds before calling print. This way my Form_Timer function can use SendKeys() to enter directory and file name information without the user having to interact. Not eloquent but it works.

Private Sub Whatever()
Application.Printer = Application.Printers("Adobe PDF")
DoCmd.OpenReport rptName, acViewPreview
Me.TimerInterval = 500
DoCmd.PrintOut
End Sub

Private Sub Form_Timer()
SendKeys remotepath & filename & "{ENTER}"
TimerInterval = 0
End Sub

Hi,

I have put the sub whatever under a button of the form which works but where do I put the Private Sub Form time? I get this dialogue box to save this file but no sendkey is sent..
Can you show me in the example location c:\test.pdf in de sendkey part. Im a new with this so any help would be very appriciated

Rgrds,

Paul.