List 7-84　FormProductフォームの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_Product
 10：     FormPrintPreview.Show 1
 11： End Sub