List 7-207　FormBillDetailフォームのBTN_PRINT_Clickプロシージャ

---

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