Como puedo mandar con condicional if a imprimir poniendo alunas casillas en blanco.
Lo tengo así y no me imprime
If [M58] = "" Then
ActiveSheet.PageSetupL: PrintArea = "$C$1:$V$41"
ElseIf [M58] >= 1 Then
'Agregar Formato en Blanco
Range("T32:T33").Font.Color = RGB(255, 255, 255)
Range("V32:V33").Font.Color = RGB(255, 255, 255)
ActiveSheet.PageSetup.PrintArea = "$C$1:$V$83"
ElseIf [M100] >= 1 Then
'Agregar formato en blanco
Range("t32:T33").Font.Color = RGB(255, 255, 255)
Range("V32:V33").Font.Color = RGB(255, 255, 255)
Range("T74:T75").Font.Color = RGB(255, 255, 255)
Range("V74:V76").Font.Color = RGB(255, 255, 255)
ActiveSheet.PageSetup.PrinArea = "$C$1:$V$125"
End If
¿Qué Tengo que hacer?
1 Respuesta
A continuación te falta la instrucción de impresión que antes ya la tenias seguramente:
ActiveSheet.PrintOut 'o ActiveSheet. PrintPreview si primero deseas hacer vista preliminar.
PD) Noto que en una línea colocaste M58>= 1 y en otra M100>= 1 ... ¿Y si se dan las 2 condiciones?
Si todavía te presenta algún inconveniente debes dejar escrita aquí la macro completa en todo lo referente a la impresión .
