リスト４：印刷用フォームfrmPrintの印刷開始処理 Private Sub cmdPrintStart_Click() 　　 ' 確認ダイアログを出し、[OK]なら印刷 　　If MsgBox("プリンタの準備をしてください。", _ 　　　vbOKCancel + vbExclamation, "一覧の印刷") _ 　　　= vbOK Then 　　　PrintOut 　　End If End Sub 本文へ戻る