toddring

Public Function SendEMail(Attachment1 As String, Attachment2 As String, DatePart As String)

'Dim db As DAO.Database
'Dim MailList As DAO.Recordset
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim Subjectline As String
Dim MyBodyText As String
Dim MyEmailAddress As String

toddring

Function PrintToPDF(SrcFile As String, DestPath As String, DestFile As String, ShowPdf As Boolean)
On Error GoTo PrintToPDF_Err

'ScrFile = The report Name to output as PDF
'DestPath = Destination path for PDF file
'DestFile = File name for the PDF file being created without the file extension
'Showpdf = launch acrobat and display the PDF file or not


    DoCmd.OutputTo acOutputReport, SrcFile, "PDFFormat(*.pdf)", DestPath & DestFile & ".pdf", ShowPdf, "", 0, acExportQualityPrint

toddring

<table>
	<caption> 
This table shows the matches of the <acroynm title="Major League Baseball">MLB</acronym>. It contains the following headings, Date of game, Visiting team, Home team, Game Time.
	</caption>		
	<thead>	
<tr>
<th>Date</th>
<th>Visiting Team</th>
<th>Home Team</th>
<th>Game Time</th>

toddring

Public Function LastRow()
    LastRow = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Function

Public Function FirstRow()
    FirstRow = Cells.Find(What:="*", After:=Range("IV65536"), LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
End Function