List 7-173　FormPrintPreviewフォームの変更したDrawPreviewプロシージャ（変更箇所は赤色で示した）

---

  1： Private Function DrawPreview(ByRef objPic As Object, _
   　                              ByRef StartPage As Long, _
   　                              ByRef EndPage As Long) As Long
  2：     ' プレビュー画面を描画する
  3：     ' 【引数】
  4：     '   objDoc = 描画対象となるオブジェクト（ピクチャボックスかPrinterオブジェクトのいずれか）
  5：     '   StartPage = 先頭ページ番号
  6：     '   EndPage = 最終ページ番号
  7：     ' 【戻り値】
  8：     '   -1 = エラー
  9：     '   正の数 = 出力した最終ページ番号
 10：     
 11：     ' add 2000/07/30
 12：     If (g_DGrid Is Nothing) Then
 13：         ' MSHFlexGridコントロール用のルーチンに飛ぶ
 14：         DrawPreview = DrawPreview2(objPic, StartPage, EndPage)
 15：         Exit Function
 16：     End If
 17：     
 18：     Dim row As Long, col As Long, i As Long
 19：     Dim objRec As ADODB.Recordset
 20：     Dim newPageFlag As Boolean
 21：     Dim columnNum As Long
 22：     Dim colWidth() As Long
 23：     Dim ColIndex() As Long
 24：     Dim VisibleNum As Long
 25：     Dim X As Long, Y As Long
 26：     Dim MLeft As Long, MRight As Long, MUp As Long, MDown As Long
 27：     Dim ColWidthTotal As Long
 28：     Dim ColHeight As Long, ColMaxHeight As Long
 29：     Dim NowPage As Long
 30：     Dim BookMark As Variant, oldBookMark As Variant
 31：     Dim drawFlag As Boolean
 32：     
 33：     …以下，List 7-42と同じなので略…