Export access form to ppt

[osmosisgg]

I am toying with the idea of exporting a form (which is by filter) into a ppt presentation. I am currently printing to pdf and there is nothing really wrong with it; other than the seeing half the page empty at the bottom. Anyhow, I found the below code on msdn microsoft. I attempted it with changing employees to match my table, and lastname to match the filtered field. This just gives me a ppt with Hi page 1 and the value within the filered field. (53 slides of this) So, is it possible that something like the below could work by using the form's layout (by the filtered product) without having to copy, paste and manipulate one by one in ppt?

Sub cmdPowerPoint_Click()
    Dim db As Database, rs As Recordset
    Dim ppObj As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
 
    On Error GoTo err_cmdOLEPowerPoint
 
    ' Open up a recordset on the Employees table.
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Employees", dbOpenDynaset)
 
    ' Open up an instance of Powerpoint.
    Set ppObj = New PowerPoint.Application
    Set ppPres = ppObj.Presentations.Add
 
    ' Setup the set of slides and populate them with data from the
    ' set of records.
    With ppPres
        While Not rs.EOF
            With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
                .Shapes(1).TextFrame.TextRange.Text = "Hi!  Page " & rs.AbsolutePosition + 1
                .SlideShowTransition.EntryEffect = ppEffectFade
                With .Shapes(2).TextFrame.TextRange
                    .Text = CStr(rs.Fields("LastName").Value)
                    .Characters.Font.Color.RGB = RGB(255, 0, 255)
                    .Characters.Font.Shadow = True
                End With
                .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50
            End With
            rs.MoveNext
        Wend
    End With
 
    ' Run the show.
    ppPres.SlideShowSettings.Run
 
    Exit Sub
 
err_cmdOLEPowerPoint:
    MsgBox Err.Number & " " & Err.Description
End Sub

[osmosisgg]

Sorry, been so busy this week. oh darn. I read some stuff on late binding it seems it's not that easy and folks seem to have issues with it. I believe in you :)