#1
|
|||
|
|||
Printout with both colour and b/w
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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
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 |
#6
|
|||
|
|||
Certainly !
|
#7
|
|||
|
|||
Hello Logit
Now I have the file, and here it is. Regards Mats |
#8
|
|||
|
|||
After opening the workbook, go to the Excel Office Button (top left corner)
Click on (in this order) : Print Preview Page Setup Sheet Uncheck Black and White Save the workbook You should be ready to go ! |
#9
|
|||
|
|||
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 |
#10
|
|||
|
|||
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 Let me know. |
Tags |
printout |
|
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 |