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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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