Print usage range VBA

[Panoos64]

All hi, i would like to prepare a VBA code so that, to set print area, the usage rows and columns only. Please note that the range change each time when i download the file from accounting system.
Many thanks in advance

 

[jolivanes]

Sub AAAAA()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintPreview
End Sub

Is this what you have in mind?

 

[Panoos64]

Thank you Joliv, it works but it include range in which i deleted rows. Is it possible to change the code so that to print just rows and columns which contains data? If this help you, i would like to print till last row which contains description in col."A" Grand Total. Thanks once again for your support. Hv a great day

 

[jolivanes]

After deleting rows you should save the workbook and then it should work.
Anyway, try the following.

Sub Maybe()
Dim lc As Long, GT As Long
lc = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
GT = Columns(1).Find("Grand Total", , , 1).Row
    ActiveSheet.PageSetup.PrintArea = Range("A1:A" & GT).Resize(, lc).Address
ActiveSheet.PrintPreview
End Sub

 

[Panoos64]

Thank you so much joliv. It works perfect now. Thanks once again for your support and your time which you spent for my project. Hv a great lovely day!

 

[jolivanes]

Thank you for letting us know that it all works to your satisfaction.
Good luck