Printout with both colour and b/w

matolb · #1 04-16-2017, 11:10 PM

Hi I was wondering if anyone has a solution to my problem.

I have a document with more blades where I colour marked the cells that the user should fill in, but I don't want them colored on the printout.
I had been able to choose b/w printing but then the logo also will be in the b/w.

Thank you in advance
Mats

Logit · #2 04-17-2017, 09:16 AM

Paste this into a routine module, call with Command Button :

Code:

Option Explicit

Sub ClearPrint(WorksheetName)
    Application.DisplayAlerts = False
    Sheets("Sheet1").Copy After:=Sheets(3)
    With Sheets(1).Cells.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets(1).PrintOut
      
    Sheets("Sheet1").Delete
    ActiveSheet.Name = "Sheet1"
   
Dim i As Integer
Dim j As Integer

    For i = 1 To Sheets.Count
          For j = 1 To Sheets.Count - 1
                If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
                   Sheets(j).Move After:=Sheets(j + 1)
                End If
          Next j
    Next i
    Sheets("Sheet1").Select
    Range("A1").Select
   Application.DisplayAlerts = True
End Sub

Sub prnt()
    ClearPrint "Sheet 1"
End Sub

The code is set for Sheet 1 Range A1:F18 .... edit as required.

matolb · #3 04-17-2017, 10:59 AM

Thank you Logit for the quick reply.
Perhaps I was unclear, or I do not understand the macro.
I have a logo in the header that I want to remain in color.
Thanks Mats

Logit · #4 04-17-2017, 01:08 PM

Just saw your lastest post.

I placed an ActiveX Image Control on Sheet1 here with a full color image. The image retained the color while the cells lost the background color.

How are you creating the Logo ?

Please post a copy of your worksheet so I can review it. Thanks

matolb · #5 04-18-2017, 11:15 AM

Thanks Logit I will send you a copy in the end of this week when I´m back at office, if it´s OK with you.
Thanks
Mats

Logit · #6 04-18-2017, 12:30 PM

Certainly !

matolb · #7 04-21-2017, 04:07 AM

Hello Logit
Now I have the file, and here it is.

Regards Mats

Logit · #8 04-21-2017, 09:57 AM

After opening the workbook, go to the Excel Office Button (top left corner)

Click on (in this order) :

Print
Print Preview
Page Setup
Sheet
Uncheck Black and White

Save the workbook

You should be ready to go !

matolb · #9 04-21-2017, 10:44 AM

Hello again Logit thanks for your time.
I´m not shure if you understand me, I would like to have the cell coloured so user can see what cell to write inside (they are not red in the original, this was just to clearify), and when I print I would like to have the logo in colour and the rest in B/W. I checked B/W because it was second best choice. In original workbook there is 50 sheets.
I hope you see what I mean
Regards
Mats

Logit · #10 04-21-2017, 11:02 AM

You should be able to remove this portion of the macro :

Code:

With Sheets(1).Range("A1:J72").Interior     'removes background color from sheet cells
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

That should retain the background coloring of the cells.

Let me know.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Track Changes Printout	Dana-H	Word	2	09-22-2016 05:45 AM
Insert File Printout w/ PDF fail	jsilvoy	OneNote	0	03-05-2015 06:44 PM
PDF printout distorted	Peter c	OneNote	1	12-07-2014 07:59 PM
MS Project - Resource usage printout	scrinmemphis	Project	1	02-22-2013 02:30 PM
Printout problem with customized bullets	eroock	PowerPoint	2	12-27-2009 02:11 PM