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_SLIP, FLXGrid_SlipDetail 9: FormPrintPreview.Show 1 10: End Sub