Android Question PDF with dynamic page length

' Receives the number of lines in the note (including header, footer, etc.), and whether it has a logo and signature.
Sub CalcularAltoParaPDF( iLineas As Int, bLlevaLogo As Boolean, bLlevaFirma As Boolean, iAltoFontSize As Int ) As ResumableSub
    Dim iPS As Float = 254/72        '' the pdf measurements are in 1/72nd of an inch (postscript)
    Dim iAlto As Int
    '
    iAlto = iLineas * (iAltoFontSize/iPS)
    '
    If bLlevaLogo Then
        iAlto = iAlto + (128/iPS)
    End If
    If bLlevaFirma Then
        iAlto = iAlto + (128/iPS)
    End If
    iAlto = iAlto * iPS
    '
    Return iAlto
End Sub