13.07.2015 Views

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

SHOW MORE
SHOW LESS
  • No tags were found...

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

TotHorEmp = 0i = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format(ValorHorEmp, "currency")ValorTotal = ValorTotal + ValorHorEmpValorHorEmp = 0rs.MoveNextj = j + 1i = 0WendEnd Sub'Rutina que se ejecuta al presionar el boton volver a inicio'Se cierra el formulario de reportes y se vuelve al formulario principalPrivate Sub Command2_Click()Reportes.Visible = FalseControl_emple.Timer1inicio.Enabled = TrueControl_emple.Timer2inicio.Enabled = TrueEnd SubPrivate Sub Command3_Click()Dim i As Long, j As LongDim objExcel As ObjectDim objWorkbook As ObjectOn Error Resume Next ' por si se cierra Excel antes de cargar los datosSet objExcel = CreateObject("Excel.Application")objExcel.Visible = TrueSet objWorkbook = objExcel.Workbooks.AddFor i = 0 To MSHFlexGrid2.Rows - 1MSHFlexGrid2.Row = iFor j = 0 To MSHFlexGrid2.Cols - 1MSHFlexGrid2.Col = jobjWorkbook.ActiveSheet.Cells(i + 1, j + 1).Value = MSHFlexGrid2.TextNextNextobjExcel.Cells.SelectobjExcel.Selection.EntireColumn.AutoFit ' Ancho de columnaobjExcel.Range("A1").Select'objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informeSet objWorkbook = NothingSet objExcel = NothingEnd Sub'Rutina que se ejecuta al cargarse la ventana de reportes'Llamada a rutina de conexion de base de datosPrivate Sub Form_Activate()'Call Command1_ClickEnd Sub'Rutina que se ejecuta cuando se carga el formulario'Redimensionar el grid para poder mostrar toda la informacionPrivate Sub Form_Load()MSHFlexGrid2.ColWidth(0) = 1600MSHFlexGrid2.ColWidth(1) = 2200MSHFlexGrid2.ColWidth(2) = 2500MSHFlexGrid2.ColWidth(3) = 2700MSHFlexGrid2.ColWidth(4) = 2700MSHFlexGrid2.ColWidth(5) = 1650MSHFlexGrid2.ColWidth(6) = 2100MSHFlexGrid2.ColWidth(7) = 1300MSHFlexGrid2.ColWidth(8) = 1800MSHFlexGrid2.ColWidth(9) = 1500MSHFlexGrid2.ColWidth(10) = 1600End Sub- 185 -

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!