How to email and print userform, worksheet and pdfs from file in one print job?

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
                                      ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1


Sub CallUserForm()
    frmempform.Show
End Sub


Public Sub SavePDF()
    Dim myPath As String
    Dim myName As String
    Dim myfile As String


    myPath = ThisWorkbook.Path & "\"
    DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    DoEvents
    Workbooks.Add
    Application.Wait Now + TimeValue("00:00:01")


    With ActiveSheet
        myName = frmempform.txtempid.Value
        .Name = myName
        .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
        .Range("A1").Select
        .PageSetup.Orientation = xlLandscape
        .PageSetup.FitToPagesWide = 1
        .PageSetup.Zoom = False
        .ExportAsFixedFormat Type:=xlTypePDF, filename:=myPath & myName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                             IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    ActiveWorkbook.Close False


    myfile = myPath & myName & ".pdf"


    Call Send_Mail(myfile)
    Kill myfile
End Sub


Sub Send_Mail(myfile As String)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strTo As String
    Dim strSubject As String
    Dim strBody As String


    strTo = frmempform.txtempid.Value
    strSubject = "New Customer Info"
    strBody = "Please see attached"


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    With OutMail
        .To = strTo
        .CC = ""
        .BCC = ""
        .Subject = strSubject
        .Body = strBody
        .Attachments.Add myfile


        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub