daily pastebin goal
57%
SHARE
TWEET

NewFooterCode

CryptoJones Nov 4th, 2016 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  If (blnShowPageNumbers) Then
  2.             Select Case RSApp.PreferredLanguageID
  3.  
  4.                 Case LanguageIDs.English
  5.                     If (document.PageNumber < 10) Then
  6.                         cb.BeginText()
  7.                         cb.SetFontAndSize(bf, 12)
  8.                         cb.SetTextMatrix(document.PageSize.GetRight(103), document.PageSize.GetBottom(46))
  9.                         cb.ShowText(text)
  10.                         cb.EndText()
  11.                         Dim len As Single = bf.GetWidthPoint(text, 12)
  12.                         cb.AddTemplate(footerTemplate, document.PageSize.GetRight(103) + len,
  13.                                        document.PageSize.GetBottom(46))
  14.                     Else
  15.                         cb.BeginText()
  16.                         cb.SetFontAndSize(bf, 12)
  17.                         cb.SetTextMatrix(document.PageSize.GetRight(116), document.PageSize.GetBottom(46))
  18.                         cb.ShowText(text)
  19.                         cb.EndText()
  20.                         Dim len As Single = bf.GetWidthPoint(text, 12)
  21.                         cb.AddTemplate(footerTemplate, document.PageSize.GetRight(116) + len,
  22.                                        document.PageSize.GetBottom(46))
  23.                     End If
  24.                
  25.  
  26.                 Case LanguageIDs.Spanish
  27.                     If (document.PageNumber < 10) Then
  28.  
  29.                     cb.BeginText()
  30.                     cb.SetFontAndSize(bf, 12)
  31.                     cb.SetTextMatrix(document.PageSize.GetRight(116), document.PageSize.GetBottom(46))
  32.                     cb.ShowText(text)
  33.                     cb.EndText()
  34.                     Dim len As Single = bf.GetWidthPoint(text, 12)
  35.                     cb.AddTemplate(footerTemplate, document.PageSize.GetRight(116) + len,
  36.                                    document.PageSize.GetBottom(46))
  37.  
  38.                     Else
  39.  
  40.                     cb.BeginText()
  41.                     cb.SetFontAndSize(bf, 12)
  42.                     cb.SetTextMatrix(document.PageSize.GetRight(129), document.PageSize.GetBottom(46))
  43.                     cb.ShowText(text)
  44.                     cb.EndText()
  45.                     Dim len As Single = bf.GetWidthPoint(text, 12)
  46.                     cb.AddTemplate(footerTemplate, document.PageSize.GetRight(129) + len,
  47.                                    document.PageSize.GetBottom(46))
  48.  
  49.                     End If
  50.  
  51.  
  52.             End Select
  53.         End If
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top