Quiero pasar a PDF con condiciones.

Tengo a la hora de imprimir así

'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"
End If
ActiveSheet.PrintOut Copies:=2, Collate:=True 'imprime

¿Se puede pasar a PDF  con las mismas condiciones??

sería?

'Hacer PDF

Aplication, ScreenUptade=False

Filename0 )=  This Workbook. Path & "/"

Filename1 = Split ( This workbook.Name ":")

Dim Full_filename As string

Full_filename = filename0  & Filename1 (0)

ActiveSheet. ExportAsFixedFormat Type: = TypePDF

¿Pero cómo hago los condicionales?