AddTrueTypeFont Function throws Exception

Public Function PrintApp(ByVal eid As Integer, ByVal cid As Integer, ByVal comments As String, ByVal filepath As String) As String

        Try

            Dim empsignature As String
            Dim currentyear As String = "2011"

            Using db = New BenefitsAdminDataContext

            '612 X 792
            QP.NewDocument()
            QP.SetOrigin(1)
            QP.SetTextAlign(1)

            QP.AddTrueTypeFont("Times New Roman", 1)
            QP.SetTextSize(12)
            QP.SetTextColor(0, 0, 139)
           

            Dim cdata = From c In db.Customers
                        Join e In db.Employees On e.CustomerID Equals c.CustomerID
                        Where e.EmployeeID = eid AndAlso e.CustomerID = cid
                        Select New With {.CustomerName = c.CustomerName}
            Dim cname As String = String.Empty
            For Each c In cdata
               ' code that prints all column information in given coordinates using DrawText function
            Next

                        QP.DrawText(306, 25, cname)

            QP.DrawLine(0, 45, 612, 45)

             QP.SaveToFile(filepath+"ApplicationConfirmation_"+c.Name+".pdf')

            End Using

           

        Catch ex As Exception

            SystemMessage.Text = ex.ToString()

        End Try

    End Function

 

So the calling function passes a new 'eid' parameter everytime it is called. There are about 400 eids in the table and after 180 eids are processed in the PrintApp function, I get this error on the AddTrueTypeFont line.

You are creating hundreds of documents in memory but never releasing them.

Andrew.