'重置初始环境
If (bRightToLeft) Then
'right align
CurrentX = PrintDoc.DefaultPageSettings.PaperSize.Width_
- PrintDoc.DefaultPageSettings.Margins.Right
Else
'left align
CurrentX = PrintDoc.DefaultPageSettings.Margins.Left
End If
'advance to next row
CurrentY += PrintGrid.Cell(i, 0).Height
CurrentRow += 1
'如果超出底部页边距,则需要另外一页
'return true
If (CurrentY > PrintDoc.DefaultPageSettings.PaperSize.Height_
- PrintDoc.DefaultPageSettings.Margins.Bottom) Then
Return True
End If