NewFooterCode

 If (blnShowPageNumbers) Then
            Select Case RSApp.PreferredLanguageID

                Case LanguageIDs.English
                    If (document.PageNumber < 10) Then
                        cb.BeginText()
                        cb.SetFontAndSize(bf, 12)
                        cb.SetTextMatrix(document.PageSize.GetRight(103), document.PageSize.GetBottom(46))
                        cb.ShowText(text)
                        cb.EndText()
                        Dim len As Single = bf.GetWidthPoint(text, 12)
                        cb.AddTemplate(footerTemplate, document.PageSize.GetRight(103) + len,
                                       document.PageSize.GetBottom(46))
                    Else
                        cb.BeginText()
                        cb.SetFontAndSize(bf, 12)
                        cb.SetTextMatrix(document.PageSize.GetRight(116), document.PageSize.GetBottom(46))
                        cb.ShowText(text)
                        cb.EndText()
                        Dim len As Single = bf.GetWidthPoint(text, 12)
                        cb.AddTemplate(footerTemplate, document.PageSize.GetRight(116) + len,
                                       document.PageSize.GetBottom(46))
                    End If


                Case LanguageIDs.Spanish
                    If (document.PageNumber < 10) Then

                    cb.BeginText()
                    cb.SetFontAndSize(bf, 12)
                    cb.SetTextMatrix(document.PageSize.GetRight(116), document.PageSize.GetBottom(46))
                    cb.ShowText(text)
                    cb.EndText()
                    Dim len As Single = bf.GetWidthPoint(text, 12)
                    cb.AddTemplate(footerTemplate, document.PageSize.GetRight(116) + len,
                                   document.PageSize.GetBottom(46))

                    Else

                    cb.BeginText()
                    cb.SetFontAndSize(bf, 12)
                    cb.SetTextMatrix(document.PageSize.GetRight(129), document.PageSize.GetBottom(46))
                    cb.ShowText(text)
                    cb.EndText()
                    Dim len As Single = bf.GetWidthPoint(text, 12)
                    cb.AddTemplate(footerTemplate, document.PageSize.GetRight(129) + len,
                                   document.PageSize.GetBottom(46))

                    End If


            End Select
        End If