List 7-45　FormPrintPreviewフォームのTXT_PAGE_Changeプロシージャ

---

  1： Private Sub TXT_PAGE_Change()
  2：     If Not IsNumeric(TXT_PAGE.Text) Then
  3：         MsgBox "ページ番号が不正です", vbOKOnly, "印刷エラー"
  4：         TXT_PAGE.Text = 1
  5：         Exit Sub
  6：     End If
  7：     
  8：     g_Page = CLng(TXT_PAGE.Text)
  9：     If g_Page < 0 Or g_Page > g_MaxPage Then
 10：         MsgBox "ページ番号が範囲外です", vbOKOnly, "印刷エラー"
 11：         g_MaxPage = 1
 12：         TXT_PAGE.Text = 1
 13：     End If
 14：     
 15：     PicDoc.Cls
 16：     DrawPreview PicDoc, g_Page, g_Page
 17： End Sub