List 7-61　修正したFormCustomerフォームのBTN_PRINT_Clickプロシージャ（変更箇所は赤色で示した）

---

  1： Private Sub BTN_PRINT_Click()
  2：     ' ［印刷］ボタンが押されたときの処理
  3：     
  4：     ' プリンタがなければ，エラーメッセージを表示する
  5：     If Printers.Count = 0 Then
  6：         MsgBox "プリンタがインストールされていません", vbOKOnly, "印刷エラー"
  7：     End If
  8： 
  9：     FormPrintPreview.SetTitle "登録顧客一覧", DGrid_Customer
 10：     FormPrintPreview.Show 1
 11： End Sub