Jump to content

Basole

Members
  • Content Count

    6
  • Joined

  • Last visited

About Basole

  • Rank
    Newbie

Profile information

  • Gender Array
  • Localización: Array

Converted

  • Campos Array
  1. Me permite dar una sugerencia, en cuanto a la opción del color del calendario: Ejemplo: Declarando la variable publicada en un modulo estándar Public suColor as Long Cambiar las propiedades de Label LFecha.BackColor = suColor y c.BackColor = suColor. Y definiendo el color antes de llamar a la rutina: Private Sub CommandButton1_Click() suColor = vbGreen R_fecha TextBox1, Me End Sub
  2. Abra el editor y no su suplemento altere el nombre VBAProject, para RIDDLE por ejemplo, salve as. Em seguido en Herramientas => Referencias y marque una referencia "RIDDLE". Veja más detalles aqui: How to Use Your Excel Add-In Functions in VBA Finalizando, o comando ficaria assim: Private Sub CommandButton1_Click() RIDDLE.R_fecha TextBox1, Me End Sub
  3. Sí, es posible trabajar con la integrada Excel para MsAccess sin ser instalado.
  4. Hola, intente cambiar la configuración de tu MS Access Access 2007-2010 -> Archivo -> Opciones -> Configuración general del cliente -> Avanzado -> Métodos de cifrado -> heredado Uso cifrado (bueno para múltiples usuarios).
  5. Cuando se trata de la impresión userform lógico, no hay muchos recursos, Una alternativa sería el código que simula ALT + PrintScreen y copiar el formulario como una imagen a una nueva hoja de cálculo (temp) propiedades de impresión entonces fijados, y la orientación horizontal (xlLandscape), e imprime en la impresora predeterminada en las eliminaciones finales la hoja de cálculo (temp) creado. Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const VK_SNAPSHOT = 44 Const VK_LMENU = 164 Const KEYEVENTF_KEYUP = 2 Const KEYEVENTF_EXTENDEDKEY = 1 Private Sub CommandButton1_Click() ' altere de acordo com o nome do seu botao DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 DoEvents Workbooks.Add Application.Wait Now + TimeValue("00:00:01") ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _ DisplayAsIcon:=False ActiveSheet.Range("A1").Select 'added to force landscape ActiveSheet.PageSetup.Orientation = xlLandscape With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 300 .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 85 ' ajuste de acordo com sua necessidade .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWorkbook.Close False End Sub fuente: http://social.msdn.microsoft.com/Forums/en-US/def468a2-a317-496e-85a1-ab37bd449264/printing-vba-userform-as-landscape
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5