After upgrading to Access 2010 when my module converts to PDF it puts all reports in landscape rather than portrait. I have checked all the settings in Access and everything shows to be in the proper portrait settings. I am using a 3rd party module to do this conversion. Looking around online it looks like Access now has a built in PDF converter. If this is the case, can someone please help me with the new piece of code.
Option Compare Database
On Error GoTo Err_Send_Click
Dim mydb As Database, RS As Recordset
Set mydb = DBEngine.Workspaces(0).Databases(0)
Dim docname As String, ctl As Control, strTo As String
Dim path As String, subject As String, body As String
Dim attach As String, blnSuccessful As Boolean
'Get all the email addresses for the daily stat report
Set RS = mydb.OpenRecordset("qry_emailcap_mtd")
'Report to run and make a snapshot of the report and put it on the server
path = "c:\temp\"
docname = "emailcap_mtd"
subject = "Email Address Capture Report"
body = "Daily Report is Attached"
attach = path + docname + ".rtf"
'DoCmd.OpenReport docname, A_PREVIEW
DoCmd.OutputTo acOutputReport, docname, acFormatRTF, _
'start of pdf change
Dim blRet As Boolean
Dim attachPDF As String
attachPDF = path + docname & ".pdf"
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
blRet = ConvertReportToPDF(docname, vbNullString, _
attachPDF, False, True, 150, "", "", 0, 0, 0)
' To modify the above call to force the File Save Dialog to select the name and path
' for the saved PDF file simply change the ShowSaveFileDialog param to TRUE.
'end of pdf change
'This loops through all of the email addresses and sends the report to everyone
Do Until RS.EOF
strTo = RS!Email
'Old format for sending reports with warnings
'DoCmd.SendObject A_REPORT, docname, A_FORMATTXT, strTo, , , "Daily Stat Report", , False
'New way of sending reports without warnings
' blnSuccessful = FnSafeSendEmail(strTo, subject, body, attach, "", "")
blnSuccessful = FnSafeSendEmail(strTo, subject, body, attachPDF, "", "")
'Clean up process
DoCmd.Close A_REPORT, docname
Set RS = Nothing
Set mydb = Nothing