Excel - convertir excel a pdf

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=ActiveWorkbook.Path & "\ReportesPDF\" & "Cotizacion " & Hoja1.Range("H7").Text & "_" & CStr(Format(Date, "yyyy-mm-dd")) & ".pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Sub Macro()

    Dim File As String, Dire As String

    File = "Cotizacion " & Hoja1.Range("H7").Text & "_" & Format(Date, "yyyy-mm-dd")

    Dire = ActiveWorkbook.Path & "\ReportesPDF\"

    ActiveSheet.ExportAsFixedFormat _

                Type:=xlTypePDF, _

                Filename:=Dire & File & ".pdf", _

                Quality:=xlQualityStandard, _

                IncludeDocProperties:=True, _

                IgnorePrintAreas:=False, _

                OpenAfterPublish:=False

End Sub

Sub Macro1()

'

' Macro1 Macro

'

'

    Range("A1:I61").Select

    Application.ActivePrinter = "Adobe PDF en Ne03:"

    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF en Ne03:"",,TRUE,,FALSE)"

End Sub