Printing code ignores some data/pages

[szakharov7723]

Hello,
I have this simple code

Sub Printout()
Sheets("Breakdowns").Select
Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select
Selection.Printout

And I am not sure why this code doesn't work properly.
It somehow misses middle rows, but prints all other from start to end.

 

[Yongle]

Try this

Sub Printout()
    Sheets("Breakdowns").Select
    Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select
[COLOR=#ff0000]    ActiveSheet.PageSetup.PrintArea = Selection.Address[/COLOR]
    ActiveSheet.Printout
End Sub

 

[szakharov7723]

Thank you , but looks like it still ignores it.

 

[Yongle]

In VBA editor ...
- double-click on ThisWorkbook in project window

Does that module contain macro Workbook_BeforePrint ?
- check that code