Exportar hojas archivo de excel como PDF

Cordial Saludo

Necesito exportar 1 hoja de excel a 2 hojas de PDF sin embargo cuando lo hago en algunos casos la información de la hoja 1 se dirige hacia la hoja 2. Se que es debido a la configuración de la impresora sin embargo no se como lo pueda arreglar. Este es el código que estoy usando en el momento.

Dim imprimir
imprimir = Range("RutaCarpetaImprimir") & "\" & Range("Filtro_Region") & "\" & Range("Filtro_Zona") & " Brick " & Range("Filtro_Brick")
Ruta = Range("RutaCarpetaImprimir") & "\" & Range("Filtro_Region")
'Se valida la existencia del archivo
On Error GoTo ERROR
MkDir Ruta
ERROR:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
imprimir _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Gracias