List 7-44　FormPrintPreviewフォームのBTN_APPLY_Clickプロシージャ

  1： Private Sub BTN_APPLY_Click()
  2：     ' ［適用］ボタンを押したときの処理
  3：     ' 再描画する
  4：     
  5：     ' 最大ページ番号の更新
  6：     g_MaxPage = getMaxPage()
  7：     UpDown_Page.Max = g_MaxPage
  8：     LABEL_MAXPAGE.Caption = "/" & g_MaxPage
  9：     
 10：     PicDoc.Cls
 11：     DrawPreview PicDoc, g_Page, g_Page
 12： End Sub