dantocer

caranbis respondió: Sub abreycierra() Dim Neo As Object Set Neo = CreateObject("Word.Application") ' Neo.Visible = True Neo.Documents.Open Filename:="C:\EXPO.docx", ReadOnly:=True ' ' ' 'COMBINANDO CORRESPONDENCIA ' MsgBox "PRESIONE ACEPTAR PARA CERRAR WORD" ' 'CERRAR:...

Elsa Matilde respondió: En primer lugar, en un módulo definí una variable pública: Public avisa as byte Luego seleccioná con doble clic el objeto HOJA, que sea la hoja DataEntry y allí copiá esto: Private Sub Worksheet_Activate() If avisa = 0 Then MsgBox "Verificar que se...

Elsa Matilde respondió: La instrucción para colocar al botón Imprimir es esta: Sub Impresion() On Error Resume Next ActiveWindow.SelectedSheets.PrintOut End Sub Para personalizar esta instrucción y establecer cantidad de copias u otras cuestiones, será mejor que enciendas...

jorge_al respondió: Probablemente sea error de como lo planteas directamente en Excel, supongamos que en la celda A1 tienes la fecha en el formato que dices "20/11" y tu en la celda b1 (como ejemplo) tienes la fórmula ="del "&A1&" al "&A1+7, esto como resultado te da...

aisberg respondió: Prueba con esto: El puerto paralelo estándar (SPP) estaba diseñado inicialmente para imprimir, y solo era capar de enviar datos en una dirección (del PC a la impresora), aunque la impresora le podía contestar mediante algunas líneas de control. De...