Private Sub email_PDF_Click()
On Error GoTo Err_Handler
Dim strSubject As String
strSubject = Me.[TextboxName]
DoCmd.SendObject acSendReport, "rpt_print_out", acFormatPDF, , , , "strSubject"
Exit_Handler:
Exit Sub
Err_Handler:
Select Case Err.Number
Case 2501 'cancelled, ignore...