Convert Excel to PDF with pagesetup options

[Frederic_Hubin]

Hey guys

I'm trying to convert excel file to pdf with specific page setup options (orientation and scaling).

I use this code, but it converts to pdf without paying attention to the options.

Dim wb as Object = GetWorkbook(handle, workbookname)

Dim excel as Object = wb.Application

Dim xlTypePDF As Integer = 0

excel.DisplayAlerts = False

wb.ActiveSheet.ExportAsFixedFormat (xlTypePDF, filename)

With wb.ActiveSheet.PageSetup

        .Orientation = 2

        .Zoom = False

        .FitToPagesWide = 1

End With

excel.DisplayAlerts = True

Any idea?

Thanks a lot

F.

------------------------------
Frédéric Hubin
------------------------------

[abhis3kh · Accepted solution]

Hi @Frédéric Hubin, 

Try setting the page setup options before exporting to PDF. Let me know if that works for you. 

------------------------------
Abhisekh Mukherjee
------------------------------

[Frederic_Hubin]

Hello @abhis3kh

Thanks for your help here. It works for me.

------------------------------
Frédéric Hubin
------------------------------