Niet gevulde vakken niet in kleur maar in het wit printen...

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen,

Als ik in de file de knop A3 en A4 gebruik (vanboven) print deze de formaten af zonder kleur (bedrijfsstandaard)...
Nu is dit redelijk onduidelijk.

Is er een code die "zegt"

Alle cellen (in Range A14:AC74) die NIET gevuld zijn (grijze en groene) bij het afprinten deze "wit/geen kleur" geven...
Zo kunnen wij sneller kijken welke we nog kunnen benutten!

Bedankt voor de moeite.
 
Laatst bewerkt:
Handig dat het VBA-project is beveiligd met een wachtwoord.
 
Zo?
Code: 
Range("A14:AC74").SpecialCells(4).Interior.Color = xlNone
 
ik zou het zo doen:

Code: 
Sub Printen_Ringo_vroeg_A3()

ActiveWorkbook.Unprotect "paswoord"

With Application
    .EnableEvents = False
    .DisplayAlerts = False
End With

naam = ActiveSheet.Name
ActiveSheet.Copy After:=Sheets(Sheets.Count)

    With ActiveSheet().PageSetup
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .CenterVertically = True
        .CenterHorizontally = True
        .CenterHeader = "&""Calibri,bold""&30" & "WEEK " & Cells(3, 2)
        .CenterFooter = "&""Calibri""&20" & "Technische Dienst Assenfabriek "
        .PaperSize = xlPaperA3
        .Orientation = xlLandscape
    End With
    
    With Range("A13:AC74")
        .SpecialCells(4).Interior.Color = xlNone
        .PrintOut , Copies:=1
    End With
            ActiveSheet.Delete
            Sheets(naam).Select
With Application
        .EnableEvents = True
        .DisplayAlerts = True
End With

ActiveWorkbook.Protect "paswoord"
End Sub
 
@ SjonR

Alvast super bedankt!
Het werkt bijna goed :)

In bijlage file geprint met nieuwe code...

Nog één opmerking/probleem;

Hoe komt het dat de namen ook in het "wit" geprint worden? Deze vakken vallen toch onder de "gevulde" cellen?
Hetzelfde met de "uurtellers" (elk leeg vak is 2 uur), die steeds achter de "bezetting" staan, maar dat deze "wit" zijn is oké...

Mvg
 

Bijlagen

  • printen zonder kleur.pdf
    499 KB · Weergaven: 31
Maak kolom B passend en verberg Kolom C. Kolom C is leeg, en die cellen worden dus kleurloos. Blijkbaar hebben die de overhand.
 
Heb je het goed kunnen inpassen in je macro's. Zo ja, top
 
@ SjonR

Yep :d

Code: 
Sub Printen_Beiden_A3()

ActiveWorkbook.Unprotect "paswoord"

With Application
    .EnableEvents = False
    .DisplayAlerts = False
End With

naam = ActiveSheet.Name
ActiveSheet.Copy After:=Sheets(Sheets.Count)

ActiveSheet.Cells(3, 2).Select
If ActiveSheet.Cells(3, 2).Value Mod 2 = 0 Then
  'Print Sheet1 exactly one page wide and tall
       With ActiveSheet().PageSetup
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
      ActiveSheet.PageSetup.CenterVertically = True
      ActiveSheet.PageSetup.CenterHorizontally = True
      ActiveSheet.PageSetup.CenterHeader = "&""Calibri,bold""&30" & "WEEK " & Cells(3, 2)
      ActiveSheet.PageSetup.CenterFooter = "&""Calibri""&20" & "Technische Dienst Assenfabriek "
      ActiveSheet.PageSetup.PaperSize = xlPaperA3
      ActiveSheet.PageSetup.Orientation = xlLandscape
        End With
        
        With Range("A13:AB74")
            .SpecialCells(4).Interior.Color = xlNone
            .PrintOut , Copies:=1
        End With
        
    ActiveSheet.Delete
    Sheets(naam).Select
    
    With Application
    .EnableEvents = True
    .DisplayAlerts = True
    End With

End If

If ActiveSheet.Cells(3, 2).Value Mod 2 <> 0 Then
     'Print Sheet1 exactly one page wide and tall
       With ActiveSheet().PageSetup
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
      ActiveSheet.PageSetup.CenterVertically = True
      ActiveSheet.PageSetup.CenterHorizontally = True
      ActiveSheet.PageSetup.CenterHeader = "&""Calibri,bold""&30" & "WEEK " & Cells(3, 2)
      ActiveSheet.PageSetup.CenterFooter = "&""Calibri""&20" & "Technische Dienst Assenfabriek "
      ActiveSheet.PageSetup.PaperSize = xlPaperA3
      ActiveSheet.PageSetup.Orientation = xlLandscape
      End With
        
        With Range("A14:AB75")
            .SpecialCells(4).Interior.Color = xlNone
            .PrintOut , Copies:=1
        End With
        
    ActiveSheet.Delete
    Sheets(naam).Select
    
    With Application
    .EnableEvents = True
    .DisplayAlerts = True
    End With
      
    End If

ActiveWorkbook.Protect "paswoord"

End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan