1: Private Sub BTN_PRINT_Click() 2: ' [印刷]ボタンが押されたときの処理 3: ' プリンタがなければ,エラーメッセージを表示する 4: If Printers.Count = 0 Then 5: MsgBox "プリンタがインストールされていません", vbOKOnly, "印刷エラー" 6: End If 7: 8: ' 表示されている表を印刷ならびにプレビュー 9: FormPrintPreview.SetTitle "伝票一覧", DGrid_Slip 10: FormPrintPreview.Show 1 11: End Sub