Multiple issues regarding print, formatting, and form generating

[cristian.ene]

Hello,

With your help in the past, i've created the excel file in the attachment:
it looks up values, using "coordinates" in different sheets of the excel

What i can't do, or i don't know how is:

1. I want to make a print button, on the "calculatie" sheet, for the range a4:d34, but i want it to print only if it has values in columns b or c (or only one of them), because i don't want to print a full empty list with only 2 or 3 or "n" rows.

The print button is kind of done, , but i don't know how to remove rows that have no data in them.

the macro used is:

Sub MyPrint()
 curPrtArea = ActiveSheet.PageSetup.PrintArea
  myPrtArea = "E3:G20"
   ActiveSheet.PageSetup.PrintArea = myPrtArea
   ActiveSheet.PrintOut
 ActiveSheet.PageSetup.PrintArea = curPrtArea
End Sub  

2. For economic reasons, i would like that when i press the button, the filled color in cells should not be printed, so i would print only in black and white. Is there any command that i can insert in the macro so the color filling is not printed?

There's more, but i haven't got to that part yet

[martindwilson]

try setting black
and white cell colours wont print

Please Login or Register  to view this content.

[royUK]

Your code sets the PrintArea for a different range than the one you mention in the post

[royUK]

Put this at the top of your macro to check if any cells contain data

Please Login or Register  to view this content.

[cristian.ene]

try setting black
and white cell colours wont print

Please Login or Register  to view this content.

Thank you, it worked!

[cristian.ene]

Your code sets the PrintArea for a different range than the one you mention in the post

Yes roy, if you will download the xls file you will understand

[cristian.ene]

Put this at the top of your macro to check if any cells contain data

Please Login or Register  to view this content.

nope...doesn't work...

So... in column A i have the criteria number (1,2.3...)... column B (width), column C (height), column D price.

The desired effect is that when i push the print button, it will get printed only the last row with data in Column B and C, independent of column A or D

The macro command used, but not working:

Sub PrintRulouri() 
 If Application.WorksheetFunction.CountA(Range("b5:c34")) = 0 Then Exit Sub 
 curPrtArea = ActiveSheet.PageSetup.PrintArea 
  myPrtArea = "a3:d34" 
   With ActiveSheet.PageSetup 
   .PrintArea = myPrtArea 
   .BlackAndWhite = True 
   End With 
   ActiveSheet.PrintOut 
 ActiveSheet.PageSetup.PrintArea = curPrtArea 
End Sub  

Any ideas?

[cristian.ene]

nobody can help?

[protonLeah]

The macro below tests columns B & C to determine which is longer and uses that one to set the print area:

Please Login or Register  to view this content.

[cristian.ene]

The macro below tests columns B & C to determine which is longer and uses that one to set the print area:

Please Login or Register  to view this content.

Thank you! it works like a charm