VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Расписание"
   ClientHeight    =   1710
   ClientLeft      =   5100
   ClientTop       =   4230
   ClientWidth     =   2490
   BeginProperty Font 
      Name            =   "Times New Roman"
      Size            =   14.25
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   1710
   ScaleWidth      =   2490
   Begin VB.CommandButton cmd1 
      Caption         =   "Составить расписание"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   480
      TabIndex        =   0
      Top             =   840
      Width           =   1575
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd1_Click()
For M1 = -1 To 0
For M2 = -1 To 0
For I1 = -1 To 0
For I3 = -1 To 0
For F2 = -1 To 0
For F3 = -1 To 0
If (M1 Or M2) And (I1 Or I3) And (F2 Or F3) And (Not M1 Or Not M2) And (Not I1 Or Not I3) And (Not F2 Or Not F3) And (Not M1 Or Not I1) And (Not M2 Or Not F2) And (Not I3 Or Not F3) = -1 _
Then frm1.Print -M1; -M2; -I1; -I3; -F2; -F3
Next F3
Next F2
Next I3
Next I1
Next M2
Next M1
End Sub
