Hi,
The code I have listed below is used to create a new .xls sheet where their is a new page break (which have all come from a subtotal function) but I would prefer to modify so that:

1. The output file is a pdf and,
2. The pdf is rotated to be landscape.

Sub Sample()
    Dim rowCurrent As Long, rowPrevious As Long, i As Long
    Dim oWB As Workbook, newWbk As Workbook
    Dim oWS As Worksheet
    
    Set oWB = ActiveWorkbook
    
    Set oWS = oWB.Sheets("Specials")
    
    rowPrevious = oWS.UsedRange.Row + oWS.UsedRange.Rows.Count - 1
    
    For i = oWS.HPageBreaks.Count To 0 Step -1
        If i = 0 Then
            oWS.Rows("1:" & rowPrevious).Copy
        Else
            rowCurrent = oWS.HPageBreaks(i).Location.Row
            oWS.Rows(rowCurrent & ":" & rowPrevious).Copy
        End If
        
        Workbooks.Add
        ActiveSheet.Paste
        ActiveWorkbook.SaveAs "C:\Output Location" & ActiveSheet.Range("A2").Value & -i
        ActiveWorkbook.Close
        
        rowPrevious = rowCurrent - 1
    Next
End Sub
I've tried adding ".pdf" at the end of the "SaveAs" line and this creates a pdf file which can't be opened and is shown as corrupted.

Would greatly appreciate any assistance.

Cheers

http://www.excelforum.com/images/icons/icon7.png