How to privet printing empty pages ?

[ahmedismailfourtex]

Hello,
when i set page title to print each page then i found in printing preview it need to print empty pages also, one more thing, it didn't include new rows in the printing (i.e. it didn't increase the no. of pages to cover the new data).
appreciate the help.
Thanks

 

[mole999]

look at View > Page Break Preview, and drag the blue lines to encompass your data

 

[ahmedismailfourtex]

look at View > Page Break Preview, and drag the blue lines to encompass your data

Thanks for your response!
i'm actually looking for automatic method.
thanks again

 

[MARK858]

If you run the code below what happens in your print preview?

Sub resetit()
Dim xx As Long
xx = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PrintPreview
End Sub

 

[ahmedismailfourtex]

If you run the code below what happens in your print preview?

Sub resetit()
Dim xx As Long
xx = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PrintPreview
End Sub

Works perfect, but when the data exceed the page 3 it not included in the print prev.
this is the file
https://drive.google.com/open?id=0B8ZW23arvGABSkZZS3MxcFB5WDg
pls chick it
thanks

 

[MARK858]

When I run the code posted all the data in sheet Hangers fits on 3 pages and so there is nothing to print past page 3 but I can't see why it doesn't come out in the print preview or an actual print.

I will play around with it.

 

[mole999]

is it an issue with the stored last cell used

 

[MARK858]

is it an issue with the stored last cell used

The

Dim xx As Long
xx = ActiveSheet.UsedRange.Rows.Count

in the code normally resets it.

 

[MARK858]

Still not sure exactly why it is happening but as an easy get around run the macro below.

Sub resetit()
Dim lc As Long, lr As Long

lc = ActiveSheet.Cells.Find("*", , xlValues, xlPart, xlByColumns, xlPrevious, False).Column
lr = ActiveSheet.Cells.Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False).Row

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(lr, lc)).Address
ActiveSheet.PrintPreview
End Sub

but put it in a regular module and not a sheet module please.

 

[ahmedismailfourtex]

thanks, appreciate your effort!