Como hago un PDF que siga las indicaciones que tengo de imprimir?
Tengo así las instrucciones de imprimir
'imprime dejando en blanco los totales y según rangos usados
If [M99] >= 1 Then
'Agregar formato en blanco
Range("T31:T32").Font.Color = RGB(255, 255, 255)
Range("V31:V32").Font.Color = RGB(255, 255, 255)
Range("T73:T74").Font.Color = RGB(255, 255, 255)
Range("V73:V74").Font.Color = RGB(255, 255, 255)
ActiveSheet.PageSetup.PrintArea = "$C$1:$V$123"
ElseIf [M57] = "" Then
ActiveSheet.PageSetup.PrintArea = "$C$1:$V$41"
ElseIf [M57] >= 1 Then
'Agregar formato blanco
Range("T31:T32").Font.Color = RGB(255, 255, 255)
Range("V31:V32").Font.Color = RGB(255, 255, 255)
ActiveSheet.PageSetup.PrintArea = "$C$1:$V$82"
ElseIf [M100] >= 1 Then
Bien ahora quiero que me convierta a PDF según estas mismas indicaciones, es decir si la hoja activa celda M99 es >=1 entonces poner los rangos T32:T32
V31:V32, T72:T73, V72:V73 en fuente blanca y hacer PDF desde celda $C1:V123
y etc. Como esta arriban la de impresión. ¿Cómo debo hacerlo?, después de
ActiveSheet:pages Setup. PrintArea = $c$1:$V$123
poner Active Sheet .ExportAsFixedFormat Type; = 1 Type PDF. Filename
¿En fin estoy sin saber como me podrían ayudar?
1 respuesta
H o l a:
Después de que estableciste el área de impresión, ya no es necesario hacerlo para el Pdf, solamente tienes que guardar la hoja como Pdf y tomará lo que hayas establecido para la impresión. Solamente agrega esta línea después de tu último End IF
ruta = ThisWorkbook.Path & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & "archivo.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Lo tengo así :
'imprime dejando en blanco los totales y según rangos usados
If [M97] >= 1 Then
'Agregar formato en blanco
Range("Q30:Q31").Font.Color = RGB(255, 255, 255)
Range("S30:S31").Font.Color = RGB(255, 255, 255)
Range("U30:U31").Font.Color = RGB(255, 255, 255)
Range("W30:W31").Font.Color = RGB(255, 255, 255)
Range("Q71:Q72").Font.Color = RGB(255, 255, 255)
Range("S71:S72").Font.Color = RGB(255, 255, 255)
Range("U71:U72").Font.Color = RGB(255, 255, 255)
Range("W71:W72").Font.Color = RGB(255, 255, 255)
ActiveSheet.PageSetup.PrintArea = "$C$1:$W$121"
ElseIf [M56] = "" Then
ActiveSheet.PageSetup.PrintArea = "$C$1:$W$40"
ElseIf [M56] >= 1 Then
'Agregar formato blanco
Range("Q30:Q31").Font.Color = RGB(255, 255, 255)
Range("S30:S31").Font.Color = RGB(255, 255, 255)
Range("U30:U31").Font.Color = RGB(255, 255, 255)
Range("W30:W31").Font.Color = RGB(255, 255, 255)
ActiveSheet.PageSetup.PrintArea = "$C$1:$W$80"
End If
ES AQUÍ DONDE LO DEBO PONER O
ActiveSheet.PrintOut 'imprime
¿ES AQUÍ DONDE LO DEBO PONER?
Te agradeceré mucho tu información
En cualquiera de las 2 partes. Prueba con la primera, se guarda el pdf y después se imprime.
sal u dos
