Need ‘Set Print Area’ Code for Dynamic Print Range based on Conditions

Hey, guys. I need your help again, please.

This VBA code works for our reports with constant-changing bottom margins:

ActiveSheet.PageSetup.PrintArea = "=" & ActiveSheet.UsedRange.Address

I need it changed as follows:

1. The right margins should reset based on these conditions: If column N has no dollar amounts, then print A1 through column L. If column N does have dollar amounts, then print A1 through column N. Note that in cell N9 there is a heading label.

2. The reports are landscape orientation. They need to fit on 1 page wide no matter which columns print. (The last 2 or 3 columns will print on the 2nd page if the print settings are not manually changed. I would like the code to do this for me).

3. The very last row has only a grand total in column F, which needs to be included in the print range. This row changes for each report.

I hope this is sufficient info - please let me know if you need more.

Thanks,

Debbie

I apologize if what I asked is too complex or confusing. I really have tried to figure it out myself from internet searches and I'm having no luck. So.....maybe someone can help if I change the conditions to this:

Column M may contain text values "D" or "A" (but some cells may be blank). There is no heading label for column M.

If column M contains an "A" anywhere, then I need the code to set the print area from A1 to column N, down to the last row with data. If column M doesn't contain "A", then I need the print area set from A1 to column M, down to the last row with data.

Please let me know if I need to provide anything else.

Thanks!!