Print to PDF zonder bepaalde cellen

[malsines]

Beste forum,

Ik had graag een vba code waar ik kan aangeven dat ik bepaalde cellen niet wil printen. heb gezocht en veel voorbeelden gezien. Ook op helpmij.nl.
het is me niet gelukt om mijn vba code te aanpassen. kan iemand dat voor me doen? wil graag de cellen B5:B9 en E5:E9 niet zichtbaar hebben om me pdf.

 

[sylvester-ponte]

je kan de kolommen verbergen of in jouw niet show gebieden de kleur op de achtergrond kleur instellen.
laat een macro dat doen.
dus de macro verandert je sheet ,print naar pdf en dan zet de macro de sheet weer in de eerdere stand terug

 

[malsines]

Hoe kan ik de kleur veranderen naar wit in mijn vba?

 

[sylvester-ponte]

even een macro opnemen en kijken wat hij doet

 

[malsines]

Ik ben niet echt goed in macro's opnemen of schrijven

 

[edmoor]

Schrijf de gewenste gegevens naar een nieuw werkblad, sla deze op als PDF en verwijder dat blad dan.

 

[malsines]

kan het niet via de knop

 

[edmoor]

Zowel #2 als #6 kunnen achter een knop.

 

[malsines]

Hoe schrijf ik het hierin:

Sub PRINT_TO_PDF()
Dim sName$
Dim Path$
sName = ActiveSheet.Name
Path = CreateObject("WScript.Shell").specialfolders("Desktop")
On Error Resume Next
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Path & "" & sName & " " & Format((Now), "dd_mm_yyyy hh_mm") & ".pdf", _
OpenAfterPublish:=True
If Err.Number > 0 Then MsgBox "Error saving pdf."
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.2)
.FooterMargin = Application.InchesToPoints(0.1)
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

 

[sylvester-ponte]

neem de macro op (hij heet waarschijnlijk macro1)
zet hem dan hier:
Sub PRINT_TO_PDF()
macro1
enz enz

 

[malsines]

Kan je dat op mijn voorbeeldbestand doen voor me?
Ik kan het zelf niet omdat ik niet weet hoe dat moet.

 

[edmoor]

Zoiets volgens het idee van Sylvester:

Sub PRINT_TO_PDF()
    sName = ActiveSheet.Name
    Path = CreateObject("WScript.Shell").specialfolders("Desktop")
    On Error Resume Next
    
    [COLOR="#008000"]'Zet de cellen op onzichtbaar[/COLOR]
    With Range("B5:B9").Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    
    With Range("E5:E9").Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

    ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Path & "\" & sName & " " & Format((Now), "dd_mm_yyyy  hh_mm") & ".pdf", _
        OpenAfterPublish:=True
    If Err.Number > 0 Then MsgBox "Error saving pdf."
    
    [COLOR="#008000"]'Zet de cellen op zichtbaar[/COLOR]
    With Range("B5:B9").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    
    With Range("E5:E9").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With

    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.2)
        .FooterMargin = Application.InchesToPoints(0.1)
        .PaperSize = xlPaperA4
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

 

[malsines]

Dankjewel Edmoor.

Dat is het

 

[edmoor]

En Sylvester natuurlijk.

 

[malsines]

ja zeker

 

[malsines]

Als blad beveiligd is, werkt hij niet.
weten jullie een oplossing?

 

[edmoor]

Aan het begin van de macro:

ActiveSheet.UnProtect "Wachtwoord"

En aan het einde:

ActiveSheet.Protect "Wachtwoord"

Het gebruik van een wachtwoord is niet verplicht.

 

[malsines]

dankjewel edmoor voor je moeite

 

[edmoor]

Daar is Helpmij voor