Excel 2013 - Page setup wrong. 1

[sduraiappan]

I am using this code in my Vb.Net application to add some empty rows in a worksheet:

Dim TPAGECOUNT = WKSHEET.PageSetup.Pages.Count
Do While TPAGECOUNT = WKSHEET.PageSetup.Pages.Count

​

WKSHEET.Range("A" & TROW & ":R" & TROW).Rows.Insert(Shift:=EXCEL.XlInsertShiftDirection.xlShiftDown)

​

TROW = TROW + 1

​

WKSHEET.PageSetup.PrintArea = "A1:" & TCOL & TROW + 10
Loop

This code works fine in system having Excel 2007 and the entire content is fit to one page.

If I run the same application in a system having Excel 2013, I find one extra row and hence the page count is increased by 1.

I could not locate the issue.

Can anyone please help me.

Regards,

S.Duraiappan.

 

[combo]

You first check pages number and next add row, the loop stops when there is already one page more than initially. Depending on rows height (equal or some are higher) either test with bigger print area area (WKSHEET.PageSetup.PrintArea = "A1:" & TCOL & TROW + 11) and decrease it, or delete one added row, any of this after quitting the loop.

combo

 

[sduraiappan]

Thanks for the idea.

I delete one row after the loop.

Works fine.