Publish as PDF - Blank sheets

[uncletj]

Writing a macro which publishes the content of a table as a .pdf, but the formatting goes off and most annoying the resulting pdf files include 100+ blank pages after the table...

this really slows the whole job down; I've included the relevant code below:

---------------------------------------------------------------------------------------------------------------------------

Sheets("PDF OUTPUT").Activate
ActiveSheet.UsedRange.Select




ThisWorkbook.Sheets("PDF OUTPUT").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\filefolder\filename.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True


---------------------------------------------------------------------------------------------------------------------------

I've tried fiddling around with print areas etc, but it still cuts off parts of what I want in the file (in columns to the right), and goes down printing blank rows with no content...