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

1 Respuesta

2.207.640 pts. En mi sitio encontraran material de ayuda, ejemplos...

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 .

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas