Ændre udskrift fra xls til pfd

Jeg har et regneark, der er opdelt i mange sider. Her kan jeg sende hver enkelt side afsted som email, med en xls fil vedhæftet.
Jeg kunne tænke mig, at det var en PFD fil, der blev sendt afsted, er dette muligt?



Const emneTekst = "Hej: Trold næste uge"                      'Emne-tekst til mail
Const MailData = "Trold.xls"                'temp. workbook til selektiv forsendelse - oprettes automatisk
Const antalRækVogn = 37                            'pr. vogn
Const antalKolVogn = 14                            'pr. vogn
Rem =========================

Dim arkNavn                                        'Arknavn (valgte måned)
Dim ræk, hpArr(), antalSideskiftH, antalSideskiftV, rækNr
Dim indhRæk, xSti
Sub ForsendelseAfSider(ark)
    arkNavn = ark
    findSti
    opsætningAfSider
End Sub
Private Sub findSti()
    xSti = ActiveWorkbook.Path
    If Right(xSti, 1) <> "\" Then
        xSti = xSti + "\"
    End If
End Sub
Private Sub opsætningAfSider()
Dim h, v, fraRække, tilRække, fraKolonne, tilKolonne, område, antalRækker, vognNr
    ActiveWorkbook.Sheets(arkNavn).Activate
   
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    ActiveWorkbook.Sheets(arkNavn).Cells(antalRækker, 1).Select
   
Rem Hent antallet af sideskift (vandrette)
    antalSideskiftH = Worksheets(arkNavn).HPageBreaks.Count
    antalSideskiftV = Worksheets(arkNavn).VPageBreaks.Count
   
    fraRække = 1
    tilRække = fraRække + antalRækVogn - 1
    fraKolonne = 1
    tilKolonne = fraKolonne + antalKolVogn - 1
    vognNr = 0
   
Rem Opsæt sideskift med 1. række pr.side
    For h = 1 To antalSideskiftH + 1
            For v = 1 To antalSideskiftV + 1
                område = konverter(fraKolonne) + CStr(fraRække) + ":" + konverter(tilKolonne) + CStr(tilRække)
               
                n = ActiveWorkbook.Sheets(arkNavn).Cells(fraRække, fraKolonne)
                If n = "Aftale" Then
                    vognNr = vognNr + 1
                   
                    ActiveWorkbook.Sheets(arkNavn).Range(område).Select
                    Selection.Copy
                   
                    Workbooks.Add
                                     
                    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                        xlNone, SkipBlanks:=False, Transpose:=False

                    Application.CutCopyMode = False
                    ActiveSheet.Range("A1").Select
                           
                    ActiveWorkbook.SaveAs xSti + MailData
                    ActiveWindow.Close
                   
                    sendMail ActiveWorkbook.Sheets("mailadresser").Cells(vognNr, 1), emneTekst + " " + arkNavn
                   
                    Kill xSti + MailData
                    fraKolonne = tilKolonne + 1
                    tilKolonne = fraKolonne + antalKolVogn - 1
                Else
'                    Stop          'test formål
                End If
            Next v
           
            fraRække = tilRække + 1
            tilRække = fraRække + antalRækVogn - 1
            fraKolonne = 1
            tilKolonne = fraKolonne + antalKolVogn - 1
    Next h
   
    MsgBox ("Mail sendt til " + CStr(vognNr) + " vogne")
    End Sub



mvh johnny