VBA Export to PDF adding blank pages

[davec1234]

Hi,
For the life of me I cannot figure this out.
I have created an invoicing spreadsheet which extracts data from a database and populates my invoices. Each invoice is of a varying length depending on the number of entries.
Using VBA I have calculated the bottom row of the invoice (which is working perfectly) yet when I export my invoices to PDF they have anywhere from 1 to 4 blank pages at the end.

Although it doesnt make a huge difference, my invoices are correct, this little quirk is driving me mad! Any ideas?

This is my code to print the invoices.

Workbooks(ThisFile).Sheets(ThisClient).Activate
ActiveSheet.Range("A1:P" & (BottomRow)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFilename

 

[PadsPod]

Have you checked how many pages would print off normally if you printed your file in excel?
Check page break preview and have a look and see how many pages there are and adjust the area accordingly.
Else take a look at what your BottomRow is set to...