VERSION 5.00
Begin VB.Form Form_BoletasMasivo_Dialog 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4650
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9360
   Icon            =   "Form_BoletasMasivo_Dialog_elec.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4650
   ScaleWidth      =   9360
   Begin VB.Frame Frame_Sucesos 
      Caption         =   "Alerta de Anomalías"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   4455
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9135
      Begin VB.CommandButton Btn_Ocultar 
         Caption         =   "Ocultar Sucesos"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   7560
         Picture         =   "Form_BoletasMasivo_Dialog_elec.frx":2A8B2
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   3600
         Width           =   1455
      End
      Begin VB.TextBox Txt_Sucesos 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   3135
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   2
         Top             =   360
         Width           =   8895
      End
      Begin VB.CommandButton Btn_Imprimir_Sucesos 
         Caption         =   "Imprimir Sucesos"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   6000
         Picture         =   "Form_BoletasMasivo_Dialog_elec.frx":2AF2D
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   3600
         Width           =   1455
      End
   End
End
Attribute VB_Name = "Form_BoletasMasivo_Dialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Btn_Imprimir_Sucesos_Click()
Dim iniPrinter As String
Dim ResetPrinter As String
Dim FormFeed As String
If Form_BoletasMasivo.Option1.Value Then
    NomEmpresa = Form_BoletasMasivo.Cmb_Colegio_Cup
Else
    NomEmpresa = Form_BoletasMasivo.Cmb_Part_Cup
End If
iniPrinter = Chr(27) + Chr(67) + Chr(51) + Chr(13) + Chr(27) + Chr(74) + Chr(120)
ResetPrinter = Chr(27) + "@"
FormFeed = Chr(12)
Open "LPT1:" For Output As 1
    Print #1, iniPrinter
    Print #1, Chr(15) & "Colegio : " & NomEmpresa & "Mes de Recaudado :" & Form_BoletasMasivo.Cmb_Mes & " Fecha: " & Date & " Hora: " & Time & "" _
    ; vbCrLf & Me.Txt_Sucesos
    Print #1, FormFeed
    Print #1, ResetPrinter
Close 1
End Sub

Private Sub Btn_Ocultar_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Height = 4785
Me.Width = 9465
Me.Caption = "Sucesos Registrados en Archivo " & App.Path & "\Ges_Col-Info.log"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form_BoletasMasivo_elec.Btn_VerSucesos.Visible = True
End Sub
