prt.bas

来自「汽修厂管理软件」· BAS 代码 · 共 18 行

Attribute VB_Name = "Module2"
Option Explicit
Global RowsofPage As Integer


Function CalRowsofPage(Height As Long, rHeight As Long) As Integer
 CalRowsofPage = Height / rHeight

End Function

Function CalPages(RowsofPage As Integer, TotalRows As Integer) As Integer
If TotalRows Mod RowsofPage = 0 Then
   CalPages = TotalRows \ RowsofPage
  Else
   CalPages = TotalRows \ RowsofPage + 1
End If
End Function