Need to save an Excel Worksheet as a PDF and KEEP print settings.


New Member
Aug 28, 2015
I have the below code set up to take an excel tab and save is as a PDF file. As an Excel tab, I have the page set up the way I want. However, when I export it as a PDF, the settings are gone. It automattically makes is legal and portrait, as opposed to letter and lanscape. Below is my code.

Rich (BB code):
Sub ExportSheet1()
Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "S:\Business Analysis\Sheet1.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
End Sub

At this point, I would settle for being able to simple open each PDF and save the formatting. I can't even do that. The only way is for each person to manually change each pdf to letter/landscape before they print.

Some videos you may like

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...