Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Excel > Excel

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 04-16-2017, 11:10 PM
matolb matolb is offline Windows 7 64bit Office 2013
Novice
 
Join Date: Apr 2017
Posts: 5
matolb is on a distinguished road
Default 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
Reply With Quote
  #2  
Old 04-17-2017, 09:16 AM
Logit Logit is offline Windows 10 Office 2007
Competent Performer
 
Join Date: Jan 2017
Posts: 124
Logit is on a distinguished road
Default

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.
Attached Files
File Type: xlsm Print BW.xlsm (20.4 KB, 4 views)
Reply With Quote
  #3  
Old 04-17-2017, 10:59 AM
matolb matolb is offline Windows 7 64bit Office 2013
Novice
 
Join Date: Apr 2017
Posts: 5
matolb is on a distinguished road
Default

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
Reply With Quote
  #4  
Old 04-17-2017, 01:08 PM
Logit Logit is offline Windows 10 Office 2007
Competent Performer
 
Join Date: Jan 2017
Posts: 124
Logit is on a distinguished road
Default

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
Reply With Quote
  #5  
Old 04-18-2017, 11:15 AM
matolb matolb is offline Windows 7 64bit Office 2013
Novice
 
Join Date: Apr 2017
Posts: 5
matolb is on a distinguished road
Default

Thanks Logit I will send you a copy in the end of this week when Im back at office, if its OK with you.
Thanks
Mats
Reply With Quote
  #6  
Old 04-18-2017, 12:30 PM
Logit Logit is offline Windows 10 Office 2007
Competent Performer
 
Join Date: Jan 2017
Posts: 124
Logit is on a distinguished road
Default

Certainly !
Reply With Quote
  #7  
Old 04-21-2017, 04:07 AM
matolb matolb is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Apr 2017
Posts: 5
matolb is on a distinguished road
Default

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

Regards Mats
Attached Files
File Type: xlsx Kopia av Ata lista NYxx.xlsx (45.9 KB, 2 views)
Reply With Quote
  #8  
Old 04-21-2017, 09:57 AM
Logit Logit is offline Windows 10 Office 2007
Competent Performer
 
Join Date: Jan 2017
Posts: 124
Logit is on a distinguished road
Default

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 !
Attached Files
File Type: xlsm Kopia av Ata lista NYxx.xlsm (52.8 KB, 7 views)
Reply With Quote
  #9  
Old 04-21-2017, 10:44 AM
matolb matolb is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Apr 2017
Posts: 5
matolb is on a distinguished road
Default

Hello again Logit thanks for your time.
Im 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
Reply With Quote
  #10  
Old 04-21-2017, 11:02 AM
Logit Logit is offline Windows 10 Office 2007
Competent Performer
 
Join Date: Jan 2017
Posts: 124
Logit is on a distinguished road
Default

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.
Reply With Quote
Reply

Tags
printout
Please reply to this thread with any new information or opinions.

Thread Tools
Display Modes


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


All times are GMT -7. The time now is 06:16 PM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft