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

---

  1： Private Sub Menu_Printer_Click()
  2：     ' ［プリンタの設定］メニューが選択されたとき
  3：     
  4：     ' プリンタがなければ，エラーメッセージを表示する
  5：     If Printers.Count = 0 Then
  6：         MsgBox "プリンタがインストールされていません", vbOKOnly, "印刷エラー"
  7：     End If
  8：     
  9：     ' プリンタを設定する
 10：     PrintSetup PD_PRINTSETUP, Me.hWnd
 11： End Sub