Macro to print Black and white

[lxx28]

Hi i'm a newby with excel, and a nobody with macro's.

I have a table with colors. If i print it black&white it does not print smooth.
When I make the cells in color black with white text, it will print perfectly. To change all the cells it's going to take everytime a few hours.


I want to use a macro, but i don't have any experience.

When the background of a cell is default (nothing) the cell don't have to change.
When the background color of a cell is not default it should make the cell color black, the font in that cell white and bold, and if there is a border line, it also should be colored black.

I have seen some tutorials, but after fiddling for 3 days with still no result, i hope some of you can help me of push in the right direction.


If cell is not colored, do nothing
else
change background color to black, font color to white, and make font bold.

If there is no border, do nothing,
else change border thickness to fine line, and border color to black.

[Mandeep Baluja]

Try this

Sub Macro1()

For nrow = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 Cells(nrow, 1).Select
 With Selection.Interior
    If .Pattern = xlNone And .TintAndShade = 0 And .PatternTintAndShade = 0 Then
        
    Else
                 With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
    End If
        
       
    

If Not (Selection.Borders(xlEdgeLeft).LineStyle = xlNone And _
    Selection.Borders(xlEdgeTop).LineStyle = xlNone And _
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone And _
    Selection.Borders(xlEdgeRight).LineStyle = xlNone And _
    Selection.Borders(xlInsideVertical).LineStyle = xlNone And _
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone) Then
    
   
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
    Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
    Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous


 Selection.Borders(xlEdgeLeft).ColorIndex = 0
    Selection.Borders(xlEdgeTop).ColorIndex = 0
    Selection.Borders(xlEdgeBottom).ColorIndex = 0
    Selection.Borders(xlEdgeRight).ColorIndex = 0
    Selection.Borders(xlInsideVertical).ColorIndex = 0
    Selection.Borders(xlInsideHorizontal).ColorIndex = 0


End If

End With
Next

End Sub

[lxx28]

Wauw,

Tnx for posting that great piece of code.

It runs a bit

It does only colum A instead of the whole sheet.

Making it black with a white bold font works perfectly in colum A. The border stays blue and with a thick line, instead of black with a thin line, but thats not a real big deal.
If you can let it change the whole worksheet, you're truly the best haha

[Mandeep Baluja]

Sub Macro1()

For Each Cell In ActiveSheet.UsedRange

Cell.Select
 With Selection.Interior
    If .Pattern = xlNone And .TintAndShade = 0 And .PatternTintAndShade = 0 Then
        
    Else
                 With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
    End If
        
       
    

If Not (Selection.Borders(xlEdgeLeft).LineStyle = xlNone And _
    Selection.Borders(xlEdgeTop).LineStyle = xlNone And _
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone And _
    Selection.Borders(xlEdgeRight).LineStyle = xlNone And _
    Selection.Borders(xlInsideVertical).LineStyle = xlNone And _
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone) Then
    
   
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
    Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
    Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous


 Selection.Borders(xlEdgeLeft).ColorIndex = 0
    Selection.Borders(xlEdgeTop).ColorIndex = 0
    Selection.Borders(xlEdgeBottom).ColorIndex = 0
    Selection.Borders(xlEdgeRight).ColorIndex = 0
    Selection.Borders(xlInsideVertical).ColorIndex = 0
    Selection.Borders(xlInsideHorizontal).ColorIndex = 0


End If

End With
Next

End Sub

[lxx28]

Almost hahaha,

Only now colom A works perfect, but with the rest, all the cells will be colored black with white font. I'm looking at your code so may be I can understand it and change it myself, but with the first line of code i'm lost already ahahhaa.

May be in the future i will understand it more.

[Mandeep Baluja]

send me the attachment with some data :D

[lxx28]

I have some problems attaching the file here, so i uploaded it here

Thx for helping me. I really appreciate it.

[lxx28]

`Let me know if you can download that file, or that i should try something else.